Delphiでアンドロイドデバイスでwi-fiをプログラムで有効にするにはどうすればよいですか？

Question

デルファイのAndroid搭載端末でwi-fiをプログラムで有効または無効にする必要がありました。

Answer 1

このサンプルでは、​​この問題を解決することができます：

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"