delphi7下的token验证,微信服务器验证

var

    ByteSent: Cardinal;

    i,j:integer;

//    LocalDoc:string;

    tempstr,ips:string;

//    len,sport:integer;

begin

//  signature=0c5d3f0f0b8b7b7fd658a1eefa228bea0645c689&echostr=1497421163725322735×tamp=1458010414&nonce=1452792662

//  signature=0c5d3f0f0b8b7b7fd658a1eefa228bea0645c689,echostr=1497421163725322735,timestamp=1458010414,nonce=1452792662

    Memo1.Lines.Add(Arequestinfo.Params.Values['echostr']);

    Memo1.Lines.Add('1'+ARequestInfo.Document);

    Memo1.Lines.Add('2'+ARequestInfo.QueryParams);

    memo1.lines.add('3'+Arequestinfo.Params.CommaText);

    Memo1.Lines.Add('4'+ARequestInfo.Accept);

    Memo1.Lines.Add('5'+ARequestInfo.FormParams);

    Memo1.Lines.Add('6'+TStringStream(ARequestInfo.PostStream).DataString);
   // AResponseInfo.ContentType :='text/html';

 // 只用返回这个值就可以了

    AResponseInfo.ContentText:=Arequestinfo.Params.Values['echostr'];