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;