TWebBrowser中execWB异常

[lanshizi]

使用TWebBrowser组件方法execWB
当execWB出现异常怎么处理
象这样：
try
webbrowser1.ExecWB(olecmdid_saveas,olecmdexecopt_dontpromptuser);
except
exit;
end;
弹出另存的对话框，点取消就会出现异常，怎么办？

[蒋晟]

The WebBrowser control and Internet Explorer have Save and Save As options that can be used to save files using the ExecWB command. However, this involves prompting from the user. There is no way to suppress this prompt. To save files to the hard-disk without prompting, use the URLDownloadToFile API from URLMON.

http://support.microsoft.com/default.aspx?scid=KB;EN-US;q244757&ID=KB;EN-US;q244757&

BTW, you omited 2 OleVariant parameterts. try to pass empty OleVariants instead of omit them.

var
Vin, Vout : OleVariant;
begin
Vin := '';
Vout := '';
EmbeddedWB1.ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_DODEFAULT,
Vin, Vout);

end;