如何把TWebBrowser以指定的文件名保存，并且不出现那个Save Web Page 窗口？

我也很关心
借你的问题提一个相关的问题：
保存时怎样保存几种格式（如：.hml、.txt）?

解决方案 »

  1.   

    用execwb会出现那个对话框。
    procedure TForm1.Button1Click(Sender: TObject);
     var
      HTMLDocument: IHTMLDocument2;
      PersistFile: IPersistFile;
    begin
      HTMLDocument := webbrowser1.Document as IHTMLDocument2;  while HTMLDocument.readyState <> 'complete' do
        Application.ProcessMessages;    PersistFile := HTMLDocument as IPersistFile;
      PersistFile.Save(StringToOleStr(htmlfilename), system.True);end;
      

  2.   

    我给你一个示例，你看看是否就是你想要的？
    请给出你的E-Mail我给你邮来。
      

  3.   

    自己写代码就可以实现啦，不过很麻烦，比调用TWebBrowser的那个弹出保存对话框要麻烦的多
      

  4.   

    to: qiubolecn(来自差生市) 
    程序里要用些什么样的unit?
    我在帮助里没有找到
      

  5.   

    这样是不是会保存所有的图片？
    就像execwb保存的操作那样，建立一个目录来保存图片？
      

  6.   

    to: jasper_liu (波仔)  
    真是对不起，我的代码现在怎么也找不到了，实在不好意思。
    不过它也只能保存为HTML文档，请多原谅呵！
      

  7.   

    无论如何，非常感谢！
     qiubolecn(来自差生市) 
     lixif()
      

  8.   

    很简单啊！其实IE在浏览网页时把所有文件都下载到了本地目录，它是边下载边解释啊！也就是所有能用IE看到的东西都在你的计算机上啊！不然怎么脱机也能浏览！如果要保存，干嘛非要用TWebBrowser保存？自己用文件操作不就搞定了，难道把一个文件从一个目录移到另一个目录你不会？够了吧！
      

  9.   

    如果还不会，可以和我联系！[email protected]
      

  10.   

    jasper_liu(波仔) :不好意思，最近功课忙！我提供给你一个函数：IE自带的！URLDownloadToFile它的VB声明是：Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long使用方法 URLDownloadToFile(0, szURL, szFileName, 0, 0)