Delphi XE7 用indy开发微信公众平台（4）- 接收普通消息

最新推荐文章于 2024-10-15 12:27:34 发布

原创

最新推荐文章于 2024-10-15 12:27:34 发布 · 705 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#Delphi #微信公众号

加我微信：Leedege一起交流Delphi开发经验

type

TMsgType = (event, text, image, voice, video, location, link);

TMessage = Record
ToUserName: String;
FromUserName: String;
CreateTime: Integer;
MsgType: String;
end;

uses System.SysUtils, System.JSON, TypInfo, Xml.XMLIntf, Xml.XMLDoc, ActiveX;

function ReplyText(Msg: TMessage; MsgText: String): RawByteString;
var
X: IXMLDocument;
begin
X := NewXMLDocument;
try
X.Xml.text := TextMsg;
X.Active := true;
with X.DocumentElement.ChildNodes do
begin
Nodes['ToUserName'].NodeValue := Msg.FromUserName;
Nodes['FromUserName'].NodeValue := Msg.ToUserName;
Nodes['CreateTime'].NodeValue := UnixTime(now);
Nodes['MsgType'].NodeVa