• save a web page as a single file (mht format) using Delphi code


    Here's how to save a web page as a single file (mht format) using Delphi code:

    uses CDO_TLB, ADODB_TLB;
    ...
    PRocedure WB_SaveAs_MHT(WB: TWebBrowser; FileName: TFileName);
    var
    Msg: IMessage;
    Conf: IConfiguration;
    Stream: _Stream;
    URL : widestring;
    begin
    if not Assigned(WB.Document) then Exit;
    URL := WB.LocationURL;

    Msg := CoMessage.Create;
    Conf := CoConfiguration.Create;
    try
    Msg.Configuration := Conf;
    Msg.CreateMHTMLBody(URL, cdoSuppressAll, '', '');
    Stream := Msg.GetStream;
    Stream.SaveToFile(FileName, adSaveCreateOverWrite);
    finally
    Msg := nil;
    Conf := nil;
    Stream := nil;
    end;
    end; (* WB_SaveAs_MHT *)


    Sample usage:

    //first navigate
    WebBrowser1.Navigate('http://delphi.about.com');

    //then save
    WB_SaveAs_MHT(WebBrowser1,'c:WebBrowser1.mht');


    Note 1: The _Stream class is defined in ADODB_TLB unit that you probably already have created. The IMessage and IConfiguration interfaces code from cdosys.dll library. CDO stands for Collaboration Data Objects - object libraries designed to enable SMTP Messaging.
    The CDO_TLB is an auto generated unit by Delphi. To create it, from the main menu select "Import Type Library", select "C:WINDOWSsystem32cdosys.dll" then click the "Create unit" button.


    资料引用:http://www.knowsky.com/336151.html

  • 相关阅读:
    安全模式下卸载windows installer打包的软件(转)
    OAF页面集成条形码或者二维码
    记一次客户生产环境供应商门户服务器无法访问
    QML显示圆形图片
    QML加载gif
    QML之信号与槽
    QML访问C++类内部
    QML使用C++对象
    C++条件变量
    C/C++程序所占用内存区域
  • 原文地址:https://www.cnblogs.com/honeynm/p/4169648.html
Copyright © 2020-2023  润新知