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。