如何通过 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;