作者热门文章
- Java 双重比较
- java - 比较器与 Apache BeanComparator
- Objective-C 完成 block 导致额外的方法调用?
- database - RESTful URI 是否应该公开数据库主键?
我需要在我的 Android 设备上使用 Delphi 以编程方式启用和禁用 Wi-Fi。
最佳答案
这个示例可以解决这个问题:
procedure TForm1.btWiFiEnableClick(Sender: TObject);
var
WiFIServiceNative: JWifiManager;
begin
// https://developer.android.com/reference/android/net/wifi/WifiManager.html#getWifiState()
// https://developer.android.com/reference/android/net/wifi/WifiManager.html#WIFI_STATE_DISABLED
WiFIServiceNative := TJWifiManager.Wrap(TAndroidHelper.Context.getSystemService(TJContext.JavaClass.WIFI_SERVICE));
if Assigned(WiFIServiceNative) then begin
Memo1.Lines.Add('Has Wifi manager');
Memo1.Lines.Add('Wifi state is ' + IntToStr(WiFIServiceNative.getWifiState));
// if WiFIServiceNative.getWifiState = TJWifiManager.JavaClass.WIFI_STATE_DISABLED then
if WiFIServiceNative.getWifiState < 2 then // WIFI_STATE_DISABLING or WIFI_STATE_DISABLED
begin
Memo1.Lines.Add('Try to Wi-Fi on:');
if WiFIServiceNative.setWifiEnabled(true) then
Memo1.Lines.Add(' - ' + IntToStr(TJWifiManager.JavaClass.WIFI_STATE_ENABLED) + ' OK')
else
Memo1.Lines.Add(' - FAIL');
end else begin
Memo1.Lines.Add('Try to Wi-Fi off:');
if WiFIServiceNative.setWifiEnabled(false) then
Memo1.Lines.Add(' - ' + IntToStr(TJWifiManager.JavaClass.WIFI_STATE_DISABLED) + ' OK')
else
Memo1.Lines.Add(' - FAIL');
end;
end;
end;
它需要使用以下权限:
android:name="android.permission.ACCESS_WIFI_STATE"
android:name="android.permission.WRITE_SETTINGS"
关于android - 如何在 Delphi 中以编程方式在 android 设备上启用 wi-fi?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/37587098/
我是一名优秀的程序员,十分优秀!