Hallo,
ich möchte prüfen, ob auf einem Android Gerät eine Netzwerkverbindung vorliegt. Sobald keine Netzwerkverbindung vorliegt, bringt IdTCPClient1.Connect eine Segmentation fault (11)
Exception und beendet die Anwendung (trotz try except). Hat jemand einen Tipp, wie ich die
Exception abfangen kann? Ich verwende XE7 und Android 6.0.1.
procedure TForm1.Button1Click(Sender: TObject);
begin
if CheckInternet then
ShowMessage('geht')
else
ShowMessage('geht nicht') ;
end;
function TForm1.CheckInternet: boolean;
begin
result := false;
try
IdTCPClient1.ReadTimeout := 2000;
IdTCPClient1.ConnectTimeout := 2000;
IdTCPClient1.Port := 80;
IdTCPClient1.Host := 'google.com';
IdTCPClient1.Connect;
IdTCPClient1.Disconnect;
result := true;
except
result := false;
end;
end;