Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

TIdHTTP и Cookie   Найти похожие ветки 

 
andrewtitoff ©   (2012-04-20 11:13) [0]

Ни как не пойму как получить кукисы с сайта
на форме есть

   HTTP1: TIdHTTP;
   IdAntiFreeze1: TIdAntiFreeze;
   IdCookieManager1: TIdCookieManager;
   IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;

HTTP1.HandleRedirects - стоит в true
HTTP1.AllowCookies - стоит в true
HTTP1.CookieManager - стоит dCookieManager1

пробую писать так:

 try
 response.Text := http1.Get(Z[i].HTT);
 finally
 http1.Disconnect;
 end;

Memo1.Text:=response.Text;
            cookc := IdCookieManager1.CookieCollection.Count;
            Showmessage(inttostr(cookc));

в итоге получаю cookc = 0...

Подскажите что я не так делаю?


 
Cobalt ©   (2012-04-20 11:34) [1]

Попробуй обновить Indy?


 
andrewtitoff ©   (2012-04-20 11:48) [2]


> Попробуй обновить Indy?

А какая на ваш взгляд актуальная?, у меня стоит dclindyprotocols160.bpl
Которая в комплекте с Delphi XE2


 
andrewtitoff ©   (2012-04-20 13:33) [3]

Версия Инди у меня 10.5.8, а где скачать новее?, на http://www.indyproject.org/ я нашел только 10 версию, там что-то написано про 11, но где ее скачать я так и не нашел..


 
andrewtitoff ©   (2012-04-20 13:46) [4]

Странно, а так работает:
HTTP1.Response.RawHeaders.Extract("Set-Cookie", Memo1.Lines);


 
Cobalt ©   (2012-04-20 15:41) [5]

отладка с заходом вскрывает многие секреты.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.056 c
2-1338127419
Глеб
2012-05-27 18:03
2013.03.22
Перенос данных из дельфи в хмл


15-1340220153
Дмитрий С
2012-06-20 23:22
2013.03.22
Посоветуйте алгоритм контрольной цифры.


2-1345366688
Наивный
2012-08-19 12:58
2013.03.22
Как избежать разрушения после TMyIoClass.Destroy.


15-1339746265
ProgRAMmer Dimonych
2012-06-15 11:44
2013.03.22
Диаграмма сетевого взаимодействия


15-1350564105
neo1
2012-10-18 16:41
2013.03.22
Cisco выделил 5 млн рублей на стартап-проекты





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский