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;

推荐分享