如果能,怎么做?

解决方案 »

  1.   


    {
    IdHttp1 : TIdHTTP
    Memo1   : TMemo
    Button1 : TButton
    }
    procedure TForm1.Button1Click(Sender: TObject);
    var
      Rsps: TStringStream;
      SS: TStringList;
    begin
      SS := TStringList.Create;
      Rsps := TStringStream.Create('');
      Self.IdHTTP1.Post('http://localhost/SetCookie.php', SS, Rsps);
      Memo1.Lines.Assign(Self.IdHTTP1.Response.RawHeaders);
      SS.Free;
      Rsps.Free;
    end;
    在我这里测试返回的Header内容是:(注意红色部分)Date: Sun, 14 Dec 2008 09:59:47 GMT
    Server: Apache/2.2.3 (APMServ) mod_ssl/2.2.3 OpenSSL/0.9.8d PHP/5.2.0
    X-Powered-By: PHP/5.2.0
    Set-Cookie: MyCookie=The+Cookie+Value%A3%AC1229248787
    Content-Length: 23
    Keep-Alive: timeout=5, max=100
    Connection: Keep-Alive
    Content-Type: text/html附: *.php
    //SetCookie.php
    <?PHP
    setcookie("MyCookie","The Cookie Value,".Time());
    echo "MyCookie 已写入客户端,".$_COOKIE["MyCookie"]; 
    ?>//ReadCookie.php
    <?PHP
    echo "从客户端读出的MyCookie值:".$_COOKIE["MyCookie"];
    ?>