Hi,
In meinem Projekt benutze ich IdPOP3 mit IdSSLIOHandlerSocketOpenSSL.
Nur aus irgendeinem Grund bricht die Verbindung sofort, egal bei welchem Server, mit "
Connection closed gracefully" ab (Auch wenn Firewall/
AV deaktiviert).
Habe die Server von Yahoo, GMail und Freenet getestet. Überall das selbe.
Die Meldung "
Connection closed gracefully" wird instantan nach idpop31.Connect() ausgegeben.
Ich habe mal per Wireshark mitgeschnüffelt und es findet überhaupt keine Kommunikation statt?!
Hier mein Code:
(Ich benutze Borland Delphi 7 mit
Indy 10)
Delphi-Quellcode:
idssliohandlersocketopenssl1 := Tidssliohandlersocketopenssl.Create(
nil);
idssliohandlersocketopenssl1.SSLOptions.Mode := sslmUnassigned;
idssliohandlersocketopenssl1.SSLOptions.Method := sslvSSLv3;
// Kein Erfolg mit sslvSSLv2
idpop31 := tidpop3.Create(
nil);
idpop31.IOHandler := idssliohandlersocketopenssl1;
idpop31.UseTLS := utUseExplicitTLS;
// Kein Erfolg mit utUseImplicitTLS etc.
idpop31.Host := server;
//Im Vorfeld deklariert, auf jeden Fall richtig
idssliohandlersocketopenssl1.Host := server;
idpop31.Username := user;
//Im Vorfeld deklariert, auf jeden Fall richtig
idpop31.Password := password;
//Im Vorfeld deklariert, auf jeden Fall richtig
idpop31.Port := 995;
idpop31.ConnectTimeout := 5000;
idpop31.ReadTimeout := 5000;
try
idpop31.Connect();
// Hierbei Exception EidConnectionClosedGracefully
memo1.Lines.Add(IntToStr(idpop31.CheckMessages)+'
E-Mails gefunden.');
idpop31.Disconnect();
except
on E :
Exception do
begin
Memo1.Lines.Add('
ERROR: '+E.
Message+'
// '+E.ClassName);
end;
end;
end;
Der Fehler ist mir rätselhaft, zumal mein Programm ja nicht einmal mit dem Server Kontakt aufnimmt
Vielleicht weiß hier einer besser Bescheid