|
#1
|
|||
|
|||
Cookie
День добрый, помогите мне получить куки с сайта _l2top.ru, при заходите с мозилы она автоматом получает куки, ниже код который я использую, вконтакте прокатило я получил куки все гуд а тут какой-то трабл...
Код:
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; URL:='http://l2top.ru/vote/1/'; 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.Referer:='http://l2top.ru/vote/1/'; 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)); |