如何将html文件转换成mht文件，最好能够批量转换。

Question

最好能够批量转换。

Answer 1

//from
http://www.delphibbs.com/delphibbs/dispq.asp?lid=595573uses ComObj;function GetMhtText(URL: string):string;
var
 iMsg,iConf:olevariant;
begin
 imsg:=createoleobject('CDO.Message');
 iConf:=CreateoleObject('CDO.Configuration');
 imsg.Configuration := iConf;
 try
   iMsg.CreateMHTMLBody(url,0,'domain\username','password');
   result:=imsg.getstream.readtext;
 except
   raise;
 end;
end;

Answer 2

用WebBrowser就可以了，不过只能一个一个转，批量转换写一个循环搞定

Answer 3

iMsg.CreateMHTMLBody(url,0,'domain\username','password');
的语法帮助在哪查？提示参数错误！

Answer 4

//调试的环境是Win2000+Delphi6
//调试的代码如下
uses ComObj;function MhtText(mURL: string): string;
var
  vCDOMessage: OleVariant;
begin
  vCDOMessage := CreateOleObject('CDO.Message');
  vCDOMessage.Configuration := CreateOleObject('CDO.Configuration');
  try
    vCDOMessage.CreateMHTMLBody(mURL, 0, 'domain\username','password');
    Result := vCDOMessage.GetStream.ReadText;
 except
   raise;
 end;
end;procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Memo1.Text := MhtText('file:\\C:\temp\temp.htm');
end;//如果还出现错误把代码和环境告诉大家

Answer 5

zswang(伴水清清)(专家门诊清洁工) 的方法不错。
觉得你肯定知道把txt2html的方法，不如也把代码也发出来让大家受益如何？

Answer 6

//麻烦自己先想想办法，然后先到网上找找资料，再然后发新贴问～～function TextToHtml(mText: string): string;
begin
  mText := StringReplace(mText, '<', '&lt;', [rfReplaceAll]);
  mText := StringReplace(mText, '>', '&gt;', [rfReplaceAll]);
  Result := Format('<PRE>'#13#10'%s</PRE>'#13#10, [mText]);
end; { TextToHtml }procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo2.Text := TextToHtml(Memo1.Text);
end;