Moin !
Das ist mein Create:
Delphi-Quellcode:
constructor TMailDecode.Create(MIMEBoundary: string; ContentType : string; TextReceived: string);
var
I: Integer;
begin
inherited Create;
FContentType := ContentType;
FBoundary := MIMEBoundary;
FTextReceived := TextReceived;
FTextList := TStringList.Create;
// Text in Stringliste eintragen
FTextList.Delimiter := chr(10);
FTextList.StrictDelimiter := True;
FTextList.DelimitedText := FTextReceived;
FSession := TSiSession.Create(Si, 'MailDecode');
FSession.ClearAll;
FSession.EnterMethod('Mail Decoding ...');
// Debug Only
// for I := 0 to FTextList.Count - 1 do
// FSession.LogVerbose(IntToStr(I) + ' ' + FTextList[I]);
FSession.LogVerbose('FBoundary : ' + FBoundary);
end;
Das FMultiPart erzeuge ich nur dann wenn ich es auch brauche.
Knallen tuts schon hier:
FContentType := ContentType;