DELPHI HTM文件保存为MHT文件

2013-11-20 02:35:15 358 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

5分钟搞定DataDome滑块验证码：最新Capsolver API实战教程（含代理配置）本文提供了一份利用Capsolver API快速自动化破解DataDome滑块验证码的实战教程。文章深入剖析了DataDome验证码的环境指纹与行为分析机制，并重点详解了确保成功率的住宅代理配置、API集成步骤及令牌使用等核心环节，帮助开发者高效集成稳定可靠的自动化解决方案。阅读详情

求解：
把一个HTM文件保存为MHT文件
如
把 C:\1.htm 文件保存为 C:\2.mht文件
注这个1.htm文件里面有图片的

最重要的功能是把图片文件写入到 2.mht文件中如果用的是一个绝对路径那就失败了
把一个HTM文件保存为MHT文件这一功能wizHtmlEditor能做到

下面这段代码是用DELPHI实现的保存HTM为MHT文件但不能实现我这一要求



implementation

uses ADODB_TLB, CDO_TLB,ComObj ;

{$R *.dfm}





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, cdoSuppressImages, '', '');//cdoSuppressNone,cdoSuppressImages，cdoSuppressAll

    Stream := Msg.GetStream;

    Stream.SaveToFile(FileName, adSaveCreateOverWrite);

  finally

    Msg := nil;

    Conf := nil;

    Stream := nil;

  end;

end; (* WB_SaveAs_MHT *)







procedure TForm1.Button1Click(Sender: TObject);

var

    f:string;

begin

  f:=ExtractFilePath(Application.ExeName)+'WebDoc.htm';

  webbrowser1.Navigate(f);

end;





procedure TForm1.Button2Click(Sender: TObject);

var

    f1:string;

begin

   f1:=ExtractFilePath(Application.ExeName)+'1.mht';

    WB_SaveAs_MHT(webbrowser1,f1);

end;