Есть некоторый сайт, при сёрфинге которо перехажу на другие сайты, но потом обязательно возращаюсь обратно. И как возращаюсь куки меняются на другие, что не good. Ради интереса попробывал просто получить Cookies, но не выходит
Код:
procedure TForm1.Button7Click(Sender: TObject);
var
cookie : string;
Fhttp : TIdHTTP;
begin
Fhttp := TIdHTTP.Create;
With FHTTP.Request do
begin
Host := '';
Referer := '';
UserAgent := 'Opera/9.80 (Windows NT 6.1; U; ru) Presto/2.6.30 Version/10.63';
Accept := 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
AcceptLanguage := 'ru,en-us;q=0.7,en;q=0.3';
AcceptEncoding := 'gzip,deflate';
AcceptCharSet := 'windows-1251,utf-8;q=0.7,*;q=0.7';
Connection := 'keep-alive';
begin
FHTTP.get('САЙТ');
cookie := Fhttp.Response.RawHeaders.Text;
Fhttp.Response.CustomHeaders.Text := 'Set-Cookie: '+ GetCookieValue(cookie,'');
begin
cookie := fhttp.Response.RawHeaders.Text;
Edit1.Text := GetCookieValue(cookie,'');
fhttp.Free;
end;
end;
end;
end;
Вот что показывает снифир
Код:
(Status-Line):HTTP/1.1 200 OK
Server:nginx/0.7.65
Date:Sun, 12 Dec 2010 14:00:46 GMT
Content-Type:text/html
Transfer-Encoding:chunked
Connection:keep-alive
X-Powered-By:PHP/5.2.12
Set-Cookie:PHPSESSID=9cb29de44998357677d4190063763fb1; path=/
Expires:Thu, 19 Nov 1981 08:52:00 GMT
Cache-Control:no-store, no-cache, must-revalidate, post-check=0, pre-check=0
Pragma:no-cache
ВОПРОС СНЯТ, РАЗОБРАЛСЯ