Adroid test ob "Mobile Daten" aktiv ist

[Kostas]

Zitat von Sir Rufo:

Sowas wie das hier?
http://delphi.radsoft.com.au/2013/11...th-delphi-xe5/

Sag mal, gibt es etwas was du nicht weißt?

Eigentlich wollte ich nur prüfen ob "Mobile Daten" aktiv sind. Doch das Beispiel von Magin
ist besser da damit auch andere Internet-Kanäle überprüft werden können.

Delphi-Quellcode:

function TDataModule1.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;

Herzlichen Dank zum tausensten mal.