delphi7微信支付宝支付单机版前台源码

delphi7微信支付宝支付单机版前台源码

try
NonceStr := GetRandomStr(NONCE_STR);
ListStr.Values[‘appid’] := appidstr; // 换成自己的公众账号
ListStr.Values[‘mch_id’] := mchidstr; // 换成自己的商户号
// ListStr.Values[‘sub_mch_id’] := sub_mchidstr;
ListStr.Values[‘nonce_str’] := NonceStr;
ListStr.Values[‘body’] := ‘大英汽车站’; // 商品描述
ListStr.Values[‘out_trade_no’] := edtOrdNum.Text; // 商户订单号
ListStr.Values[‘total_fee’] := currtostr(strtocurr(edtje.Text) * 100); // 总金额
ListStr.Values[‘spbill_create_ip’] := Spbill_Create_Ip;
ListStr.Values[‘auth_code’] := edttm.Text;
ListStr.Sort;
ListStr.Values[‘key’] := keyidstr; // 换成自己 KEY
ParamStr1.Values[‘appid’] := appidstr;
ParamStr1.Values[‘mch_id’] := mchidstr;
// ParamStr1.Values[‘sub_mch_id’] := sub_mchidstr;
ParamStr1.Values[‘nonce_str’] := NonceStr;
ParamStr1.Values[‘body’] := ‘大英汽车站’; // 商品描述
ParamStr1.Values[‘out_trade_no’] := edtOrdNum.Text; // 商户订单号
ParamStr1.Values[‘total_fee’] := currtostr(strtocurr(edtje.Text) * 100); // 总金额
ParamStr1.Values[‘spbill_create_ip’] := Spbill_Create_Ip;
ParamStr1.Values[‘auth_code’] := edttm.Text;
ParamStr1.Values[‘sign’] := UpperCase(MD5.StrToMD5(AnsiToUtf8(GetStringList(ListStr))));
XmlResult := GetStringListToXml(ParamStr1);
ParamStr1.Clear;
ParamStr1.Text := AnsiToUtf8(XmlResult);

pOpenSSL.SSLOptions.Method := sslvSSLv23;
htpCft.IOHandler := pOpenSSL;
ResultXml := Utf8ToAnsi(htpCft.Post(URL_PAY, ParamStr1));
DealPayResultXml(ResultXml);

if tmzfstatus = 1 then
begin
  Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + '/images/success.bmp');

//Application.MessageBox(‘恭喜，支付成功’,‘支付成功’,MB_OK+MB_ICONINFORMATION);
InsertRizhi(‘微信条码支付’, ‘登陆IP:’ + gsIP + ‘,计算机名:’ + gsComputer, sjyje, dhstr, ‘微信’);
pltm.Caption := ‘恭喜您已成功支付’;
barMessage.Panels1.Text := ‘恭喜,本次条码支付成功!’;

  if adojbcx1.Active then
    adojbcx1.Active := False;
  adojbcx1.SQL.Clear;
  adojbcx1.SQL.Add('select sum(jyje) as jbje from [caozuolog] where [czry]=''' + gsUser + ''' and [zffs]=''微信'' and [jbbz]=0');
  adojbcx1.Active := true;
  lbwx.Caption := FormatCurr('0.00', adojbcx1.FieldByName('jbje').AsCurrency);
  adojbcx1.Active := False;

procedure TMainForm.Timer2Timer(Sender: TObject);
begin
Lbl_Time.Caption := ‘温馨提示:请在’ + Format(’%0.2d’, [TimeCount mod 60]) + ‘秒内完成支付’;
TimeCount := TimeCount - 1;
if (RDwx.Checked) and (RD2.Checked) then
begin
btnQuery1Click(nil);
imgsk.Visible := true;
end
else
if (RDzfb.Checked) and (RD2.Checked) then
begin
Button66Click(nil);
imgsk.Visible := true;
end;

if TimeCount = 0 then
begin
Timer2.Enabled := False;
Lbl_Time.Caption := ‘’;
barMessage.Panels1.Text := ‘’;
barMessage.Panels3.Text := ‘’;
Application.MessageBox(‘对不起您已超时，支付失败’, ‘支付失败’, MB_OK + MB_ICONWARNING);
if RDwx.Checked then
Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + ‘/images/a1.bmp’)
else
Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + ‘/images/a2.bmp’);
end;
end;

强调文本 强调文本

加粗文本 加粗文本

标记文本

删除文本

引用文本

H₂O is是液体。

2¹⁰ 运算结果是 1024.

插入链接与图片

链接: link.

图片:

带尺寸的图片:

居中的图片:

居中并且带尺寸的图片:

当然，我们为了让用户更加便捷，我们增加了图片拖拽功能。

如何插入一段漂亮的代码片

去博客设置页面，选择一款你喜欢的代码片高亮样式，下面展示同样高亮的 代码片.

// An highlighted block
var foo = 'bar';

生成一个适合你的列表

• 项目
  • 项目
    • 项目

1. 项目1
2. 项目2
3. 项目3

• 计划任务
• 完成任务

创建一个表格

一个简单的表格是这么创建的：

项目	Value
电脑	$1600
手机	$12
导管	$1

设定内容居中、居左、居右

使用:---------:居中
使用:----------居左
使用----------:居右

第一列	第二列	第三列
第一列文本居中	第二列文本居右	第三列文本居左

SmartyPants

SmartyPants将ASCII标点字符转换为“智能”印刷标点HTML实体。例如：

TYPE	ASCII	HTML
Single backticks	'Isn't this fun?'	‘Isn’t this fun?’
Quotes	"Isn't this fun?"	“Isn’t this fun?”
Dashes	-- is en-dash, --- is em-dash	– is en-dash, — is em-dash

创建一个自定义列表

Markdown

Text-to- HTML conversion tool

Authors

John

Luke

如何创建一个注脚

一个具有注脚的文本。¹

注释也是必不可少的

Markdown将文本转换为 HTML。

KaTeX数学公式

您可以使用渲染LaTeX数学表达式 KaTeX:

Gamma公式展示 $\Gamma (n)=(n-1)!\forall n\in \mathbb{N}$ 是通过欧拉积分

$$\Gamma (z)={\int }_0^{\infty }{t}^{z-1}{e}^{-t}dt.$$

你可以找到更多关于的信息 LaTeX 数学表达式here.

新的甘特图功能，丰富你的文章

• 关于 甘特图 语法，参考 这儿,

UML 图表

可以使用UML图表进行渲染。 Mermaid. 例如下面产生的一个序列图：:

这将产生一个流程图。:

• 关于 Mermaid 语法，参考 这儿,

FLowchart流程图

我们依旧会支持flowchart的流程图：

• 关于 Flowchart流程图 语法，参考 这儿.

导出与导入

导出

如果你想尝试使用此编辑器, 你可以在此篇文章任意编辑。当你完成了一篇文章的写作, 在上方工具栏找到 文章导出 ，生成一个.md文件或者.html文件进行本地保存。

导入

如果你想加载一篇你写过的.md文件或者.html文件，在上方工具栏可以选择导入功能进行对应扩展名的文件导入，
继续你的创作。

---

1. 注脚的解释 ↩︎