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;