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