Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 09.04.2010, 15:58   #1
Nicker
Пользователь
 
Регистрация: 09.04.2010
Сообщений: 15
Репутация: 10
По умолчанию Работа с 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));

Nicker вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Cookie в Mozille Olaf Безопасность, Шифрование 2 16.03.2010 23:24
cookie в javascript Xeon332 JavaScript, Ajax 1 24.05.2009 08:44
Работа со страницами - curl + file_get_contents + cookie domovoi PHP 6 01.03.2009 01:53
Проблема с Cookie eldar Работа с сетью в Delphi 5 21.08.2008 13:27
Cookie ошибка N!ckeL PHP 10 13.08.2008 17:52


00:10.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru