![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 25.02.2008
Сообщений: 15
|
![]()
Добрый день, госпада!
У меня вопрос по треугольновидному взаимотношению с 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 а там "Авторизация" Помогите разобраться с червиком, который есть мой мозг!.. |
![]() |
![]() |
![]() |
#2 |
Пользователь
Регистрация: 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 прикрутил??!!?? |
![]() |
![]() |
![]() |
#3 |
Регистрация: 16.09.2009
Сообщений: 1
|
![]()
Кто знает? Тот же вопрос. Как правильно кукисы прикрутить? Я так понял что если параметры браузера вручную выставлять необходимо писать try ... finally?
|
![]() |
![]() |
![]() |
#4 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
![]()
теме два года.
вродеб уже кукименагер исправили ж... try finally/except служит для обработки исключений. Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
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 |