Delphidx - Check Network

[Lomanu4]

function checkNetwork: Boolean;
  function GetConnectivityManager: JConnectivityManager;
  var
    ConnectivityServiceNative: JObject;
  begin
    ConnectivityServiceNative := SharedActivityContext.getSystemService(TJContext.JavaClass.CONNECTIVITY_SERVICE);
    if not Assigned(ConnectivityServiceNative) then
      raise Exception.Create('Could not locate Connectivity Service');
    Result := TJConnectivityManager.Wrap((ConnectivityServiceNative as ILocalObject).GetObjectID);
    if not Assigned(Result) then
      raise Exception.Create('Could not access Connectivity Manager');
  end;
var
  cm: JConnectivityManager;
  activeNetwork: JNetworkInfo;
begin
  cm := GetConnectivityManager;
  activeNetwork := cm.getActiveNetworkInfo;
  Result := Assigned(ActiveNetwork) and ActiveNetwork.isConnected;
end;