如何通過 delphi 代碼在 android 設備上啟用 HotSpot

Question

通過這個 delphi 代碼，我可以在 android 設備上啟用 wifi。

    var    WiFIServiceNative: JWifiManager;
    
    begin
     WiFIServiceNative := 
      JWifiManager.Wrap(TAndroidHelper.Context.getSystemService(TJContext.JavaClass.WIFI_SERVICE));
     if Assigned(WiFIServiceNative) then
      TJWifiManager.JavaClass.WIFI_STATE_ENABLED
    end;

如何通過 delphi 代碼啟用熱點。

Answer 1

我也在嘗試通過 delphi 的代碼啟用熱點。目前，如果您需要，這是打開相關菜單的代碼。

  procedure TForm1.Button1Click(Sender: TObject);
var
Intent : JIntent;
NativeComponent : JComponentName;
PackageName:Jstring;
AppName:JString;
begin

PackageName:=StringToJString('com.android.settings');
AppName:=StringToJString('com.android.settings.TetherSettings');

Intent := TJIntent.Create;
Intent.setAction(TJIntent.JavaClass.ACTION_MAIN);
Intent.addCategory(TJIntent.JavaClass.CATEGORY_LAUNCHER);
NativeComponent := TJComponentName.JavaClass.init(PackageName, AppName);
Intent.addFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK or TJIntent.JavaClass.FLAG_ACTIVITY_RESET_TASK_IF_NEEDED);


Intent.setComponent(NativeComponent);
Intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK) ;
SharedActivity.startActivity(Intent);

end;