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 listbox模糊查找文字

Delphi拖动窗体超简单实现

Delphi 命令行程序调用单元函数

Delphi 简单的定时程序代码

Delphi 中的split 函数

Delphi edit只能输入数字或小数点

Delphi二值图像投影算法

Delphi 暴力保护进程

Delphi编程之win10桌面图标设置

Delphi xe10 传感器操作

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

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