请教各位前辈,现在我碰到一个问题,希望大家能帮忙解决;
我使用了Twebbrowse.ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_DODEFAULT, EmptyParam,EmptyParam)方法,把网页另存下来,但是,手工执行当然不会有问题,但是用户需要自动执行,所以我通过Timer定时处理,这时最大问题是执行另存为操作,IE会弹出个对话框出来,看看大家有没有具体的解决办法,把对话框取消,让IE直接保存页面

解决方案 »

  1.   

    uses UrlMon;
    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代码,一些资然文件下载不了。
      

  2.   

    谢谢,这种方法是行不同的,我尝试过很多种方法来读取网页的源码,这些方法对普通的Html是完全没有问题的,但是我要处理的网页是Php格式,里面嵌套了几个Frame,目前我唯一能解决的办法是只有调用IE的另存为功能,才能获取到他的数据和源码,是否还有别的办法呢