Hallo Leute
Ich möchte mir ein kleines Tool schreiben, bei dem ich den Connect zu einem
POP3 Account testen kann.
Hier mein Code:
Delphi-Quellcode:
procedure TForm1.btn_ConnectClick(Sender: TObject);
begin
try
IdTCPClient1.Port := StrToInt(edt_Port.Text);
IdTCPClient1.Host := edt_Host.Text;
IdTCPClient1.Connect(100);
if IdTCPClient1.Connected = True
then
begin
IdTCPClient1.ReadTimeout := 2000;
IdTCPClient1.SendCmd('
USER ' + edt_User.Text);
memo1.lines.Add(IdTCPClient1.ReadLn(#$A,7500));
IdTCPClient1.SendCmd('
PASS ' + edt_Passwort.Text);
memo1.Lines.Add(IdTCPClient1.ReadLn(#$A,7500));
IdTCPClient1.SendCmd('
LIST');
memo1.Lines.Add(IdTCPClient1.ReadLn(#$A,7500));
end;
except
on E:
Exception do writeln(E.
Message);
end;
end;
Ich komme leider nur bis zum ersten "ReadLn" danach passiert nichts mehr.
Woran liegt das?
In meiner MemoBox wird nur +OK Passwort required angezeigt.
Wie aber im Programmcode ersichtlich sende ich dass Passwort und sende auch den Befehl List.
Wo ist hier mein Überlegungsfehler?
Danke für Eure Hilfe.
Gruss Jerry