procedure TForm3.Button1Click(Sender: TObject);

var

  PayTask: JPayTask;

  PayClass: JPayTaskClass;

  JOrderInfo: JString;

  OrderInfo,Sign: String;

begin

  PayClass := TJPayTask.JavaClass;

  PayTask := PayClass.init(MainActivity);

  OrderInfo := Self.getOrderInfo(\'abcd\',\'body\',\'0.01\');

  sign := Self.Sign(OrderInfo);

  OrderInfo := OrderInfo + \'&sign="\'+sign+\'"\';

  OrderInfo := OrderInfo + \'&sign_type="RSA"\';

  Self.Memo1.Lines.Text := OrderInfo;  //调试用，你懂的。

  JOrderInfo := StringToJString(OrderInfo);

  PayTask.pay(JOrderInfo);

end;

function TForm3.getOrderInfo(subject, body, price: string): string;

var

  s: string;

begin

              // 签约合作者身份ID

  s := \'partner="\' + PARTNER + \'"\';

              // 签约卖家支付宝账号

  s := s + \'&seller_id="\' + SELLER + \'"\';

              // 商户网站唯一订单号

       s := s+ \'&out_trade_no="\' + getOutTradeNo + \'"\';

     // 商品名称

  s := s + \'&subject="\' + subject + \'"\';

              // 商品详情

  s := s + \'&body="\' + body + \'"\';

              // 商品金额

  s := s + \'&total_fee="\' + price + \'"\';

              // 服务器异步通知页面路径

  s := s + \'&notify_url="\' + \'http://你的业务后台地址，一定要写，要合法"\';

              // 服务接口名称， 固定值

  s := s + \'&service="mobile.securitypay.pay"\';

              // 支付类型， 固定值

  s := s + \'&payment_type="1"\';

              // 参数编码， 固定值

  s := s + \'&_input_charset="utf-8"\';

              // 设置未付款交易的超时时间

              // 默认30分钟，一旦超时，该笔交易就会自动被关闭。

              // 取值范围：1m～15d。

              // m-分钟，h-小时，d-天，1c-当天（无论交易何时创建，都在0点关闭）。

              // 该参数数值不接受小数点，如1.5h，可转换为90m。

  s := s + \'&it_b_pay="30m"\';

              // extern_token为经过快登授权获取到的alipay_open_id,带上此参数用户将使用授权的账户进行支付

              // orderInfo += "&extern_token=" + "\"" + extern_token + "\"";

              // 支付宝处理完请求后，当前页面跳转到商户指定页面的路径，可空

  s := s + \'&return_url="m.alipay.com"\';

              // 调用银行卡支付，需配置此参数，参与签名， 固定值 （需要签约《无线银行卡快捷支付》才能使用）

              // orderInfo += "&paymethod=\"expressGateway\"";

  Result := s;

end;

function TForm3.getOutTradeNo: string;

var

  G: TGuid;

  S: string;

begin

  G := TGuid.NewGuid;

  S := G.ToString;

  S := S.Substring(0,15);

  Result := \'abcdefghijklmn\';

end;

function TForm3.Sign(const Orders: string): string;

var

  SignClass: JSignUtilsClass;

  Js,jpri: JString;

begin

  Result := \'\';

  try

    Js := StringToJString(Orders);

    JPri := StringToJString(RSA_PRIVATE);

    SignClass := TJSignUtils.JavaClass;

    SignClass.init;

    js := SignClass.sign(js,jpri);

    //js := SignClass.DoURLEncode(js);

    Result := JStringToString(js);

  finally

  end;