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