DELPHI 微信公众平台 订阅号（二）

最新推荐文章于 2022-04-10 23:06:51 发布
最新推荐文章于 2022-04-10 23:06:51 发布
阅读量580 收藏 3
点赞数 2
分类专栏： DELPHI 个人小心得 delphi windows
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_44387646/article/details/109223250
版权

一、采用IdHTTPServer

unit fun_send;

interface

uses
  Winapi.Windows, System.Classes, IPPeerClient, REST.Client, REST.Types,
  System.JSON;

function rest_get(server_url: string; send_name_strlist: TStringList; send_info_strlist: TStringList): string;

function rest_post(server_url: string; send_json: TJSONObject;json_name:string): string;

implementation

function rest_get(server_url: string; send_name_strlist: TStringList; send_info_strlist: TStringList): string;
var
  i: integer;
// 发送用
  temp_RESTClient1: TRESTClient;
  temp_RESTResponse1: TRESTResponse;
  temp_RESTRequest1: TRESTRequest;
  //接收用
  recv_str: string;
begin
  // 发送
  temp_RESTClient1 := TRESTClient.Create(nil);
  temp_RESTClient1.HandleRedirects := true;
  temp_RESTResponse1 := TRESTResponse.Create(nil);
  temp_RESTRequest1 := TRESTRequest.Create(nil);
  temp_RESTRequest1.Client := temp_RESTClient1;
  temp_RESTRequest1.Method := rmGET;
  temp_RESTRequest1.Response := temp_RESTResponse1;
  temp_RESTRequest1.SynchronizedEvents := false;
  temp_RESTClient1.BaseURL := server_url;
  temp_RESTRequest1.Params.Clear;
  for i := 0 to send_name_strlist.Count - 1 do
  begin
    temp_RESTRequest1.AddParameter(send_name_strlist[i], send_info_strlist[i]);
  end;
  try
    temp_RESTRequest1.Execute;
    recv_str := temp_RESTResponse1.Content;
  except
    recv_str := '提交失败';
  end;
  temp_RESTClient1.Free;
  temp_RESTRequest1.Free;
  temp_RESTResponse1.Free;
  result := recv_str;
end;

function rest_post(server_url: string; send_json: TJSONObject;json_name:string): string;
var
  i: integer;
// 发送用
  temp_RESTClient1: TRESTClient;
  temp_RESTResponse1: TRESTResponse;
  temp_RESTRequest1: TRESTRequest;
  //接收用
  recv_str: string;
begin
  // 发送
  temp_RESTClient1 := TRESTClient.Create(nil);
  temp_RESTClient1.HandleRedirects := true;
  temp_RESTResponse1 := TRESTResponse.Create(nil);
  temp_RESTRequest1 := TRESTRequest.Create(nil);
  temp_RESTRequest1.Client := temp_RESTClient1;
  temp_RESTRequest1.Method := rmPOST;
  temp_RESTRequest1.Response := temp_RESTResponse1;
  temp_RESTRequest1.SynchronizedEvents := false;
  temp_RESTClient1.BaseURL := server_url;
  temp_RESTRequest1.Params.Clear;
  temp_RESTRequest1.AddParameter(json_name, send_json);

  try
    temp_RESTRequest1.Execute;
    recv_str := temp_RESTResponse1.Content;
  except
    recv_str := '提交失败';
  end;
  temp_RESTClient1.Free;
  temp_RESTRequest1.Free;
  temp_RESTResponse1.Free;
  result := recv_str;
end;

end.

二、主窗体代码

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  System.JSON, Vcl.ExtCtrls, Vcl.StdCtrls, fun_send, IdContext, Web.HTTPApp,
  IdCustomHTTPServer, IdBaseComponent, IdComponent, IdCustomTCPServer,
  IdHTTPServer, DCPcrypt2, DCPblockciphers, DCPdes, DCPsha256,IdHashSHA;

type
  Pwx_info_in = ^Twx_info_in;

  Twx_info_in = record
    url: string;
    AContext: TIdContext;
    ARequestInfo: TIdHTTPRequestInfo;
    AResponseInfo: TIdHTTPResponseInfo
  end;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Button3: TButton;
    Button2: TButton;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Edit3: TEdit;
    Timer1: TTimer;
    GroupBox3: TGroupBox;
    Button1: TButton;
    Edit1: TEdit;
    CheckBox1: TCheckBox;
    IdHTTPServer1: TIdHTTPServer;
    Memo1: TMemo;
    DCP_sha2561: TDCP_sha256;
    DCP_des1: TDCP_des;
    DCP_des2: TDCP_des;
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 // 设置绑定参数
  IdHTTPServer1.Bindings.Clear;
  IdHTTPServer1.DefaultPort := StrToInt(edit1.Text);
  IdHTTPServer1.Bindings.Add.IP := '0.0.0.0';
  // 启动服务器
  IdHTTPServer1.Active := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  send_name_strlist: TStringList;
  send_info_strlist: TStringList;
  i: integer;
  recv_str: string;
  //接收用
  recv_json: tjsonobject; //临时生成的
  recv_jv: tjsonvalue;
  recv_jv_num: TJSONNumber;
  access_token: string;
  expires_in: integer;
begin
  //关闭有效期定时器
  Timer1.Enabled := false;
  send_name_strlist := TStringList.Create;
  send_info_strlist := TStringList.Create;
  send_name_strlist.Add('grant_type');
  send_info_strlist.Add('client_credential');
  send_name_strlist.Add('appid');
  send_info_strlist.Add(Edit4.Text);
  send_name_strlist.Add('secret');
  send_info_strlist.Add(Edit5.Text);
  recv_str := rest_get('https://api.weixin.qq.com/cgi-bin/token', send_name_strlist, send_info_strlist);
//  recv_str := AnsiToUtf8(recv_str);
//接收
  recv_json := tjsonobject.Create;
  recv_json := TJSONObject.parsejsonvalue(tencoding.utf8.getbytes(recv_str), 0) as TJSONObject;
  recv_jv := recv_json.get('access_token').jsonvalue;
  access_token := recv_jv.Value;
  recv_jv_num := recv_json.get('expires_in').JsonValue as TJSONNumber;
  expires_in := recv_jv_num.AsInt;
    //接收完成
  Edit2.Text := access_token;
  Edit3.Text := IntToStr(expires_in);
  send_name_strlist.Free;
  send_info_strlist.Free;
  //打开有效期定时器
  Edit4.Text := '';
  Edit5.Text := '';
  Timer1.Enabled := True;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Edit4.Text := '';
  Edit5.Text := '';
end;

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);

  procedure wx_fun(var wx_info_in: Twx_info_in);

    function wx_access(var wx_info_in: Twx_info_in): string;

      function sha1(input: string): string;
      begin
        with tidhashsha1.create do
        try
          result := HashStringAsHex(input);
        finally
          free;
        end;
      end;

      function checktoken(token, signature, timestamp, nonce, echostr: string): string;
      var
        s, s1: string;
        tmp: TStringList;
      begin
        tmp := TStringList.Create;
        try
          tmp.Delimiter := ',';
          s := token + ',' + timestamp + ',' + nonce;
          tmp.DelimitedText := s;
          tmp.Sorted := true;
          s := tmp.Strings[0] + tmp.Strings[1] + tmp.Strings[2];
          s1 := sha1(s);
          if s1.ToUpper = signature.ToUpper then
            Result := echostr
          else
            Result := 'error';
        finally
          tmp.Free;
        end;
      end;

    var
      url: string;
      AContext: TIdContext;
      ARequestInfo: TIdHTTPRequestInfo;
      AResponseInfo: TIdHTTPResponseInfo;
  //提取参数
      recv_signature: string;
      recv_timestamp: string;
      recv_nonce: string;
      recv_echostr: string;
      temp_str: string;
      RespStr: string;
    begin
      url := wx_info_in.url;
      AContext := wx_info_in.AContext;
      ARequestInfo := wx_info_in.ARequestInfo;
      AResponseInfo := wx_info_in.AResponseInfo;
  //微信认证
      recv_signature := ARequestInfo.Params.Values['signature'];
      recv_timestamp := ARequestInfo.Params.Values['timestamp'];
      recv_nonce := ARequestInfo.Params.Values['nonce'];
      recv_echostr := ARequestInfo.Params.Values['echostr'];
      temp_str := checktoken('微信网站上设置的 token', recv_signature, recv_timestamp, recv_nonce, recv_echostr);
  //生成返回
      AResponseInfo.ContentType := 'text/HTML;charset=utf-8';
      RespStr := temp_str;
      AResponseInfo.ContentText := AnsiToUtf8(RespStr);
    end;

  var
    url: string;
    AContext: TIdContext;
    ARequestInfo: TIdHTTPRequestInfo;
    AResponseInfo: TIdHTTPResponseInfo;
  begin

    Form1.Memo1.Lines.Add('处理微信函数');
    url := wx_info_in.url;
    AContext := wx_info_in.AContext;
    ARequestInfo := wx_info_in.ARequestInfo;
    AResponseInfo := wx_info_in.AResponseInfo;
    if Form1.CheckBox1.Checked = true then
    begin
      Form1.Memo1.Lines.Add('接收到微信消息类型为:' + ARequestInfo.Command);
      Form1.Memo1.Lines.Add('访问模块为:' + url);
    end;
    if (url = '/Twx/Rwx') or (url = '/Twx/Rwx/') then
    begin
    //微信认证
      if ARequestInfo.Command = 'GET' then
      begin
        wx_access(wx_info_in)
      end;
    //微信POST消息
      if ARequestInfo.Command = 'POST' then // post
      begin
        if Form1.CheckBox1.Checked = true then
        begin
          Form1.Memo1.Lines.Add('接收到微信POST消息');
        end;
        //wx_recv_post(wx_info_in); //返回微信消息
      end;
    end;
  end;

var
  RespStr, recvText: string;
  msgText: string;
  recv_url: string; //访问模块
  wx_info_in: Twx_info_in;
  Buf: TBytes;
  temp_str: string;
  Stream: TStream;
begin
  try
    try
      //获取在访问的模块
      recv_url := ARequestInfo.Document;
      //调试模式下显示收到内容
      if CheckBox1.Checked = true then
      begin
        if ARequestInfo.Command = 'POST' then // post
        begin
          if (ARequestInfo.PostStream <> nil) and (ARequestInfo.PostStream.Size > 0) then
          begin

          end;
        end;
        if ARequestInfo.Command = 'GET' then
        begin
//          Memo1.Lines.Add(Httpdecode(ARequestInfo.QueryParams));

        // 引用 Httpapp
        end;
      end;
      if Form1.CheckBox1.Checked = true then
      begin
        Form1.Memo1.Lines.Add('接收到访问类型为:' + ARequestInfo.Command + '  访问模块为:' + recv_url + ' 访问时间为：' + DateTimeToStr(Now()));
        Form1.Memo1.Lines.Add('访问者IP：' + AContext.Connection.Socket.Binding.PeerIP);
        if ARequestInfo.Command = 'GET' then
        begin
          Memo1.Lines.Add('地址栏参数：' + Httpdecode(ARequestInfo.QueryParams));
        end;

      end;
      //如果是微信模块
      if (recv_url = '/Twx/Rwx') or (recv_url = '/Twx/Rwx/') then
      begin
        wx_info_in.url := recv_url;
        wx_info_in.AContext := AContext;
        wx_info_in.ARequestInfo := ARequestInfo;
        wx_info_in.AResponseInfo := AResponseInfo;
        wx_fun(wx_info_in);
      end
      else
      begin
        AResponseInfo.ContentType := 'text/HTML;charset=utf-8';
        RespStr := '<html><body>只是一个练习界面，什么功能都没有。</body></html>';
        AResponseInfo.ContentText := AnsiToUtf8(RespStr);
      end;

    except

    end;
  finally

  end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Edit3.Text := IntToStr(StrToInt(Edit3.Text) - 60);
end;

end.

三、编辑界面

四、说明

1、DCP是一套控件，与微信服务器验证的时候用的。

2、附赠一个单元

unit fun_change;

interface

uses
  Winapi.Windows, System.SysUtils, System.Classes, fun_wx_recv, Xml.xmldom,
  Xml.XMLIntf, Xml.XMLDoc, Xml.omnixmldom, System.DateUtils;

function format_Json_show(indent: string; inputStr: string): string;

function StreamToString(mStream: TStream): string;
//拆分微信POST消息

function split_wx_mess(xml: string; var wx_mess_Recv: Twx_mess_Recv): Boolean;
//初始化被动回复消息

function reset_wx_mess_send(wx_mess_Recv: Twx_mess_Recv; var wx_mess_send: Twx_mess_send): boolean;
//获得时间戳

function Get_Stamp_Time(d: TDateTime): Int64;
//生成返回的XML

function get_wx_mess_xml(wx_mess_send: Twx_mess_send): string;


implementation

function Get_Stamp_Time(d: TDateTime): Int64;
var
  dJavaStart: TDateTime;
begin
  //java里的时间是从1970年1月1日0点到当前的间隔
  dJavaStart := EncodeDateTime(1970, 1, 1, 0, 0, 0, 0);
  Result := MilliSecondsBetween(d, dJavaStart);
end;

function format_Json_show(indent: string; inputStr: string): string;
var
  outStr, s: string;
  p, i: integer;
  c: char;
  level: integer; //缩进级别
  quot: integer; //双引号标记
  slant: integer; //反斜杠标记
  colon: integer; //冒号

  function getTab(level: integer): string;
  var
    tab: string;
    j: integer;
  begin
    getTab := '';
    if level > 0 then
    begin
      for j := 1 to level do
      begin
        tab := tab + indent;
      end;
    end;
    result := tab;
  end;

begin
//去掉换行回车符
  inputStr := stringReplace(inputStr, #13#10, '', [rfReplaceAll, rfIgnoreCase]);
//去掉tab符
  inputStr := stringReplace(inputStr, #9, '', [rfReplaceAll, rfIgnoreCase]);
//支持 xxx={...} 格式的数据，保留 xxx= 内容。
  p := pos('{', inputStr);
  if p > 0 then
  begin
    outStr := copy(inputStr, 1, p - 1);
    inputStr := copy(inputStr, p, length(inputStr));
  end
  else
  begin
    result := inputStr;
    exit;
  end;
//json格式化处理
//简易处理规则：
//遇到反斜杠 "\"，输出，后面紧跟的字符直接输出，不做特殊处理
//遇到双引号 """，输出，等待匹配下一个双引号（除了反斜杠"\"后的双引号外),其间的字符直接输出
//遇到左花括号 "{" 缩进不变输出，回车，后续缩进等级+1
//遇到右花括号 "}" 回车，缩进-1, 输出，后续缩进等级-1
//遇到左方括号 "[" 缩进不变输出，回车，后续缩进等级+1
//遇到右方括号 "]" 回车，缩进-1, 输出，后续缩进等级-1
//遇到双引号外的逗号 "," 输出后回车
//遇到冒号 ":", 输出，加一个空格
//不符合以上规则的字符，除空格外，直接 输出

  level := 0;
  quot := 0; //是否等待匹配双引号
  colon := 0;
  for i := 1 to length(inputStr) do
  begin
    c := inputStr[i];
    if c <> ' ' then
      s := c
    else
      s := ''; //过滤一般性空格
    if (slant = 1) then
    begin
//反斜杠之后的字符直接输出
      slant := 0;
    end
    else if (quot = 1) and (c <> '"') and (c <> '\') then
    begin
//双引号之后的字符直接输出
      s := c; //双引号之间的空格也保留输出
    end
    else
    begin
      case c of
        '\':
          begin
            slant := 1;
          end;
        '{':
          begin
            if colon <> 1 then
              s := getTab(level) + s;
            s := s + #13#10;
            level := level + 1;
            colon := 0;
          end;
        '}':
          begin
            s := #13#10 + getTab(level - 1) + s;
            level := level - 1;
          end;
        '[':
          begin
            if colon <> 1 then
              s := getTab(level) + s;
            s := s + #13#10;
            level := level + 1;
            colon := 0;
          end;
        ']':
          begin
            s := #13#10 + getTab(level - 1) + s;
            level := level - 1;
          end;
        '"':
          begin
            quot := 1 - quot;
            if (quot = 1) and (colon = 0) then
              s := getTab(level) + s;
            colon := 0;
          end;
        ',':
          begin
            s := s + #13#10;
            colon := 0;
          end;
        ':':
          begin
            s := s + ' ';
            colon := 1;
          end;
      else
//




      end;
    end;
    outStr := outStr + s;
  end;
  result := outStr;
end;

function StreamToString(mStream: TStream): string;
{   将内存流转换成字符串   }
var
  I: Integer;
begin
  Result := '';
  if not Assigned(mStream) then
    Exit;
  SetLength(Result, mStream.Size);
  for I := 0 to Pred(mStream.Size) do
  try
    mStream.Position := I;
    mStream.Read(Result[Succ(I)], 1);
  except
    Result := '';
  end;
end;   {   StreamToString   }

function reset_wx_mess_send(wx_mess_Recv: Twx_mess_Recv; var wx_mess_send: Twx_mess_send): boolean;
begin
  wx_mess_send.ToUserName := wx_mess_Recv.FromUserName;
  wx_mess_send.FromUserName := wx_mess_Recv.ToUserName;
  wx_mess_send.CreateTime := IntToStr(Get_Stamp_Time(now));
  wx_mess_send.MsgType := 'text';
  wx_mess_send.Content := '测试一下。' + chr(13) + chr(10) + '看看能不能收到';
end;

function split_wx_mess(xml: string; var wx_mess_Recv: Twx_mess_Recv): Boolean;
var
  Rootnode, node: IXmlNode;
  xml1: TXMLDocument;
  doc: IXMLDocument;
begin
  xml1 := TXMLDocument.Create(nil);
  try
    xml1.DOMVendor := GetDOMVendor('Omni XML');
    doc := xml1;
    doc.XML.Text := xml;
    doc.Active := true;
    Rootnode := doc.DocumentElement;
    node := Rootnode.ChildNodes.FindNode('ToUserName');
    if node <> nil then
      wx_mess_Recv.ToUserName := node.Text;
    node := Rootnode.ChildNodes.FindNode('FromUserName');
    if node <> nil then
      wx_mess_Recv.FromUserName := node.Text;
    node := Rootnode.ChildNodes.FindNode('CreateTime');
    if node <> nil then
      wx_mess_Recv.CreateTime := node.Text;
    node := Rootnode.ChildNodes.FindNode('MsgType');
    if node <> nil then
      wx_mess_Recv.MsgType := node.Text;
    node := Rootnode.ChildNodes.FindNode('Content');
    if node <> nil then
      wx_mess_Recv.Content := node.Text;
    node := Rootnode.ChildNodes.FindNode('MediaId');
    if node <> nil then
      wx_mess_Recv.MediaId := node.Text;
    node := Rootnode.ChildNodes.FindNode('PicUrl');
    if node <> nil then
      wx_mess_Recv.PicUrl := node.Text;
    node := Rootnode.ChildNodes.FindNode('Format');
    if node <> nil then
      wx_mess_Recv.Format := node.Text;
    node := Rootnode.ChildNodes.FindNode('ThumbMediaId');
    if node <> nil then
      wx_mess_Recv.ThumbMediaId := node.Text;
    node := Rootnode.ChildNodes.FindNode('MsgId');
    if node <> nil then
      wx_mess_Recv.MsgId := node.Text;
    node := Rootnode.ChildNodes.FindNode('Event');
    if node <> nil then
      wx_mess_Recv.Event := node.Text;
    node := Rootnode.ChildNodes.FindNode('EventKey');
    if node <> nil then
      wx_mess_Recv.EventKey := node.Text;
    node := Rootnode.ChildNodes.FindNode('Ticket');
    if node <> nil then
      wx_mess_Recv.Ticket := node.Text;
    node := Rootnode.ChildNodes.FindNode('Latitude');
    if node <> nil then
      wx_mess_Recv.Latitude := node.Text;
    node := Rootnode.ChildNodes.FindNode('Longitude');
    if node <> nil then
      wx_mess_Recv.Longitude := node.Text;
    node := Rootnode.ChildNodes.FindNode('Precision');
    if node <> nil then
      wx_mess_Recv.Precision := node.Text;
    node := Rootnode.ChildNodes.FindNode('Location_X');
    if node <> nil then
      wx_mess_Recv.Location_X := node.Text;
    node := Rootnode.ChildNodes.FindNode('Location_Y');
    if node <> nil then
      wx_mess_Recv.Location_Y := node.Text;
    node := Rootnode.ChildNodes.FindNode('Scale');
    if node <> nil then
      wx_mess_Recv.Scale := node.Text;
    node := Rootnode.ChildNodes.FindNode('Label');
    if node <> nil then
      wx_mess_Recv.Label_ := node.Text;
  finally
   // xml1.Active := false;
    //xml1.Free;
  end;

  Result := true;
end;

function CDATA(value: string): string;
begin
  Result := '<![CDATA[' + value + ']]>';
end;

function get_wx_mess_xml(wx_mess_send: Twx_mess_send): string;
var
  xml1: TXmlDocument;
  doc: IXMLDocument;
  Rootnode, node, node1, node2: IXmlNode;
  xml: string;
begin
  try
    try
      xml1 := TXMLDocument.Create(nil);
      xml1.DOMVendor := GetDOMVendor('Omni XML');
      doc := xml1;
      doc.Active := true;
      doc.AddChild('xml');
      Rootnode := doc.DocumentElement;
      node := Rootnode.AddChild('ToUserName');
      node.Text := CDATA(wx_mess_send.ToUserName);
      node := Rootnode.AddChild('FromUserName');
      node.Text := CDATA(wx_mess_send.FromUserName);
      node := Rootnode.AddChild('CreateTime');
      node.Text := CDATA(wx_mess_send.CreateTime);
      node := Rootnode.AddChild('MsgType');
      node.Text := CDATA(wx_mess_send.MsgType);
      if wx_mess_send.MsgType = 'text' then
      begin
        node := Rootnode.AddChild('Content');
        node.Text := CDATA(wx_mess_send.Content);
      end;
      if wx_mess_send.MsgType = 'Image' then
      begin
        node := Rootnode.AddChild('Image');
        node1 := node.AddChild('MediaId');
        node1.Text := CDATA(wx_mess_send.Image_MediaId)
      end;
      xml := doc.XML.Text;
      xml := xml.Replace('&lt;', '<').Replace('&gt;', '>');
      Result := xml;
    except
      Result := '';
    end;
  finally
   // doc.Free;
  end;
end;

end.

 

以后换名字
关注
专栏目录
IdHttpServer解决跨域访问的问题
zxm8513CSDN博客
09-30 59
【代码】IdHttpServer解决跨域访问的问题。
【delphi】微信公众号控件开发（一）
sensor_WU 博客
12-17 3009
Delphi 微信公众号控件开发：Delphi微信公众号控件开发：一、公共属性定义1. AppID（开发者ID）2. AppSecret（开发者密码）3. Token（令牌）4. BaseURL（Web服务访问基地址）5. BaseRootDir（本地Web文件实际路径）6. EncodingType（消息加解密方式）7. EncodingAESKey（消息加密KEY）8. dvToken（设备管...
基于Delphi XE4的微信公众平台接口范例
07-07
这是本人根据微信公众平台接口文档简单得不能再简单的资料编写的一个范例，希望对各位delphi程序员开发微信应用带来点帮助。 文件包中包含两个例程，一个是服务器端的，另一个是为方便在本地测试，模拟微信服务器推送信息的小工具，均有源码。 要测试本范例，需要一个微信公众账号，一个有公网IP的服务器，本范例自带web服务器，所以请先停掉服务器上已有的web服务再运行。 本范例在Delphi XE4 Update1上开发。
DelphiWebMVC微信公众号开发
07-11 616
开发微信公众号一般用php，java 等工具开发，很少用delphi开发，这里基于delphiwebmvc 开发的微信公众号部分代码进行开源。 开源地址：https://gitee.com/pearroom/Wechat DelphiWebMVC框架下的微信公众号管理平台 完成公众号文本...
用Delphi XE7 Indy写的微信公众平台示例
01-27
Delphi XE7 Indy的IdHTTP写的微信公众平台，只做了部分功能，希望大家能用上 temp := JSONObject.Values['subscribe'].ToString; Memo1.Lines.Add('subscribe:' + temp); temp := JSONObject.Values['openid'].ToString; Memo1.Lines.Add('openid:' + temp); temp := JSONObject.Values['nickname'].ToString; Memo1.Lines.Add('nickname:' + temp); temp := JSONObject.Values['sex'].ToString; Memo1.Lines.Add('sex:' + temp); temp := JSONObject.Values['city'].ToString; Memo1.Lines.Add('city:' + temp); temp := JSONObject.Values['country'].ToString; Memo1.Lines.Add('country:' + temp); temp := JSONObject.Values['province'].ToString; Memo1.Lines.Add('province:' + temp); temp := JSONObject.Values['language'].ToString; Memo1.Lines.Add('language:' + temp); temp := JSONObject.Values['headimgurl'].ToString; Memo1.Lines.Add('headimgurl:' + temp); temp := JSONObject.Values['subscribe_time'].ToString; Memo1.Lines.Add('subscribe_time:' + temp); temp := JSONObject.Values['remark'].ToString; Memo1.Lines.Add('remark:' + temp);
delphi微信公众号（支持获取Access token、用户管理、模板消息、客服消息、群发消息、接收消息、被动回复用户消息、素材管理等），D7~XE10可用
芝麻卖瓜的博客
08-08 1289
【delphi微信公众号】支持获取Access token、用户管理、模板消息、客服消息、群发消息、接收消息、被动回复用户消息、素材管理等，D7~XE10可用
Delphi indy开发微信公众平台
05-25
包含微信公众平台的所有功能（除微支付）
DELPHI微信、支付宝支付(DLL源码)_delphi微信支付开发,delphi微信付款.zip
最新发布
04-15
在IT行业中，集成微信和支付宝支付接口到应用程序是常见的需求，尤其对于Delphi开发者来说，这一过程涉及到与第三方支付平台的交互，确保交易的安全性和稳定性。这个压缩包"DELPHI微信、支付宝支付(DLL源码)_delphi...
Delphi 微信小程序控件 前端小程序演示源程序Api_Demo.rar
12-13
我们将深入探讨Delphi这一强大的编程工具如何与微信小程序平台相结合，以及相关的技术要点。 首先，"Delphi 微信小程序控件"是基于Delphi这一面向对象的编程环境，为微信小程序开发定制的后端组件。Delphi以其高效...
delphi微信云支付，D7~XE10可用
01-06
云支付是腾讯云联合微信支付推出的商户聚合收款技术解决方案，为服务商开展业务提供了开放、可靠和低成本的收款技术服务。微信云支付api文档：https://cloud.tencent.com/document/product/569/37632
delphi 微信小程序后台控件 WX_MIN_Component(1.0.0.0)N.rar
12-13
这是一个专为Delphi平台设计的组件，其核心目标是帮助开发者快速实现与微信小程序的后台交互。它自带的Web服务功能，意味着开发者可以在Delphi环境中轻松搭建起服务器端，为微信小程序提供数据接口和服务。 JWT...
微信订阅号
05-29
微信订阅号，写了自定义菜单和自动回复用户文本内容
UNIGUI接收普通消息和被动回复用户消息 及其RESTResponseDataSetAdapter与FDMemTable应用
11-05
UNIGUI接收普通消息和被动回复用户消息 及其RESTResponseDataSetAdapter与FDMemTable应用
Delphi 开发微信公众平台 （二）- 用户管理
weixin_30496431的博客
05-06 255
一、用户标签管理 开发者可以使用用户标签管理的相关接口，实现对公众号的标签进行创建、查询、修改、删除等操作，也可以对用户进行打标签、取消标签等操作。 1、创建标签 /// <summary> /// 创建标签 /// </summary> /// <remarks> /// 一个公众号，最多可以创建100个标签。 /// </remar...
【delphi】实现微信公众号，小程序消息加密解密函数
sensor_WU 博客
02-13 704
在开发微信公众号，小程序的时候，可以配置成明文模式，兼容模式，安全模式。当配置成安全模式的时候，就需要对消息进行加密，解密。说明下，只有被动回复的时候需要进行消息加密，其它主动请求的API不需要对消息进行加密。 微信官方提供的没有delphi的例子，这里根据官方文档以及C#的例子，更改成delphi的加密解密函数，已经在公众号中使用。核心源代码如下（没有按照对象实现，就是简单的函数实现）： {2021-02-10 大年29 创建 主要实现微信 消息加密、解密功能 参考微信的 C# Demo 实现
用delphi开发微信公众号推送消息和自动回复消息
宁静志远
04-10 1723
用delphi开发微信公众号，需要解决的几个难点是，一是获取token；二是需要按照腾讯的规则进行组装字符串，再加密生成签名；三是调试相对麻烦，公众号和delphi通信，必须要有备案过的域名和认证过的公众号。因为两者之间交互不是单向的，也就是说还需要往你80端口的服务器上发送指定格式内容的消息，再进行解析操作。
Delphi XE7 用indy开发微信公众平台（5）- 接收事件推送
dnlidejun的博客
06-25 396
type TEventType = (subscribe, unsubscribe, SCAN, LOCATION, CLICK, VIEW); function ResponseEvent(M: TMessage; X: IXMLDocument): RawByteString; var event: TEventType; temp, menu: String; begin ...
【代码】微信订阅号开发配置
tianc777的博客
11-23 812
参考使用python一步一步搭建微信公众平台(一)尝试搭建微信订阅号，采用较旧的方法： 申请订阅号，添加新浪各个节点到ip白名单 新浪云sae应用，将代码git到新浪云sae应用，将代码git上去 Token验证失败 查看sae日志中心： 1.earth.applinzi.com 211.94.195.165 0.080 0.080 [23/Nov/2018:10:06:49 +0800] ea...
【Delphi】中使用消息Messages（二）
sensor_WU 博客
03-29 1992
介绍delphi相关messages，组件，程序间消息通信
delphi 微信接口
06-15
Delphi是一种编程语言，可以与许多应用程序接口（API）集成，包括微信。微信是最流行的社交媒体平台之一，许多开发人员希望能够使用微信API与其进行交互，以扩展其产品和服务。 Delphi提供了许多工具和组件，可轻松创建与微信接口通信的应用程序。可以使用Delphi的Internet Direct（Indy）或Net，以及Web Services工具箱等工具，将Delphi应用程序与微信API集成。此外，一些第三方库和SDK也可用于此目的，例如微信官方提供的SDK。 通过Delphi和微信API的结合，可以创建具有各种功能的应用程序，包括向微信中发送消息，获取用户信息，创建自定义菜单，处理微信支付等等。通过这种方式，企业可以推广自己的品牌，与潜在客户建立联系，并为客户提供更好的服务体验。 总之，Delphi是一种强大的编程语言，可以轻松地与微信API集成，以创建创新的应用程序。这种集成为企业提供了更广泛的市场，可以促进其业务增长。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值