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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 27.03.2008, 19:33   #1
Игорь22
Пользователь
 
Регистрация: 25.02.2008
Сообщений: 15
По умолчанию idhttp - куки - http (ТРОЕВИДНОЕ СУЩЕСТВО)

Добрый день, госпада!

У меня вопрос по треугольновидному взаимотношению с idHTTP, HTTP и с домашними печенюшками (Cookies)!:

"Животное" - это эмоция по отношению в love.mail.ru


idHTTP1.Request.Accept:='image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, */*';
idhttp1.Request.Referer:='http://love.mail.ru/my/edit_filtr_settings.phtml';
idHTTP1.Request.AcceptLanguage:='ru ';
idHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRA 5.0 (build 02094); MRSPUTNIK 2, 0, 0, 20 SW)';
idHTTP1.Request.Host:='love.mail.ru ';
idHTTP1.Request.Connection:='Keep-Alive';

idHTTP1.Request.ContentType:='appli cation/x-www-form-urlencoded';
idhttp1.Request.CustomHeaders.Text: ='Cookies: '+ edit1.tex t;
// в едит_1 быстро вставляю кукисы из Снифера!
memo1.text:=IDHTTP1.Get('http://love.mail.ru/my/index.phtml');

memo1.Lines.SaveToFile('html.html') ;


открываю html.html а там "Авторизация"


Помогите разобраться с червиком, который есть мой мозг!..
Игорь22 вне форума Ответить с цитированием
Старый 28.03.2008, 10:16   #2
Игорь22
Пользователь
 
Регистрация: 25.02.2008
Сообщений: 15
По умолчанию

теперь делаю так


procedure TForm1.Button1Click(Sender: TObject);
var
tmpParams:TStringList;
s,p,cookies:string;
p1,p2:integer;
begin
application.ProcessMessages;

idHTTP1.get('http://love.mail.ru/index.phtml');
cookies:=idhttp1.Response.RawHeader s.CommaText;
p1:=pos('s=',cookies)+2;
p2:=pos('; p',cookies);
s:=copy(cookies,p1,p2-p1);
Label1.Caption:=s;

idHTTP1.get('http://r.mail.ru/cgi-bin/banners/js/1968?336');
cookies:=idhttp1.Response.RawHeader s.CommaText;
p1:=pos('p=',cookies);
p2:=pos('; ',cookies);
p:=copy(cookies,p1,p2-p1);
showmessage(p);

idHTTP1.Request.ContentType:='appli cation/x-www-form-urlencoded';
idhttp1.Request.CustomHeaders.Text: ='Cookies: s='+s+'; LOGIN=t1234; '+p;
tmpParams:=TStringList.Create;
tmpParams.Add('oid=0');
tmpParams.Add('photo_oid=0');
tmpParams.Add('login_action=login') ;
tmpParams.Add('sold='+s);
tmpParams.Add('login=t1234');
tmpParams.Add('password=123456');

memo1.Text:=idhttp1.Post('http://love.mail.ru/my/login.phtml',tmpParams);
memo1.Lines.SaveToFile('html.html') ;

memo2.Text:=idHTTP1.Get('http://love.mail.ru/my/messages.phtml?rand=12345');
showmessage(idhttp1.Response.RawHea ders.CommaText);
memo2.Lines.SaveToFile('html2.html' );

end;


всё равно не катит?

Сначало выдергиваю параметр s, он нужен для отправки post - а.
Далее выдергиваю параметр p, он тоже нужен,
а потом мне надовыдернуть страницу с собщениями?
http://love.mail.ru/my/messages.phtml?rand=12345

Вроде IdCookieManager прикрутил??!!??
Игорь22 вне форума Ответить с цитированием
Старый 16.07.2010, 05:11   #3
vladimi-k
 
Регистрация: 16.09.2009
Сообщений: 1
По умолчанию

Кто знает? Тот же вопрос. Как правильно кукисы прикрутить? Я так понял что если параметры браузера вручную выставлять необходимо писать try ... finally?
vladimi-k вне форума Ответить с цитированием
Старый 16.07.2010, 05:25   #4
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

теме два года.
вродеб уже кукименагер исправили ж...

try finally/except служит для обработки исключений.
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
IDHTTP не авторизируется Черничный Работа с сетью в Delphi 1 03.09.2008 17:22
idHTTP DeDoK Общие вопросы Delphi 5 05.06.2008 22:45
Login Password IdHttp на сайте http://go.azona.com.ru/ tigr1991 Работа с сетью в Delphi 5 28.01.2008 17:48
Проблема с передачей куки arwm Работа с сетью в Delphi 7 28.12.2007 23:44
Alert и куки Fox JavaScript, Ajax 0 02.11.2006 23:16