Einzelnen Beitrag anzeigen

mm1256

Registriert seit: 10. Feb 2014
Ort: Wackersdorf, Bayern
642 Beiträge
 
Delphi 10.1 Berlin Professional
 
#11

AW: Plaintext aus .EML-Datei extrahieren?

  Alt 8. Apr 2016, 11:57
Hallo,

habe soeben einen Ordner mit 700+ EML-Dateien konvertiert. Hat funktioniert.

Eine Kleinigkeit würde ich im Code noch ändern...

Delphi-Quellcode:
begin
  IndyStringList := nil;
  IndyStream := nil;
  try
    IndyStringList := TStringList.Create;
    IndyStream := TMemoryStream.Create;
    IndyStringList.LoadFromFile(Trim(Edit1.Text));
    IndyStringList.Add(CRLF + '.' + CRLF);
    IndyStringList.SaveToStream(IndyStream);
    ...
...dann kann es im finally-Block nicht mehr knallen, wenn der erste Constructor fehlschlagen sollte. Unwahrscheinlich, ich weiß, aber, gute Gewohnheiten sollte man auch an kleinen Stellen pflegen
Gruss Otto PS: Sorry wenn ich manchmal banale Fragen stelle. Ich bin Hobby-Programmierer und nicht zu faul die SuFu zu benutzen
  Mit Zitat antworten Zitat