var
Http : TidHttp;
CM : TidCookieManager;
Data : TStringList;
URL, StrPage, na, StrPage2 :
string
;
mStream, captcha: TMemoryStream;
Lst :TStrings;
GThread: GetCapThread;
float :
single
;
int, i :
integer
;
begin
mStream := TMemoryStream
.
Create;
Lst := TStringList
.
Create;
try
Data := TStringList
.
Create;
CM := TidCookieManager
.
Create(Http);
http:=TIdHttp
.
Create(Self);
Http
.
AllowCookies :=
true
;
Http
.
CookieManager := CM;
Http
.
HandleRedirects :=
true
;
Http
.
Request
.
Host:=
'l2top.ru'
;
Http
.
Request
.
UserAgent:=
'Mozilla/5.0 (Windows; U; Windows NT 5.2; ru; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3 (.NET CLR 3.5.21022)'
;
Http
.
Request
.
Accept:=
'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'
;
Http
.
Request
.
AcceptLanguage:=
'ru,en-us;q=0.7,en;q=0.3'
;
http
.
Request
.
AcceptEncoding:=
'windows-1251'
;
Http
.
Request
.
AcceptCharSet:=
'windows-1251,utf-8;q=0.7,*;q=0.7'
;
Http
.
Request
.
RawHeaders
.
Values[
'Keep-Alive'
]:=
'115'
;
Http
.
Request
.
Connection:=
'keep-alive'
;
Http
.
Get(URL, mStream);
mStream
.
Position :=
0
;
Lst
.
LoadFromStream(mStream);
Memo1
.
Text := Lst
.
Text;
StrPage:=Memo1
.
Text;
...
for
i :=
0
to
Http
.
CookieManager
.
CookieCollection
.
Count -
1
do
Memo2
.
Lines
.
Add(CM
.
CookieCollection
.
Items[i].CookieText + #
13
#
10
);
Memo2
.
Lines
.
Add(
'Количество пиченьки: '
+IntToStr(Http
.
CookieManager
.
CookieCollection
.
Count));