Авторизация через Web-форму

← →
Shaden (2005-04-05 20:13) [0]

Уважаемые господа!
Есть веб-форма авторизации, в нее вводится логин/пароль. Не подскажете ли вы, как программно из приложения туда отправить данные (что-то мне подсказывает, что надо использовать idHTTP) и САМОЕ ГЛАВНОЕ, как понять, правильны ли эти отправленные логин и пароль, т.е., успешно ли прошла авторизация?
Заранее благодарю за ответы.

← →
Shaden (2005-04-07 20:30) [1]

Неужели никто с подобным не сталкивался?... :(

← →
easy © (2005-04-07 22:04) [2]

http://delphiworld.narod.ru/base/send_web_form.html

← →
Evgnius (2005-04-09 04:21) [3]

> easy, зачем такую галиматью предлагаешь читать?..
Shaden, не парься... Всё гораздо проще. Вот как эту проблему решил я:
Текст HTML:
<FORM action=http://www.ля-ля.ru/game.php METHOD=POST> <TABLE CELLPADDING=0 CELLSPACING=0 BORDER=1 align=center> <TR><TD><div align=right><font class=about>Login: </div></font></TD><TD> <input type=text class=input_cl_s size=10 name=player_n></TD></TR> <TR><TD><div align=right><font class=about>Passowrd: </div></font></TD><TD> <input type=password class=input_cl_s size=10 name=player_p></TD></TR> <tr> <TD width="132" height="27" colspan="2"><INPUT TYPE=IMAGE height=27 src="http://image.ля-ля.ru/index/button.jpg" width=132 border=0></TD> </tr> </Table>
Заметь, у меня используется метод Post для отправки данных, что именно у тя мы должны только догадываться.
Собственно, решение:
procedure TForm1.Button1Click(Sender: TObject); var doc1,doc2: IHTMLDocument2; doc3:IHTMLDocument3; Edit: IHTMLInputElement; iName:IHTMLInputElement; iLogin:IHTMLInputElement ; form:IHTMLFormElement; begin //Заполняем поле логина doc1 := WebBrowser1.DefaultInterface.Document as IHTMLDocument2; Edit := doc1.all.item("nick", 0) as IHTMLInputElement; Edit.value := "Ник пользователя"; //Заполняем поле пароля doc1 := WebBrowser1.DefaultInterface.Document as IHTMLDocument2; Edit := doc1.all.item("password", 0) as IHTMLInputElement; Edit.value := "Пароль пользователя"; doc2 := webbrowser1.Document as IHTMLDocument2; // Находим форму и сабмиттим ее. form := doc2.forms.item(EmptyParam,0) as IHTMLFormElement; form.submit(); end;

← →
Shaden (2005-04-10 22:33) [4]

Спасибо, попробую!!!

Авторизация через Web-форму Найти похожие ветки