Delphi实现微信退款

最新推荐文章于 2025-05-20 09:30:44 发布

yanzy1107

最新推荐文章于 2025-05-20 09:30:44 发布

阅读量436

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： Delphi 微信退款动态链接库 .dll

本文链接：https://blog.youkuaiyun.com/qq_37607065/article/details/84983229

使用 Delphi 10.2 生成动态链接库，供Delphi6的项目使用

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, IdIOHandler, IdIOHandlerSocket,
  IdIOHandlerStack, IdSSL, IdSSLOpenSSL, Xml.xmldom, Xml.XMLIntf, Xml.XMLDoc,
  System.Net.URLClient, System.Net.HttpClient, System.Net.HttpClientComponent,
  Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    XMLDocument1: TXMLDocument;
    NetHTTPClient1: TNetHTTPClient;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Function WeiXinRefundPost(cert, key, Xml: PAnsichar): PAnsichar; stdcall;
// cert, key 是 微信证书.pem文件 的绝对路径，例如 D:\cert\apiclient_cert.pem
// Xml 是已经按照微信文档组合好的字符串
var
  IdHTTP: TIdHTTP