Mailversand klemmt bei bestimmten Verbindungen

[sko1]

Hallo,

ich hole mit folgendem Code e-Mails ab, was auch per WLAN-Zugang über irgendeinen Internet-Provider problemlos funktioniert (hier die Verbindungs-Testfunktion):

Delphi-Quellcode:

function TFormZugang.TestVerbindungEingang(): integer;
var
  IdPOP31: TIdPOP3;
begin
  // Result 0 = Connect Fehler, 1 = Login Fehler, 2 = fehlerfrei
  Result := 0;
  try
    IdPOP31 := TIdPOP3.Create(self);
    IdPOP31.AutoLogin := False;
    IdPOP31.ConnectTimeout := 20000;
    if not IdPOP31.Connected then
    begin
      IdPOP31.Host := settings.zugangPOP3;
      if SSL.IsChecked then
      begin
        IdPOP31.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(IdPOP31);
        IdPOP31.Port := 995; // POP SSL  (993 IMAP SSL)
        IdPOP31.UseTLS := utUseImplicitTLS;
      end
      else
      begin
        IdPOP31.IOHandler := Nil;
        IdPOP31.Port := 110;
        IdPOP31.UseTLS := utNoTLSSupport;
      end;
      IdPOP31.Username := settings.zugangBenutzer;
      IdPOP31.Password := settings.zugangPasswort;
      try
        sleep(100);
        IdPOP31.Connect;
        Result := 1;
      except
        on E: Exception do
        begin
          IdPOP31.Free;
          exit;
        end;
      end;
      try
        sleep(100);
        IdPOP31.Login;
        Result := 2;
      except
        on E: Exception do
        begin
          IdPOP31.Free;
          exit;
        end;
      end;
      if IdPOP31.Connected then
      begin
        IdPOP31.DisConnect;
      end;
    end;
    IdPOP31.Free;
  except
    on E: Exception do
      LogAusgabe(E.ClassName + ' in TFormZugang.TestverbindungEingang : ' +
        E.Message);
  end;
end;

Wird das Handy aber nun per Mobiles Internet über den österreichischen Provider Drei.at verbunden, hängt es schon beim Connect fest ("Anwendung reagiert nicht") nach einigen Minuten.

Leider kann ich hier im Norden Deutschlands schlecht das Handy zum Debuggen anfordern, da ich mich nicht bei Drei.at einloggen kann

Ich hoffe es findet sich trotzdem jemand der eine Idee hat wo es da klemmen könnte?

Ciao
Stefan