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

var
    ByteSent: Cardinal;
    i,j:integer;
//    LocalDoc:string;
    tempstr,ips:string;
//    len,sport:integer;
begin
//  signature=0c5d3f0f0b8b7b7fd658a1eefa228bea0645c689&echostr=1497421163725322735&timestamp=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'];