请教各位前辈,现在我碰到一个问题,希望大家能帮忙解决;
我使用了Twebbrowse.ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_DODEFAULT, EmptyParam,EmptyParam)方法,把网页另存下来,但是,手工执行当然不会有问题,但是用户需要自动执行,所以我通过Timer定时处理,这时最大问题是执行另存为操作,IE会弹出个对话框出来,看看大家有没有具体的解决办法,把对话框取消,让IE直接保存页面
我使用了Twebbrowse.ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_DODEFAULT, EmptyParam,EmptyParam)方法,把网页另存下来,但是,手工执行当然不会有问题,但是用户需要自动执行,所以我通过Timer定时处理,这时最大问题是执行另存为操作,IE会弹出个对话框出来,看看大家有没有具体的解决办法,把对话框取消,让IE直接保存页面
解决方案 »
- delphi 控制台 程序
- 如何实现点击查询按纽 将结果输出在另一个窗体的label中?
- arr如何关闭TWebBrowser打开的文档?
- 如何处理TScrollBox的鼠标滚轮事件?
- 大家帮忙推荐一下条形码扫描枪和IC读写卡器好吗?
- 急!!!请问如何在ListView控件的列上加上Combobox的下来功能???
- delphi里将123.45数值转换为one hundred twenty three zero forty five 的函数!!!急急急!!1
- 请问怎么在程序中备份SQL中的数据库???(急)
- 用com究竟有什么好处?
- 急,DELPHI串口发送不出数据
- sql语句问题
- 无聊~散分~~
function DownloadFile(Source, Dest: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
except
Result := False;
end;
end;
if DownloadFile('http://www.borland.com/aa.htm, 'c:\my.htm) then
ShowMessage('Download succesful')
else ShowMessage('Download unsuccesful') 不过这样只能下载到html代码,一些资然文件下载不了。