type
TEventType = (subscribe, unsubscribe, SCAN, LOCATION, CLICK, VIEW);
function ResponseEvent(M: TMessage; X: IXMLDocument): RawByteString;
var
event: TEventType;
temp, menu: String;
begin
temp := X.DocumentElement.ChildNodes.Nodes['Event'].NodeValue;
event := TEventType(GetEnumValue(TypeInfo(TEventType), temp));
with X.DocumentElement.ChildNodes do
case event of
subscribe:
begin
Result := '';
addlog('事件:' + temp + ', ' + M.FromUserName);
end;
unsubscribe:
begin
Result := '';
addlog('事件:' + temp + ', ' + M.FromUserName);
end;
SCAN:
begin
Result := '';
addlog('事件:' + temp + ', ' + M.FromUserName);
end;
LOCATION:
begin
Result :&#
Delphi XE7 用indy开发微信公众平台(5)- 接收事件推送
最新推荐文章于 2022-03-29 18:46:45 发布