请问如何将网页存为MHT单一格式的文件（最好用WebBrowser），先谢了

Question

存为一个文件：
procedure SaveHTMLSourceToFile(const FileName: string;
  WB: TWebBrowser);
var 
  PersistStream: IPersistStreamInit;
  FileStream: TFileStream; 
  Stream: IStream; 
  SaveResult: HRESULT;
begin 
  PersistStream := WB.Document as IPersistStreamInit; 
  FileStream := TFileStream.Create(FileName, fmCreate); 
  try 
    Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
    SaveResult := PersistStream.Save(Stream, True); 
    if FAILED(SaveResult) then 
      MessageBox(Handle, 'Fail to save HTML source', 'Error', 0); 
  finally 
    { we are passing soReference in TStreamAdapter constructor, 
      it is our responsibility to destroy the TFileStream object. } 
    FileStream.Free; 
  end; 
end;

Answer 1

大哥，我要保存的是.MTH格式（即单个Web档案）