Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.01.2012, 19:26   #1
jone
Форумчанин
 
Аватар для jone
 
Регистрация: 27.09.2008
Сообщений: 152
По умолчанию Проблема с кукменеджером

Цитата:
procedure TForm1.Button2Click(Sender: TObject);
var
s,token:string;
begin
IdHTTP1.CookieManager:=IdCookiemana ger1;
IdHTTP1.AllowCookies:=true;
IdHTTP1.HandleRedirects:=true;
idHTTP1.Request.UserAgent:= 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-GB; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';



s:=IdHTTP1.Get('http://www.guerrillamail.com/ajax.php?f=set_email_user&email_use r=qweewq&lang=ru&_=1327157782176');
// тут в ответ выдаёт что почта зарегана и sid_token это Cookie: PHPSESSID=

token:=copy(s,pos('sid_token',s)+12 ,32); //выдераю
memo1.Lines.Add(token); //показываю
IdHTTP1.Request.CustomHeaders.text := 'Cookie: PHPSESSID='+token; //вписываю
s:=IdHTTP1.Get('http://www.guerrillamail.com/ajax.php?f=check_email&seq=5167321& _=1327158201354'); // чекаю
memo1.Lines.Add(s);

end;
после я хочу ещё раз чекнуть или чтонибуть сделат а у меня PHPSESSID уже новый даётся и глянте что не так idhttp1 и кук менеджер соединины

покажите свой вариант создания и проверки этой почты

спасибо
jone вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема с рамами/Проблема с ЖД DRAGGER Компьютерное железо 6 04.01.2009 23:37