核心提示:代码中引用了ADODB_TLB,CDO_TLB,可以自己从Delphi中导入TypeLib,这2个已经打包下载procedure SaveWholePage(mURL: string; mFileNa...
代码中引用了ADODB_TLB,CDO_TLB,可以自己从Delphi中导入TypeLib,这2个已经打包下载
procedure SaveWholePage(mURL: string; mFileName: TFileName);
var
vMessage: IMessage;
vConfiguration: IConfiguration;
vStream: _Stream;
begin
vMessage := CreateComObject(CLASS_Message) as IMessage;
vConfiguration := CreateComObject(CLASS_Configuration) as IConfiguration;
try
vMessage.Configuration := vConfiguration;
vMessage.CreateMHTMLBody(mURL, cdoSuppressNone,'','');
vStream := vMessage.GetStream;
vStream.SaveToFile(mFileName, adSaveCreateOverWrite);
finally
vMessage := nil;
vConfiguration := nil;
vStream := nil;
end;
end;
迅雷专用高速下载