delphi fmx 从App程序直接跳转到支付宝付款转帐页面

本文整理自网络，侵删。

 
// 要用到的单元
uses
Androidapi.JNI.GraphicsContentViewText,  Androidapi.Helpers;


procedure TForm1.Button1Click(Sender: TObject);
var
AIntent: JIntent;
ACode, AUrl:string;
begin
ACode:='fkx02276cbc6y0wchg5cac3';
//如：以上为我的支付宝二维码  www.delphifmx.com
AUrl:='intent://platformapi/startapp?saId=10000007'
+'&clientVersion=3.7.0.0718'
+'&qrcode=https%3A%2F%2Fqr.alipay.com%2F'+ACode+'%3F_s'
+'%3Dweb-other&_t=1472443966571#Intent'
+';scheme=alipayqr'
+';package=com.eg.android.AlipayGphone'
+';end';
AIntent:= TJIntent.JavaClass.parseUri(stringToJstring(AUrl), TJIntent.JavaClass.URI_INTENT_SCHEME);
TAndroidHelper.Context.startActivity(AIntent);

end;

//来源：http://www.delphifmx.com/node/51
 

相关阅读 >>

Delphi sysutils.trim、sysutils.trimleft、sysutils.trimright - 删除空格

Delphi inttohex 查看字符的十六进制值

Delphi mysql里Delphi事件类型转unix时间戳

Delphi 动态创建窗体

Delphi fdmemtable内存表操作

Delphi2010 无法继承窗体的bug

Delphi firedac 下的 sqlite [6] - 加密

Delphi 判断目录是否存在,不存在则创建目录并打开,存在则直接打开

Delphi分割字符串的函数--extractstrings

Delphi 遍历pe文件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi fmx 从App程序直接跳转到支付宝付款转帐页面