|
#1
|
|||
|
|||
Сбиваются пичения
Есть некоторый сайт, при сёрфинге которо перехажу на другие сайты, но потом обязательно возращаюсь обратно. И как возращаюсь куки меняются на другие, что не 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 Последний раз редактировалось bulldog, 12.12.2010 в 21:31. |