Delphi XE7 用indy开发微信公众平台（6）- 被动回复用户消息

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'].NodeValue := 'text';
Nodes['Content'].NodeValue := MsgText;
end;
Result := UTF8Encode(X.Xml.text);
finally
X.Active := False;
X := nil;
end;
end;

//设置AResponseInfo.ContentText 等于返回的结果，即可自动回复文本消息