delphi - Delphi：OpenFileDialog 与 URL 崩溃

Question

给 TOpenFileDialog 一个 URL，Execute 方法抛出一个异常：

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

但是您可以从 URL 打开文件。

德尔福5

Answer 1

TOpenDialog 只是 comdlg32.dll 中 Windows 函数 GetOpenFileName 的包装器。

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

不幸的是，这个函数的文档不是很好。但我很确定它不支持http。