[T-dayne]

отправляю

Код:

1	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=/
Ну примерно так:

Код:

1 2 3 4 5 6 7 8 9

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]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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;