Android实例-监测网络状态及一些事件(XE8+小米2)

结果：

1.网络连接：是指现在可不可以上网(你非要问我什么是网，我会K你呀的)。

2.WIFI网络：是指现在可以上网，用的是不是WIFI网络(如果你打开了WIFI那它会显示正在使用WIFI)。

3.移动网络：是指现在可以上网，用的是不是移动网络(如果你打开了移动的数据流量它会显示移动网络)。

PS：

打开权限Project -> Options… -> Users permitions-> Access network state -> True。

第三方单元：

 unit Androidapi.JNI.Network;

 interface

 function IsConnected: Boolean;

 function IsWiFiConnected: Boolean;

 function IsMobileConnected: Boolean;

 implementation

 uses

   System.SysUtils,

   Androidapi.JNIBridge,

   Androidapi.JNI.GraphicsContentViewText,

   Androidapi.JNI.JavaTypes,

   FMX.Helpers.Android,

   Androidapi.Helpers;//需要引入

 type

   JConnectivityManager = interface;

   JNetworkInfo = interface;

   JNetworkInfoClass = interface(JObjectClass)

   ['{E92E86E8-0BDE-4D5F-B44E-3148BD63A14C}']

   end;

   [JavaSignature('android/net/NetworkInfo')]

   JNetworkInfo = interface(JObject)

   ['{6DF61A40-8D17-4E51-8EF2-32CDC81AC372}']

     {Methods}

     function isAvailable: Boolean; cdecl;

     function isConnected: Boolean; cdecl;

     function isConnectedOrConnecting: Boolean; cdecl;

   end;

   TJNetworkInfo = class(TJavaGenericImport<JNetworkInfoClass, JNetworkInfo>) end;

   JConnectivityManagerClass = interface(JObjectClass)

   ['{E03A261F-59A4-4236-8CDF-0068FC6C5FA1}']

     {Property methods}

     function _GetTYPE_WIFI: Integer; cdecl;

     function _GetTYPE_WIMAX: Integer; cdecl;

     function _GetTYPE_MOBILE: Integer; cdecl;

     {Properties}

     property TYPE_WIFI: Integer read _GetTYPE_WIFI;

     property TYPE_WIMAX: Integer read _GetTYPE_WIMAX;

     property TYPE_MOBILE: Integer read _GetTYPE_MOBILE;

   end;

   [JavaSignature('android/net/ConnectivityManager')]

   JConnectivityManager = interface(JObject)

   ['{1C4C1873-65AE-4722-8EEF-36BBF423C9C5}']

     {Methods}

     function getActiveNetworkInfo: JNetworkInfo; cdecl;

     function getNetworkInfo(networkType: Integer): JNetworkInfo; cdecl;

   end;

   TJConnectivityManager = class(TJavaGenericImport<JConnectivityManagerClass, JConnectivityManager>) end;

 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;

 function IsConnected: Boolean;

 var

   ConnectivityManager: JConnectivityManager;

   ActiveNetwork: JNetworkInfo;

 begin

   ConnectivityManager := GetConnectivityManager;

   ActiveNetwork := ConnectivityManager.getActiveNetworkInfo;

   Result := Assigned(ActiveNetwork) and ActiveNetwork.isConnected;

 end;

 function IsWiFiConnected: Boolean;

 var

   ConnectivityManager: JConnectivityManager;

   WiFiNetwork: JNetworkInfo;

 begin

   ConnectivityManager := GetConnectivityManager;

   WiFiNetwork := ConnectivityManager.getNetworkInfo(TJConnectivityManager.JavaClass.TYPE_WIFI);

   Result := WiFiNetwork.isConnected;

 end;

 function IsMobileConnected: Boolean;

 var

   ConnectivityManager: JConnectivityManager;

   MobileNetwork: JNetworkInfo;

 begin

   ConnectivityManager := GetConnectivityManager;

   MobileNetwork := ConnectivityManager.getNetworkInfo(TJConnectivityManager.JavaClass.TYPE_MOBILE);

   Result := MobileNetwork.isConnected;

 end;

 end.

实例代码：

 unit Unit1;

 interface

 uses

   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,

   FMX.Controls.Presentation,

   Androidapi.JNI.Network, //需要引入

   FMX.Platform, //需要引入

   FMX.ScrollBox, FMX.Memo;

 type

   TForm1 = class(TForm)

     Button1: TButton;

     Label1: TLabel;

     Button2: TButton;

     Button3: TButton;

     Memo1: TMemo;

     procedure Button1Click(Sender: TObject);

     procedure FormCreate(Sender: TObject);

     procedure Button2Click(Sender: TObject);

     procedure Button3Click(Sender: TObject);

   private

     { Private declarations }

   public

     function HandleAppEvent(AAppEvent: TApplicationEvent; AContext: TObject): Boolean;

     procedure Log(s: string);

     { Public declarations }

   end;

 var

   Form1: TForm1;

 implementation

 {$R *.fmx}

 {$R *.NmXhdpiPh.fmx ANDROID}

 procedure TForm1.Button1Click(Sender: TObject);

 begin

   if IsConnected then

     Label1.Text := '网络连接正常！'

   else

     Label1.Text := '没有网络连接！';

 end;

 procedure TForm1.Button2Click(Sender: TObject);

 begin

   if IsWiFiConnected then

     Label1.Text := 'WiFi 连接正常！'

   else

     Label1.Text := 'WiFi 连接断开！';

 end;

 procedure TForm1.Button3Click(Sender: TObject);

 begin

   if IsMobileConnected then

     Label1.Text := '移动网络连接正常！'

   else

     Label1.Text := '移动网络连接断开！';

 end;

 procedure TForm1.FormCreate(Sender: TObject);

 var

   aFMXApplicationEventService: IFMXApplicationEventService;

 begin

   if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationEventService, IInterface(aFMXApplicationEventService)) then

     aFMXApplicationEventService.SetApplicationEventHandler(HandleAppEvent)

   else

     Log('Application Event Service is not supported.');

 end;

 //监测函数，此处仅仅调用 log 记录一下事件名称，你可以替换为你自己的函数

 function TForm1.HandleAppEvent(AAppEvent: TApplicationEvent;

   AContext: TObject): Boolean;

 begin

   case AAppEvent of

     TApplicationEvent.aeFinishedLaunching: Log('Finished Launching');

     TApplicationEvent.aeBecameActive: Log('Became Active');

     TApplicationEvent.aeWillBecomeInactive: Log('Will Become Inactive');

     TApplicationEvent.aeEnteredBackground: Log('Entered Background');

     TApplicationEvent.aeWillBecomeForeground: Log('Will Become Foreground');

     TApplicationEvent.aeWillTerminate: Log('Will Terminate');

     TApplicationEvent.aeLowMemory: Log('Low Memory');

     TApplicationEvent.aeTimeChange: Log('Time Change');

     TApplicationEvent.aeOpenURL: Log('Open URL');

   end;

   Result := True;

 end;

 procedure TForm1.Log(s: string);

 begin

   Memo1.Lines.Add(TimeToStr(Now) + ': ' + s);

 end;

 end.

巴特西

Android实例-监测网络状态及一些事件(XE8+小米2)

最新文章

热门文章