delphi idhttp 存储cookies的有关问题

delphi idhttp 存储cookies的问题
delphi idhttp 存储cookies的问题
用idhttp.post 登陆账号以后 如果还想再post发帖的话 cookies如何存储和转移

求代码示范

[解决办法]
post内容，比如登录

Delphi(Pascal) code

  IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';  IdHTTP1.Request.CacheControl:='no-cache';  sPost:=TStringStream.Create('');  try    sPost.WriteString('user='+'username'+'&'+                      'pwd='+'123456'                      );//    try      IdHTTP1.Post('http://www.youname.com',sPost);    except    end;  finally    sPost.Free;  end;
[解决办法]
提取cookie
Delphi(Pascal) code
varsCookie:string;i:Integer;begin  sCookie:='';  for i:=0 to IdHTTP1.Response.RawHeaders.Count-1 do  begin    if UpperCase(Copy(IdHTTP1.Response.RawHeaders[i],1,10))='SET-COOKIE' then    begin      sCookieTmp:=Trim(Copy(IdHTTP1.Response.RawHeaders[i],12,MAXINT));      sCookieTmp:=Copy(sCookieTmp,1,Pos(';',sCookieTmp)-1);      sCookie:=sCookie+sCookieTmp+'; ';    end;  end;end;