VPF::Indy не сохраняет куки. Помогите разобраться.

otRock

Дата 16.5.2010, 03:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 23.9.2009

Репутация: нет
Всего: нет

Код

IdHTTP1.Get('http://pda.qip.ru/reg/captcha/');

После этой строки должен установиться кук PHPSESSID, но его нет. Проблема с IdCookieManager.

Скорее всего проблема из-за того, что должен установиться домен qip.ru, а запрос шлётся на pda.qip.ru
Версия Indy стандартная от Delphi 2010

Как решить проблему?

Это сообщение отредактировал(а) otRock - 16.5.2010, 03:23

DoZENT

Дата 16.5.2010, 08:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 326
Регистрация: 2.6.2006

Репутация: нет
Всего: 1

otRock, попробуй обновить indy на самую последнюю версию. Мне помогало smile

--------------------

Какая боль, какая боль, Internet Explorer 5.0...

otRock

Дата 16.5.2010, 21:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 23.9.2009

Репутация: нет
Всего: нет

Проблему решил следующим образом
в файле IdCookieManager.pas заменить

Код

procedure TIdCookieManager.DoAdd(ACookie: TIdCookieRFC2109; ACookieText: String; AURL: TIdURI);
begin
  ACookie.CookieText := ACookieText;
  if Length(ACookie.Domain) = 0 then

на

Код

procedure TIdCookieManager.DoAdd(ACookie: TIdCookieRFC2109; ACookieText: String; AURL: TIdURI);
begin
  ACookie.CookieText := ACookieText;
  if not TextStartsWith(ACookie.Domain, '.') then ACookie.Domain := '.'+ACookie.Domain;
  if Length(ACookie.Domain) = 0 then

Это сообщение отредактировал(а) otRock - 26.5.2010, 16:01

creas0ft

Дата 27.5.2010, 14:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 5.8.2006
Где: Саранск

Репутация: 2
Всего: 2

Indy 10.5.7 - такая же фигня но на куки с доменом точкой типа .domen.com
Данного кода не нашел в IdCookieManager.pas

--------------------

Форум программистов уклонистов в сторону сео-шмео

creas0ft

Дата 27.5.2010, 15:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 5.8.2006
Где: Саранск

Репутация: 2
Всего: 2

Код


 for i := 0 to IdCookieManager1.CookieCollection.Count - 1 do
    begin
      if IdCookieManager1.CookieCollection[i].Domain[1] = '.' then
      begin
        IdCookieManager1.CookieCollection[i].Domain := copy(IdCookieManager1.CookieCollection[i].Domain, 2, length(IdCookieManager1.CookieCollection[i].Domain));
      end;
    end;

Это решение в лоб без правки сырцов, вдруг кому надо

--------------------

Форум программистов уклонистов в сторону сео-шмео

ange007

Дата 29.8.2010, 21:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 8.2.2010

Репутация: нет
Всего: нет

Ребят, есть у кого-то рабочий билд последних IndyTiburon?
Который нормально с куками работает?

В последних просто вместо:

Код


procedure TIdCookieManager.DoAdd(ACookie: TIdCookieRFC2109; ACookieText: String; AURL: TIdURI);

вот это

Код


procedure TIdCookieManager.DoAddServerCookie(ACookie: TIdCookieRFC2109; ACookieText: String; AURL: TIdURI);

с большим ко-вом других изменений.

И добавление

Код


if not TextStartsWith(ACookie.Domain, '.') then ACookie.Domain := '.'+ACookie.Domain;

не помогает.

Заранее спасибо.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »