本文整理自网络,侵删。
//要用到的单元uses Androidapi.JNI.GraphicsContentViewText, Androidapi.JNI.Net, Androidapi.Helpers;
//使用方法procedure TForm1.Button1Click(Sender: TObject);var AInte: JIntent; AUrl: Jnet_Uri;begin //打开支付宝付款页面 AUrl := StrToJURI('alipayqr://platformapi/startapp?appId=20000056'); AInte:= TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW, AUrl); TAndroidHelper.Context.startActivity(AInte);
// 原来:www.delphifmx.com// 当然还包括以下支付宝界面,其它支付宝界面请自行网络查询// 10000007 支付宝扫一扫// 20000056 向商家付款// 20000168 支付宝记账// 20000778 支付宝滴滴// 60000002 支付宝蚂蚁森林// 20000116 支付宝转账界面// 10000003 支付宝手机充值
end;
相关阅读 >>
Delphi idhashmessagedigest, idhash, idglobal md5
[译]rad studio 10.4 新变化:面向控件的 vcl 样式管理
Delphi xe增强的rtti妙用--动态创建包中的窗口类
更多相关阅读请进入《Delphi》频道 >>