.eml Dateien auslesen - wie decodieren?

[Klaus01]

.. ob das hier eine Rolle spielt weiß ich nicht.
Aber wenn ich mich recht entsinne bezeichnet ein allenstehender "." in einer Zeile
im pop3 Protokoll das Ende einer Nachricht.

Grüße
Klaus

[nezumi7]

ja, das hab ich auch gelesen. Hilft mir aber nicht weiter.

Ich hab jetzt versucht, die .eml Datei in eine Stringlist zu laden (da will ich dann die Punkte rausmachen), den Stringlist-Text in ein MemoryStream zu schreiben und von dort die IDMessage zu laden:

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var
sl: TStringlist;
eintrag, empf: String;
tsm: TMemoryStream;
begin
If OpenDialog1.Execute then begin
sl := TStringlist.Create;
tsm := TMemoryStream.Create;
sl.LoadFromFile(OpenDialog1.FileName);
//hier noch: einzelne Punkte rausmachen
sl.SaveToStream(tsm);
msg.LoadFromStream(tsm);

empf := msg.From.Text;
Label1.Caption := empf;

tsm.Free;
sl.Free;
end;

end;

....geht aber nicht. (Label1 müsste ja z.B. den Empfänger anzeigen. Tuts aber nicht. "empf" ist leer)

[himitsu]

Wenn du //hier noch: einzelne Punkte rausmachen wegläßt, dann geht es auch nicht?

[nezumi7]

Nee, da hab ich ja noch nix gecodet.

Wollte erst Mal sehen, ob das überhaupt funktioniert mit String in Memory Stream und dann in msg....

[himitsu]

Delphi-Quellcode:

sl.SaveToStream(tsm);
tsm.Position := 0;  // <<<<<<<<
msg.LoadFromStream(tsm);

So?

[nezumi7]

ja, das wars!

Danke Dir!