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编辑环境

Delphi twebbrowser出现 method pastehtml not supported by automation object 解决方法

Delphi 控制台程序加图标方法

pascal 语言中的关键字及保留字

Delphi遍历文件目录

minsperday：一天中有多少分钟

Delphi中判断字符串是否为数字

Delphi编程之系统oem diy

Delphi字符串内多个空格合为一个空格

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

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