HTTP заголовок

[Vnlexa]

Есть HTTP заголовок

HTTP/1.1 200 OK
Server: nginx
Date: Tue, 18 Sep 2012 18:56:08 GMT
Content-Type: text/html; charset=UTF-8
Content-Length: 90
Connection: close
Set-Cookie: forums_u=1; expires=Wed, 18-Sep-2013 18:56:07 GMT; path=/; domain=.site.by; HttpOnly
Set-Cookie: forums_k=; expires=Wed, 18-Sep-2013 18:56:07 GMT; path=/; domain=.site.by; HttpOnly
Set-Cookie: forums_sid=ff7d39c534fa49621f0a58a3 c53006dd; expires=Wed, 18-Sep-2013 18:56:07 GMT; path=/; domain=.site.by; HttpOnly
Cache-Control: private, no-cache="set-cookie"
Expires: 0
Pragma: no-cache
File: 201
Vary: Accept-Encoding,User-Agent

Как дёрнуть именно File: 201 СПАСИБО за внимание!

[kta87]

Например так: Поместите заголовок в TstringList, а затем дерните от туда номер строки в которой нужная вам информация!

[kangreon]

Если я не ошибаюсь, все эти данные лежат после запроса в IdHTTP1.Response.RawHeaders

Что-то я зачитался уже. Вам нужно их просто спарсить или вытянуть из компонента IdHTTP?

uses
  StrUtils;

...

var
  s, res: string; // Заголовок
  i: Integer;
begin
  i := Pos('File:', s) + 5;
  res := Copy(s, i, PosEx(#13, s, i) - i); // Число
end;

[Vnlexa]

Да нужно вытянуть из компонента IdHTTP , на сервер идёт запрос (idhtp1.Post('http://site.by/up.vpn',Multi),а затем нужно получить ответ где File: 201 , нужная мне инфа )

[kangreon]

Значит так:

Caption := IdHTTP1.Response.RawHeaders.Values['File']

В Caption будет значение. Если пусто, значит в заголовке параметр отсутствует.

[Vnlexa]

Спасибо! ОГРОМНОЕ!