Hallo,
ich bin gerade dabei eine Anwendung die ich programmiert habe umzuschreiben. In dieser Anwendung nutze ich einige FastNet-Komponenten die ich nun gegen die
Indy-Komponenten austauschen moechte. Soweit hat bisher alles gut funktioniert. Nun habe ich aber bei der Nutzung der IdPOP31
Indy-Komponente Probleme bzw. komme nicht weiter.
Ich habe eine Schleife die so oft laeuft wie Nachrichten auf dem Server sind. Nun soll eine weitere Schleife so oft laufen wie die Nachricht Zeilen im Body hat. Mein Programm muss also wissen wieviel Zeilen der Body hat. Wie ermittle ich dies und wie greife ich auf Zeile xy im Body zu?
Hier ein Teil meines Programmes.
Delphi-Quellcode:
IdPOP3.Connect;
mailCount := IdPOP3.CheckMessages; // Anzahl der Nachrichten ermitteln
ProgressBar.Max := mailCount;
txtLog.Lines.Add(IntToStr(mailCount) +' Nachrichte(n) auf Server, '+ FormatDateTime('hh:nn:ss', now) + #13#10);
for i := 1 to mailCount do // Schleife (Durchlauf = Anzahl Nachichten)
begin
msg.Clear;
IdPOP3.RetrieveHeader(i, msg);
if checkSubject(msg.Subject) = true then // pruefe anhand des Subjects der Nachricht ob korrekt
begin
IdPOP3.Retrieve(i, msg); // hole Nachricht i
ProgressBar.Position := i;
for y := 0 to ??? do // Schleife (Durchlauf = Anzahl Zeilen der Nachricht)
Hoffe Ihr koennte mir bei meinem kleinen Problem helfen.
Danke und Gruesse,
Chris