pop3abfrage + progressbar -> fehler

[marabu]

Hallo heribert,

ich weiß nicht wo du den Code gefunden hast, aber über den Fehler sind schon andere gestolpert:

Delphi-Quellcode:

...
  FMsgCount := IdPOP31.CheckMessages;
  for intIndex := 1 to FMsgCount do begin
    IdPOP31.Retrieve(intIndex, IdMessage1);
...

Das muss so aussehen:

Delphi-Quellcode:

var 
  msgList: TStringList;
  msgNum: string;
...
  msgList := TStringList.Create;  // soviel Zeit muss sein
...
  if not idPOP3.UIDL(msgList) then begin
    msgList.Free;
    Exit;
  end;

  for intIndex := 0 to msgList.Count - 1 do begin
    msgNum := msgList[intIndex];
    SetLength(msgNum, Pos(' ', msgNum) - 1);
    IdPOP31.Retrieve(StrToInt(msgNum), IdMessage1);
... 
  msgList.Free;

Grüße vom marabu