首页 > 代码库 > delphiXE7关于android API的使用和检测WIFI状态的问题
delphiXE7关于android API的使用和检测WIFI状态的问题
在大富翁论坛上有一篇介绍delphi xe5下获取网络状态的文章并附带了一个Androidapi.JNI.Network.pas单元，我使用到XE7下，编译后点击按钮就出来一个错误对话框什么10027什么的，开始我以为是不通用那，我就利用 爱吃猪头肉 QQ: 1444386932 提供的jar转换工具转换了安卓jar包中的文件，正常运行后还是提示错误，后来发现是原来delphi编译器没有设置安卓的权限，可是这也让我稍微学习到一点，只要将安卓的jar文件转换下能让delphi调用，应该是所有的api都可以实现调用了吧，稍微参考下网上其他编程工具写的代码就可以转换为delphi的代码，挺兴奋的，终于近了一步，大富翁论坛上看到官方也提供了一个转换工具，只能提供给正式版用户使用，暂时下载不到，以后学习的时候再说吧，顺便附上我转换的几个文件，再次感谢 爱吃猪头肉 QQ: 1444386932 提供的这么好的工具，膜拜下...
unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Layouts, FMX.Memo, FMX.StdCtrls;type TForm1 = class(TForm) Button1: TButton; mmo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } procedure print(str:string) ; public { Public declarations } /// <summary> /// 检测安卓WIFI状态 /// </summary> /// <returns> /// 返回WIFI状态 /// </returns> function IsWiFiConnected: Boolean; end;var Form1: TForm1;implementation{$R *.fmx}uses Androidapi.JNI.android.net.ConnectivityManager, Androidapi.JNI.android.net.NetworkInfo, Androidapi.JNI.android.net.NetworkInfo_DetailedState, Androidapi.JNI.android.net.NetworkInfo_State, FMX.Helpers.Android,Androidapi.JNI.JavaTypes, Androidapi.JNI.GraphicsContentViewText,FMX.Platform.Android, Androidapi.JNIBridge, Androidapi.JNI.Provider,Androidapi.Helpers, AndroidAPI.jni.OS;{ TForm1 }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;procedure TForm1.Button1Click(Sender: TObject);begin if IsWiFiConnected then begin print(‘wifi正常‘); end else begin print(‘wifi断开‘); end;end;function TForm1.IsWiFiConnected: Boolean;var ConnectivityManager: JConnectivityManager; WiFiNetwork: JNetworkInfo;begin ConnectivityManager := GetConnectivityManager; WiFiNetwork := ConnectivityManager.getNetworkInfo(TJConnectivityManager.JavaClass.TYPE_WIFI); Result := WiFiNetwork.isConnected;end;procedure TForm1.print(str: string);begin mmo1.Lines.Add(str)end;end.
//====================================================//// 转换来自JavaClassToDelphiUnit// 原始作者：ying32// QQ: 1444386932// 396506155// Email：yuanfen3287@vip.qq.com//// 修改 By：Flying Wang & 爱吃猪头肉// 请不要移除以上的任何信息。// 请不要将本版本发到城通网盘，否则死全家。//// Email：1765535979@qq.com//// 生成时间：2014/12/18 星期四 18:19:34// 工具版本：1.0.2014.12.12////====================================================unit Androidapi.JNI.android.net.ConnectivityManager;interfaceuses Androidapi.JNI.android.net.NetworkInfo, Androidapi.JNIBridge, Androidapi.JNI.JavaTypes, Androidapi.JNI.Net;type// ===== Forward declarations ===== JConnectivityManager = interface; //android.net.ConnectivityManager// ===== Interface declarations ===== JConnectivityManagerClass = interface(JObjectClass) [‘{713DEEDA-A465-4951-9D56-271FB50EBEBE}‘] { static Property Methods } {class} function _GetCONNECTIVITY_ACTION: JString; {class} function _GetEXTRA_NETWORK_INFO: JString; {class} function _GetEXTRA_IS_FAILOVER: JString; {class} function _GetEXTRA_OTHER_NETWORK_INFO: JString; {class} function _GetEXTRA_NO_CONNECTIVITY: JString; {class} function _GetEXTRA_REASON: JString; {class} function _GetEXTRA_EXTRA_INFO: JString; {class} function _GetACTION_BACKGROUND_DATA_SETTING_CHANGED: JString; {class} function _GetTYPE_MOBILE: Integer; {class} function _GetTYPE_WIFI: Integer; {class} function _GetTYPE_MOBILE_MMS: Integer; {class} function _GetTYPE_MOBILE_SUPL: Integer; {class} function _GetTYPE_MOBILE_DUN: Integer; {class} function _GetTYPE_MOBILE_HIPRI: Integer; {class} function _GetTYPE_WIMAX: Integer; {class} function _GetTYPE_BLUETOOTH: Integer; {class} function _GetTYPE_DUMMY: Integer; {class} function _GetTYPE_ETHERNET: Integer; {class} function _GetDEFAULT_NETWORK_PREFERENCE: Integer; { static Methods } {class} function isNetworkTypeValid(P1: Integer): Boolean; cdecl; { static Property } {class} property CONNECTIVITY_ACTION: JString read _GetCONNECTIVITY_ACTION; {class} property EXTRA_NETWORK_INFO: JString read _GetEXTRA_NETWORK_INFO; {class} property EXTRA_IS_FAILOVER: JString read _GetEXTRA_IS_FAILOVER; {class} property EXTRA_OTHER_NETWORK_INFO: JString read _GetEXTRA_OTHER_NETWORK_INFO; {class} property EXTRA_NO_CONNECTIVITY: JString read _GetEXTRA_NO_CONNECTIVITY; {class} property EXTRA_REASON: JString read _GetEXTRA_REASON; {class} property EXTRA_EXTRA_INFO: JString read _GetEXTRA_EXTRA_INFO; {class} property ACTION_BACKGROUND_DATA_SETTING_CHANGED: JString read _GetACTION_BACKGROUND_DATA_SETTING_CHANGED; {class} property TYPE_MOBILE: Integer read _GetTYPE_MOBILE; {class} property TYPE_WIFI: Integer read _GetTYPE_WIFI; {class} property TYPE_MOBILE_MMS: Integer read _GetTYPE_MOBILE_MMS; {class} property TYPE_MOBILE_SUPL: Integer read _GetTYPE_MOBILE_SUPL; {class} property TYPE_MOBILE_DUN: Integer read _GetTYPE_MOBILE_DUN; {class} property TYPE_MOBILE_HIPRI: Integer read _GetTYPE_MOBILE_HIPRI; {class} property TYPE_WIMAX: Integer read _GetTYPE_WIMAX; {class} property TYPE_BLUETOOTH: Integer read _GetTYPE_BLUETOOTH; {class} property TYPE_DUMMY: Integer read _GetTYPE_DUMMY; {class} property TYPE_ETHERNET: Integer read _GetTYPE_ETHERNET; {class} property DEFAULT_NETWORK_PREFERENCE: Integer read _GetDEFAULT_NETWORK_PREFERENCE; end; [JavaSignature(‘android/net/ConnectivityManager‘)] JConnectivityManager = interface(JObject) [‘{0DF48060-8B57-4DEF-8BC1-1D9D2DBF9D5D}‘] { Property Methods } { methods } procedure setNetworkPreference(preference: Integer); cdecl; function getNetworkPreference: Integer; cdecl; function getActiveNetworkInfo: JNetworkInfo; cdecl; function getNetworkInfo(networkType: Integer): JNetworkInfo; cdecl; function getAllNetworkInfo: TJavaObjectArray<JNetworkInfo>; cdecl; function startUsingNetworkFeature(networkType: Integer; feature: JString): Integer; cdecl; function stopUsingNetworkFeature(networkType: Integer; feature: JString): Integer; cdecl; function requestRouteToHost(networkType: Integer; hostAddress: Integer): Boolean; cdecl; function getBackgroundDataSetting: Boolean; cdecl; { Property } end; TJConnectivityManager = class(TJavaGenericImport<JConnectivityManagerClass, JConnectivityManager>) end;implementationprocedure RegisterTypes;begin TRegTypes.RegisterType(‘Androidapi.JNI.android.net.ConnectivityManager.JConnectivityManager‘, TypeInfo(Androidapi.JNI.android.net.ConnectivityManager.JConnectivityManager));end;initialization RegisterTypes;end.
//====================================================//// 转换来自JavaClassToDelphiUnit// 原始作者：ying32// QQ: 1444386932// 396506155// Email：yuanfen3287@vip.qq.com//// 修改 By：Flying Wang & 爱吃猪头肉// 请不要移除以上的任何信息。// 请不要将本版本发到城通网盘，否则死全家。//// Email：1765535979@qq.com//// 生成时间：2014/12/18 星期四 18:24:32// 工具版本：1.0.2014.12.12////====================================================unit Androidapi.JNI.android.net.NetworkInfo;interfaceuses Androidapi.JNI.android.net.NetworkInfo_DetailedState, Androidapi.JNI.android.net.NetworkInfo_State, Androidapi.JNIBridge, Androidapi.JNI.JavaTypes, Androidapi.JNI.Net, Androidapi.JNI.os;type// ===== Forward declarations ===== JNetworkInfo = interface; //android.net.NetworkInfo// ===== Interface declarations ===== JNetworkInfoClass = interface(JObjectClass) [‘{9C1E2D18-F7E9-4D0C-8844-F238B372540E}‘] { static Property Methods } { static Methods } { static Property } end; [JavaSignature(‘android/net/NetworkInfo‘)] JNetworkInfo = interface(JObject) [‘{C5EE947D-2A5A-47AA-A24D-3A7DAFFEF54F}‘] { Property Methods } { methods } function getType: Integer; cdecl; function getSubtype: Integer; cdecl; function getTypeName: JString; cdecl; function getSubtypeName: JString; cdecl; function isConnectedOrConnecting: Boolean; cdecl; function isConnected: Boolean; cdecl; function isAvailable: Boolean; cdecl; function isFailover: Boolean; cdecl; function isRoaming: Boolean; cdecl; function getState: JNetworkInfo_State; cdecl; function getDetailedState: JNetworkInfo_DetailedState; cdecl; function getReason: JString; cdecl; function getExtraInfo: JString; cdecl; function toString: JString; cdecl; function describeContents: Integer; cdecl; procedure writeToParcel(dest: JParcel; flags: Integer); cdecl; { Property } end; TJNetworkInfo = class(TJavaGenericImport<JNetworkInfoClass, JNetworkInfo>) end;implementationprocedure RegisterTypes;begin TRegTypes.RegisterType(‘Androidapi.JNI.android.net.NetworkInfo.JNetworkInfo‘, TypeInfo(Androidapi.JNI.android.net.NetworkInfo.JNetworkInfo));end;initialization RegisterTypes;end.
//====================================================//// 转换来自JavaClassToDelphiUnit// 原始作者：ying32// QQ: 1444386932// 396506155// Email：yuanfen3287@vip.qq.com//// 修改 By：Flying Wang & 爱吃猪头肉// 请不要移除以上的任何信息。// 请不要将本版本发到城通网盘，否则死全家。//// Email：1765535979@qq.com//// 生成时间：2014/12/18 星期四 18:36:59// 工具版本：1.0.2014.12.12////====================================================unit Androidapi.JNI.android.net.NetworkInfo_DetailedState;interfaceuses Androidapi.JNIBridge, Androidapi.JNI.JavaTypes, Androidapi.JNI.Net;type// ===== Forward declarations ===== JNetworkInfo_DetailedState = interface; //android.net.NetworkInfo$DetailedState// ===== Interface declarations ===== JNetworkInfo_DetailedStateClass = interface(JObjectClass) [‘{3E279658-127E-48B4-A265-DCA4F6D19729}‘] { static Property Methods } {class} function _GetAUTHENTICATING: JNetworkInfo_DetailedState; {class} function _GetBLOCKED: JNetworkInfo_DetailedState; {class} function _GetCONNECTED: JNetworkInfo_DetailedState; {class} function _GetCONNECTING: JNetworkInfo_DetailedState; {class} function _GetDISCONNECTED: JNetworkInfo_DetailedState; {class} function _GetDISCONNECTING: JNetworkInfo_DetailedState; {class} function _GetFAILED: JNetworkInfo_DetailedState; {class} function _GetIDLE: JNetworkInfo_DetailedState; {class} function _GetOBTAINING_IPADDR: JNetworkInfo_DetailedState; {class} function _GetSCANNING: JNetworkInfo_DetailedState; {class} function _GetSUSPENDED: JNetworkInfo_DetailedState; { static Methods } {class} function values: TJavaObjectArray<JNetworkInfo_DetailedState>; cdecl; {class} function valueOf(P1: JString): JNetworkInfo_DetailedState; cdecl; { static Property } {class} property AUTHENTICATING: JNetworkInfo_DetailedState read _GetAUTHENTICATING; {class} property BLOCKED: JNetworkInfo_DetailedState read _GetBLOCKED; {class} property CONNECTED: JNetworkInfo_DetailedState read _GetCONNECTED; {class} property CONNECTING: JNetworkInfo_DetailedState read _GetCONNECTING; {class} property DISCONNECTED: JNetworkInfo_DetailedState read _GetDISCONNECTED; {class} property DISCONNECTING: JNetworkInfo_DetailedState read _GetDISCONNECTING; {class} property FAILED: JNetworkInfo_DetailedState read _GetFAILED; {class} property IDLE: JNetworkInfo_DetailedState read _GetIDLE; {class} property OBTAINING_IPADDR: JNetworkInfo_DetailedState read _GetOBTAINING_IPADDR; {class} property SCANNING: JNetworkInfo_DetailedState read _GetSCANNING; {class} property SUSPENDED: JNetworkInfo_DetailedState read _GetSUSPENDED; end; [JavaSignature(‘android/net/NetworkInfo$DetailedState‘)] JNetworkInfo_DetailedState = interface(JObject) [‘{B310D74B-786C-460B-A6E5-CEA0BFDF8986}‘] { Property Methods } { methods } { Property } end; TJNetworkInfo_DetailedState = class(TJavaGenericImport<JNetworkInfo_DetailedStateClass, JNetworkInfo_DetailedState>) end;implementationprocedure RegisterTypes;begin TRegTypes.RegisterType(‘Androidapi.JNI.android.net.NetworkInfo_DetailedState.JNetworkInfo_DetailedState‘, TypeInfo(Androidapi.JNI.android.net.NetworkInfo_DetailedState.JNetworkInfo_DetailedState));end;initialization RegisterTypes;end.
//====================================================//// 转换来自JavaClassToDelphiUnit// 原始作者：ying32// QQ: 1444386932// 396506155// Email：yuanfen3287@vip.qq.com//// 修改 By：Flying Wang & 爱吃猪头肉// 请不要移除以上的任何信息。// 请不要将本版本发到城通网盘，否则死全家。//// Email：1765535979@qq.com//// 生成时间：2014/12/18 星期四 18:35:41// 工具版本：1.0.2014.12.12////====================================================unit Androidapi.JNI.android.net.NetworkInfo_State;interfaceuses Androidapi.JNIBridge, Androidapi.JNI.JavaTypes, Androidapi.JNI.Net;type// ===== Forward declarations ===== JNetworkInfo_State = interface; //android.net.NetworkInfo$State// ===== Interface declarations ===== JNetworkInfo_StateClass = interface(JObjectClass) [‘{7984D00F-5A1B-4208-9D34-8E474879A636}‘] { static Property Methods } {class} function _GetCONNECTED: JNetworkInfo_State; {class} function _GetCONNECTING: JNetworkInfo_State; {class} function _GetDISCONNECTED: JNetworkInfo_State; {class} function _GetDISCONNECTING: JNetworkInfo_State; {class} function _GetSUSPENDED: JNetworkInfo_State; {class} function _GetUNKNOWN: JNetworkInfo_State; { static Methods } {class} function values: TJavaObjectArray<JNetworkInfo_State>; cdecl; {class} function valueOf(P1: JString): JNetworkInfo_State; cdecl; { static Property } {class} property CONNECTED: JNetworkInfo_State read _GetCONNECTED; {class} property CONNECTING: JNetworkInfo_State read _GetCONNECTING; {class} property DISCONNECTED: JNetworkInfo_State read _GetDISCONNECTED; {class} property DISCONNECTING: JNetworkInfo_State read _GetDISCONNECTING; {class} property SUSPENDED: JNetworkInfo_State read _GetSUSPENDED; {class} property UNKNOWN: JNetworkInfo_State read _GetUNKNOWN; end; [JavaSignature(‘android/net/NetworkInfo$State‘)] JNetworkInfo_State = interface(JObject) [‘{D13A31B6-1E02-49B7-A926-DF64671A1814}‘] { Property Methods } { methods } { Property } end; TJNetworkInfo_State = class(TJavaGenericImport<JNetworkInfo_StateClass, JNetworkInfo_State>) end;implementationprocedure RegisterTypes;begin TRegTypes.RegisterType(‘Androidapi.JNI.android.net.NetworkInfo_State.JNetworkInfo_State‘, TypeInfo(Androidapi.JNI.android.net.NetworkInfo_State.JNetworkInfo_State));end;initialization RegisterTypes;end.
delphiXE7关于android API的使用和检测WIFI状态的问题
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。