本文整理自网络,侵删。
//记得设置给检测网络状态的权限uses Androidapi.JNIBridge, Androidapi.Helpers, Androidapi.JNI.JavaTypes, Androidapi.JNI.GraphicsContentViewText, Androidapi.JNI.Interfaces;
procedure TForm1.Button1Click(Sender: TObject);var ConnectivityManagerObj: JObject; ConnectivityManager: JConnectivityManager; NetworkInfo: JNetworkInfo; NetworkType: Integer;begin ConnectivityManagerObj := SharedActivityContext.getSystemService (TJContext.JavaClass.CONNECTIVITY_SERVICE); ConnectivityManager := TJConnectivityManager.Wrap ((ConnectivityManagerObj as ILocalObject).GetObjectID);
NetworkInfo := ConnectivityManager.getActiveNetworkInfo(); if NetworkInfo = nil then begin ShowMessage('未接?A'); Exit; end;
NetworkType := NetworkInfo.getType; if NetworkType = TJConnectivityManager.JavaClass.TYPE_WIFI then begin ShowMessage('Wi-Fi数据通信'); end else if NetworkType = TJConnectivityManager.JavaClass.TYPE_MOBILE then begin ShowMessage('移动数据通信'); end;end;
相关阅读 >>
Delphi出现 no mapping for the unicode character exists in the target multi-byte code page 处理方法
Delphi tnotification android通知
更多相关阅读请进入《Delphi》频道 >>