Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- function TLessonConstructor2.CreateMHT( const FileName : string):boolean ;
- var
- oMSG:IMessage;
- oConfig: IConfiguration;
- sFileName: string;
- Stream: _Stream;
- begin
- //CoInitializeEx(nil, COINIT_APARTMENTTHREADED);
- //CoInitialize(nil);
- try
- Result := false;
- sFileName := ChangeFileExt(FileName, '.mht');
- DeleteFile(PAnsiChar(sFileName));
- try
- oConfig := CoConfiguration.Create();
- oMSG := CoMessage.Create();
- oMSG.Configuration := oConfig;
- oMSG.CreateMHTMLBody(FileName,CdoSuppressNone,'','');
- Stream:=oMSG.GetStream;
- Stream.SaveToFile(sFileName,adSaveCreateOverWrite);
- Stream.Cancel;
- Stream.Close;
- Result := True;
- except
- on E: Exception do
- begin
- Result := false;
- MessageDlg(E.Message, mtError, [mbOK], 0);
- end;
- end;
- finally
- // CoUnInitialize;
- Stream:=nil;
- oConfig:=nil;
- oMSG:=nil;
- end;
- end;
- reateMHTMLBody(const URL: WideString; Flags: CdoMHTMLFlags;
- const UserName: WideString; const Password: WideString); safecall;
Add Comment
Please, Sign In to add comment