Delphi XE7 用indy开发微信公众平台（5）- 接收事件推送

原创

于 2018-06-25 10:46:35 发布 · 437 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#Delphi #微信公众号

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 := '';
         addlog('事件：' + temp + ', ' + M.FromUserName);
        end;
      CLICK:
        begin
          menu := Nodes['EventKey'].NodeValue;
          addlo