Fehler beim abholen von eMails mit IdPOP3

[Mackhack]

Hi DPler,

weis jemand warum ich immer diese Error Message bekomme?

Zitat:

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EIdReplyPOP3Error with message 'Syntax error
'.
---------------------------
Break Continue Help
---------------------------

Delphi-Quellcode:

  LvweMails.Items.Clear;
  for inIndex := 0 to MsgCount - 1 do
  begin
    StatusBar1.Panels[0].Text := Format('Downloading Messages... %d of %d', [inIndex, MsgCount]);
    Application.ProcessMessages;
    Mess.Clear;
    POP.RetrieveHeader(inIndex, Mess);
    ListItem := LvweMails.Items.Add; <====== Hier!!!
    ListItem.Caption := Mess.From.Text;
    ListItem.SubItems.Add(Mess.Subject);
    ListItem.SubItems.Add(FormatDateTime('dd/mm/yyyy hh:mm:ss', Mess.Date));
    ListItem.SubItems.Add(IntToStr(POP.RetrieveMsgSize(inIndex) div 1024) + 'kb');
    StatusBar1.Panels[0].Text := 'Total Messages: ' + IntToStr(MsgCount);
  end;
end;

[rollstuhlfahrer]

HI,

was sind ListItem und LvweMails( dies kann mangels Parameter im Code kein ListView sein)?

rollstuhlfahrer

[Andreas L.]

Der index von IdPop3 geht von 1 bis Count, nicht von 0 bis Count -1. Da liegt wahrscheinlich dein Fehler.

[rotfc]

Nicht

Delphi-Quellcode:

ListItem.SubItems.Add(FormatDateTime('dd/mm/yyyy hh:mm:ss', Mess.Date));

sondern

Delphi-Quellcode:

ListItem.SubItems.Add(FormatDateTime('dd/mm/yyyy hh:nn:ss', Mess.Date));

mm sind die Monate, nn die Minuten, falls ich mich recht erinnere ;-)

[Mackhack]

Es kracht doch aber nicht in der Datumszeile sondern schon viel weiter oben.

Und ja es ist ein LvweMails ist ein ListView!

Auch wenn ich von 1 bis Count schreibe gehts nicht. Das war naemlich mein erster Versucht schon mit der MsgCount Variablen.

[marabu]

Hallo Tobias,

der Hinweis von Andreas ist ernst zu nehmen.

Der von dir beobachtete Fehler ist zu erwarten und tritt bei RetrieveHeader() auf, wenn der Server das optionale Command TOP nicht versteht. Deine Markierung im Quelltext ist irreführend, der Fehler tritt in der Zeile darüber auf.

Freundliche Grüße

[Mackhack]

Marabu,

was sollte ich dann deiner Meinung nach tun? Ich bin grad etwas auf dem Schlauch! Was ist denn am Code falsch?

Habs jetzt wieder so die Zeile:

Delphi-Quellcode:

for inIndex := 1 to MsgCount do

[marabu]

Den Wertebereich des Index hast du ja korrekt angepasst.

Falsch ist da eigentlich nichts. Der Fehler rührt von deiner Annahme, dass jeder Mail-Server alle möglichen Kommandos versteht.

Nimm statt RetrieveHeader() einfach Retrieve() oder füge eine Fallunterscheidung ein.
Die vom Server verstandenen Commands kannst du ja vorher abfragen, wenn du den Aufwand treiben willst.

[Mackhack]

Und es funktioniert 1A!

Aber woher wissen wenn nicht stehlen oder so aehnlich :roll:

[Mackhack]

Noch kurz eine Frage:

Wie muesste man denn diese Fallunterscheidung angehen?