Problem mit POP-Indy

[cchris]

Hallo,
Ich erhalte bei folgendem Quellcode immer eine Exception:

Delphi-Quellcode:

procedure TForm1.Btn1Click(Sender: TObject);
begin
POP.Host:='******************';
POP.Username:='************';
POP.Password:='*************';
POP.Port:=110;
if not POP.Connected then
        POP.Connect(9000)
                 else
        POP.Disconnect;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if POP.Connected then
                 begin
                 ChkCon.Checked:=true;
                 btn1.caption:='Disconnect';
                 end
                 else
                 begin
                 ChkCon.Checked:=false;
                 Btn1.caption:='Connect';
                 end; 
end;

procedure TForm1.Btn2Click(Sender: TObject);
var num:longint;
    msg:TIdMessage;
begin
msg.Clear;
num:=POP.CheckMessages;
POP.Retrieve(num,msg)

end;

Als Name und Host und PW hab ich natürlich gültige eingetragen, blos will ich die hier nicht zeigen (ach was)

Connecten tut er sich noch ordentlich, allerdings wird in der Zeile mit msg.clear oder falls ich diese auskommentiere in der Retrive Zeile Folgender Fehler auf: ----> unten

Ich hab auch versucht die Clear Anweisung durch

msg.Create(NIL); zu ersetzen, auch dann kommt es zu diesem Fehler.

Vielleicht ist es wichtig, das Delphi "unten" anzeigt, msg ist eventuell nicht Initialisiert.

kann mir jemand helfen?

cu Chris

[Mario]

Delphi-Quellcode:

procedure TForm1.Btn2Click(Sender: TObject);
var num:longint;
    msg:TIdMessage;
begin
msg := TIdMessage.Create(NIL);
msg.Clear;
num:=POP.CheckMessages;
// das nur machen, wenn auch Messages drauf sind
// rufst Du hier alle auf einmal oder nur eine 
// ab und wenn ja, welche?
POP.Retrieve(num,msg)
// hier Message verarbeiten
msg.Free; // sonst Speicherleck
end;

Ich habe Dir mal das fehlende reingemacht. Dann könnte es gehen, aber getestet habe ich es jetzt nicht. Dir fehlte erst mal nur das Erstellen des Objektes...