Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 30.05.2012, 12:37
taurusxxx taurusxxx вне форума
Прохожий
 
Регистрация: 23.05.2010
Сообщения: 9
Репутация: 10
По умолчанию idhttp ssl авторизация отправка данных post

Здравствуйте, форумчане. Прошу помочь. Есть сайт aspx с авторизацией на сервере + ssl. Перекурил пару дней в google, теперь с помощью idhttp и dll научились заходить и авторизовываться. Следующий шаг - заполнение формы и отправка. Вот тут беда. Курю уже третий день смотрю все варианты вплоть до громоздкого twebbrowser.

Код:
http.Request.Host := '2an.ru';
  http.Request.AcceptLanguage := 'ru-RU';
  http.Request.Accept := '*/*';
  http.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; MRSPUTNIK 2, 4, 0, 463; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0; InfoPath.1; .NET4.0C; .NET4.0E; BRI/2)';
  http.Request.AcceptEncoding := 'gzip, deflate';
  http.Request.Connection := 'Keep-Alive';
  http.Request.UserName := 'login';
  http.Request.Password := 'parol';
  http.Request.Referer := ('https://2an.ru/new_order.aspx');
  memo1.Text:=http.get('https://2an.ru/new_order.aspx');
Код выше возвращает страницу с нужной формой для дальнейшей отправки данных, которые я посылаю через post

Код:
  data.Add('ctl00$CPHWorkSpace$txtFirstname=Йоко');
  data.Add('ctl00$CPHWorkSpace$txtSecondname=Онно');
  data.Add('ctl00$CPHWorkSpace$txtMiddlename=Гамбридеалович');
  data.Add('ctl00$CPHWorkSpace$lstPass_type_id=2');
  data.Add('ctl00$CPHWorkSpace$lstPerson_type_id=2');
  data.Add('ctl00$CPHWorkSpace$txtEmail=pskgeostroy@mail.ru');
  data.Add('ctl00$CPHWorkSpace$txtPhone=89264000925');
  data.Add('ctl00$CPHWorkSpace$btnOK=onclick');

  memo1.Text:=http.post('https://2an.ru/new_order.aspx',data);

сохраненный из memo текст показывает в браузере страницу с пустой формой. Данные не отправляются.

Код HTML:
<table id="table1" cellpadding="2" class="styleTable" cellspacing="3"> <tr> <td class="styleLabelCol"> Фамилия <span id="CPHWorkSpace_lblFirstnameNeeded" style="color:Red;">*</span>: </td> <td class="styleEditCol"> <input name="ctl00$CPHWorkSpace$txtFirstname" type="text" maxlength="50" id="CPHWorkSpace_txtFirstname" class="styleEdit" size="59" /> <span id="CPHWorkSpace_vldFirstname" style="display:none;">*</span> </td> </tr> <tr> <td class="styleLabelCol"> Имя <span id="CPHWorkSpace_lblSecondnameNeeded" style="color:Red;">*</span> : </td> <td class="styleEditCol"> <input name="ctl00$CPHWorkSpace$txtSecondname" type="text" maxlength="50" id="CPHWorkSpace_txtSecondname" class="styleEdit" size="59" /> <span id="CPHWorkSpace_vldSecondname" style="display:none;">*</span> </td> </tr> <tr> <td class="styleLabelCol"> Отчество <span id="CPHWorkSpace_lblMiddlenameNeeded" style="color:Red;">*</span> : </td> <td class="styleEditCol"> <input name="ctl00$CPHWorkSpace$txtMiddlename" type="text" maxlength="50" id="CPHWorkSpace_txtMiddlename" class="styleEdit" size="59" /> <span id="CPHWorkSpace_vldMiddlename" style="display:none;">*</span> </td> </tr> <tr> <td class="styleLabelCol">

Это часть форма которую я заполняю. (ограничение 5000 символов)
Буду благодарен как за любую направляющую информацию.
Ответить с цитированием
  #2  
Старый 30.05.2012, 15:18
Pyro Pyro вне форума
Так проходящий
 
Регистрация: 18.07.2011
Сообщения: 805
Версия Delphi: 7Lite
Репутация: 6063
По умолчанию

idhttp не знаю, подкину ещё пару громоздких вариантов:
- twebbrowser можно заставить выполнить javascript, если есть знания js – должно быть самый лёгкий вариант
- http://watin.org/ (.net, даже не знаю работает ли в дельфях оно, но должно быть удобно)
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 22:15.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter