Delphi XE7的Android应用设定Wifi的有效无效

本文整理自网络，侵删。

 
type
  TForm1 = class(TForm)
    procedure SetWifiEnabled(Enabled: Boolean);

  end;

uses
  Androidapi.Helpers,
  Androidapi.JNI.JavaTypes,
  Androidapi.JNI.GraphicsContentViewText,
  Androidapi.JNIBridge,
  Androidapi.JNI.WifiManager;

procedure TForm1.SetWifiEnabled(Enabled: Boolean);
var
  Obj: JObject;
  WifiManager: JWifiManager;
begin
  Obj := SharedActivityContext.getSystemService
    (TJContext.JavaClass.WIFI_SERVICE);
  if Obj = nil then
    Exit;
  WifiManager := TJWiFiManager.Wrap((Obj as ILocalObject).GetObjectID);
  WifiManager.setWifiEnabled(Enabled);
end;
 

相关阅读 >>

Delphi中利用中断获得系统启动以来的时间

Delphi webservices 字节数组 base64编码

settimer函数用法

Delphi之tstrings和tstringlists类

Delphi 获取指定年月的周、日数

Delphi 2010下使用sqlitesimpleDelphi连接sqlite数据库及中文乱码问题的解决

Delphi idhttp 验证码登录

Delphi memo1 数字列设定取值范围

Delphi 获取文件创建时间

Delphi 如何编写需要启动参数的Delphi程序

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi XE7的Android应用设定Wifi的有效无效