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;

  • 相关阅读:
    API
    MVC判断是否登录
    MVC收藏店铺
    MVC显示界面
    MVC登录
    MVC登录跳转到显示
    MVC退单
    MVC判断登录
    Oracle 千位符转换,及格式转换
    【转】Java 服务端 和 C# 客户端 实现 Socket 通信
  • 原文地址:https://www.cnblogs.com/hnxxcxg/p/8987592.html
Copyright © 2011-2022 走看看