Delphi: OpenFileDialog падает с URL

Question

Предоставляя URL-адрес TOpenFileDialog, метод Execute вызывает исключение:

OpenDialog1.Filename := 'http://www.osfi-bsif.gc.ca/app/DocRepository/1/eng/issues/terrorism/indstld_e.xls';
bResult := OpenDialog1.Execute;

Но вам разрешено открывать файлы с URL.

Delphi 5

Answer 1

TOpenDialog - это просто оболочка для функции Windows GetOpenFileName в comdlg32.dll.

function TOpenDialog.Execute(ParentWnd: HWND): Boolean;
begin
  Result := DoExecute(@GetOpenFileName, ParentWnd);
end;

К сожалению, документация для этой функции не так уж велика. Но я уверен, что он не поддерживает http.