[T-dayne]

отправляю

Код:

idhttp.get('http://site.ru');

В ответ приходит сама страничка и Responce-Head такой:

(Status-Line):HTTP/1.1 200 OK
Server:nginx/0.7.67
Date:Wed, 24 Nov 2010 15:10:38 GMT
Content-Type:text/html; charset=windows-1251
Transfer-Encoding:chunked
Connection:keep-alive
Keep-Alive:timeout=20
Cache-Control:no-store, no-cache, must-revalidate, post-check=0, pre-check=0
Expires:Thu, 19 Nov 1981 08:52:00 GMT
Pragma:no-cache
X-Powered-By:PHP/5.2.12
Set-Cookie:PHPSESSID=e27abf264fc07971579f216158a97c64; path=/
Set-Cookie:Apache=95.37.51.27.86006129061143874; path=/; expires=Thu, 24-Nov-11 15:10:38 GMT
Content-Encoding:gzip

Как мне собственно получить в дельфи этот заголовок, если конкретнее, то мне надо выдернуть отсюда PHPSESSID=e27abf264fc07971579f216158a97c64

[v1s2222]

Set-Cookie:PHPSESSID=e27abf264fc07971579f216158a97c64; path=/
Ну примерно так:

Код:

uses StrUtils;

...
x:=pos('Set-Cookie:', s);
if(x > 0) then begin
  y:=PosEx(';', S, x+1); // поиск точки с запятой
  if(y > 0) then
// читаем то, что тебе надо:
    Caption := Copy(s, x+Length('Set-Cookie:'), y-1);

[NumLock]

Код:

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    IdHTTP1: TIdHTTP;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdHTTP1.Get('http://ya.ru');
//  Memo1.Text:=IdHTTP1.Response.RawHeaders.Text;
  IdHTTP1.Response.RawHeaders.Extract('Set-Cookie', Memo1.Lines);
end;