zoukankan      html  css  js  c++  java
  • 微信公众平台——接收事件推送

    微信公众平台——接收事件推送

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

  • 相关阅读:
    PAT 1017 Queueing at Bank
    一句有意思的代码
    PAT 1031 Hello World for U
    PAT 1024 Palindromic Number
    PAT 1032 Sharing
    各显神通
    ZJU PAT 1023
    静夜,乱思
    PAT 1024 Palindromic Number
    虚函数表
  • 原文地址:https://www.cnblogs.com/hnxxcxg/p/8987592.html
Copyright © 2011-2022 走看看