IdPOP3 + SSL: Immer "Connection closed gracefully"

[lastwulf]

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

[OG Karotte]

Hast Du Dir schon mal dieses oder dieses angeschaut?

[lastwulf]

Jo, thx. Dieser Code funktioniert bei mir. Ich kann aber eigentlich keinen großen Unterschied entdecken? Werd morgen mal näher reinschauen.

[lastwulf]

Verdammt, die Einstellungen sind jetzt genau gleich, aber es kommt immer noch "Connection closed gracefully".
Irgendwas läuft hier falsch

[OG Karotte]

Meist sind es nur Kleinigkeiten die zwischen Erfolg und Misserfolg liegen.

Bist Du Dir sicher das:

a.) Der Code gem. #3 funktioniert (hat)

b.) Deine Einstellungen wirklich korrekt sind ?

und btw "Connection closed gracefully" ist kein Fehler sondern nur die "Nachricht" das der Server/die Gegenstelle die Verbindung beendet hat...

[lastwulf]

a) Was meinst du mit #3?
b) Ja

Das ist mir klar, was "Connection closed gracefully" bedeutet, aber sollte dazu nicht mit dem Server kommuniziert werden? (Wireshark zeigt nichts an )

[OG Karotte]

Zitat von lastwulf:

a) Was meinst du mit #3?

Deinen Beitrag (welches der Dritte in diesem Thread ist):

Zitat von lastwulf:

Jo, thx. Dieser Code funktioniert bei mir. Ich kann aber eigentlich keinen großen Unterschied entdecken? Werd morgen mal näher reinschauen.

Hast Du auch mal den Beitrag #12 des ersten von mir genannten Threads beachtet???

Nutze doch mal das Statusinfo - Event von Deinem IOHandler, da müsste eigentlich die Kommunikation mit zu verfolgen sein...

[lastwulf]

Hab ich gemacht:

Delphi-Quellcode:

procedure TForm1.IdSSLIOHandlerSocketOpenSSL1Status(ASender: TObject;
  const AStatus: TIdStatus; const AStatusText: String);
begin
Memo1.Lines.Add('idSSL: ' +AStatusText);
end;

procedure TForm1.IdSSLIOHandlerSocketOpenSSL1StatusInfo(Msg: String);
begin
Memo1.Lines.Add('idSSL: ' +Msg);
end;

procedure TForm1.IdPOP31Status(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: String);
begin
  Memo1.Lines.Add('idSSL: ' +AStatusText);
end;

Aber es wird nichts angezeigt! Was läuft da wohl schief :- /
Aber Danke für die Hilfe

[OG Karotte]

Ja was denn nu: Funktioniert der in #3 verlinkte Code oder nicht?

[lastwulf]

Sry, ja, der funktioniert.