unigui验证微信服务器的有效性

标签：end   params   var   har   UI   服务   sig   mod   boolean   

UNIGUI验证微信服务器的有效性:

////////////////////////////////////////////

//UniGUIServerModuleHTTPCommand

//公众平台验证服务器地址的有效性

////////////////////////////////////////////

procedure TUniServerModule.UniGUIServerModuleHTTPCommand(

  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo;

  var Handled: Boolean);

begin

    if CheckSignature(ARequestInfo) then//微信验证服务器地址的有效性

    begin

      if ARequestInfo.Params.Values[‘echostr‘]<>‘‘ then

      begin

        Handled := true;

        AResponseInfo.CharSet := ‘UTF-8‘;

        AResponseInfo.ContentType := ‘UTF-8‘;

        AResponseInfo.ContentText :=ARequestInfo.Params.Values[‘echostr‘];//签名比较成功后返回echostr的内容就可以。

      end;

    end;

 end;

unigui验证微信服务器的有效性

标签：end   params   var   har   UI   服务   sig   mod   boolean   

原文地址：http://www.cnblogs.com/qiufeng2014/p/6920535.html