zoukankan      html  css  js  c++  java
  • 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

  • 相关阅读:
    23.Java函数
    22.java中的break和continue关键字
    21.Java中for循环
    20.java中的while循环
    19.java中选择判断语句(switch)
    18.java中判断(if…else)
    17.java运算符的优先级与结合性
    16.Java三元运算符
    数组去重
    数组 字符串 对象 常用方法
  • 原文地址:https://www.cnblogs.com/honeynm/p/4169648.html
Copyright © 2011-2022 走看看