用户注册



邮箱:

密码:

用户登录


邮箱:

密码:
记住登录一个月忘记密码?

发表随想


还能输入:200字
云代码 - delphi代码库

Delphi开发的app如何调用外部app

2022-08-26 作者: 云代码会员举报

[delphi]代码库

Delphi开发的app如何调用外部app
 
Delphi
67 篇文章0 订阅
订阅专栏
uses
 
  Androidapi.JNI.JavaTypes,//JString使用
 
  Androidapi.JNI.GraphicsContentViewText,//JIntent使用
 
  FMX.Surfaces,//TBitmapSurface使用
 
  Androidapi.Helpers,//SharedActivity使用
 
  System.IOUtils,//TPath使用
 
  Androidapi.JNIBridge,//ILocalObject使用
 
//打开APP方法
 
procedure TForm1.OpenApp(PackageName, AppName: JString);
 
var
 
  Intent : JIntent;
 
  NativeComponent : JComponentName;
 
begin
 
  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);
 
  SharedActivity.startActivity(Intent);
 
end;//调用
 
打开APP
 
procedure TForm1.Button1Click(Sender: TObject);
 
 begin
 
OpenApp(StringToJString('com.androidillusion.videocamillusionpro'),
 
StringToJString('com.androidillusion.videocamillusionpro.VideoillusionActivity'));
 
end;
————————————————
版权声明:本文为CSDN博主「蝈蝈(GuoGuo)」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/delphigbg/article/details/119201002


网友评论    (发表评论)


发表评论:

评论须知:

  • 1、评论每次加2分,每天上限为30;
  • 2、请文明用语,共同创建干净的技术交流环境;
  • 3、若被发现提交非法信息,评论将会被删除,并且给予扣分处理,严重者给予封号处理;
  • 4、请勿发布广告信息或其他无关评论,否则将会删除评论并扣分,严重者给予封号处理。


扫码下载

加载中,请稍后...

输入口令后可复制整站源码

加载中,请稍后...