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打开文件。

Delphi 5

Answer 1

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

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

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