Авторизация с помощью idHTTP

← →
Khabibulin © (2007-01-22 21:34) [0]

Помогите пожалуйста! Очень надо!
Надо пройти авторизацию с помощью idHTTP. К примеру на "http://mda-delphi.ru/forums/login.php"

Исходник html скрипта формы авторизации "login.php":
<form action="login.php" method="post" target="_top">

<table width="100%" cellspacing="2" cellpadding="2" border="0" align="center">
<tr>
<td align="left" class="nav"><a href="index.php" class="nav">Список форумов mda-delphi.ru</a></td>
</tr>
</table>

<table width="100%" cellpadding="4" cellspacing="1" border="0" class="forumline" align="center">
<tr>
<th height="25" class="thHead" nowrap="nowrap">Введите ваше имя и пароль для входа в систему</th>
</tr>
<tr>
<td class="row1"><table border="0" cellpadding="3" cellspacing="1" width="100%">
<tr>
<td colspan="2" align="center"> </td>
</tr>
<tr>
<td width="45%" align="right"><span class="gen">Имя:</span></td>
<td>
<input type="text" name="username" size="25" maxlength="40" value="" />
</td>
</tr>
<tr>
<td align="right"><span class="gen">Пароль:</span></td>
<td>
<input type="password" name="password" size="25" maxlength="32" />
</td>
</tr>
<tr align="center">
<td colspan="2"><span class="gen">Автоматически входить при каждом посещении: <input type="checkbox" name="autologin" /></span></td>
</tr>
<tr align="center">
<td colspan="2"><input type="hidden" name="redirect" value="" /><input type="submit" name="login" class="mainoption" value="Вход" /></td>
</tr>
<tr align="center">
<td colspan="2"><span class="gensmall"><a href="profile.php?mode=sendpassword" class="gensmall">Забыли пароль?</a></span></td>
</tr>
</table></td>
</tr>
</table>

</form>

при нажатии баттона, у меня выполняется:

var
tmpParams:TStringList;
URL:string;
result:string;
begin
url := "http://mda-delphi.ru/forums/login.php";
Form1.IdHTTP1.HandleRedirects:=true;
tmpParams:=TStringList.Create;
tmpParams.Add("username=" + LabeledEdit5.Text);
tmpParams.Add("password=" + LabeledEdit6.Text);
IdHTTP1.Request.BasicAuthentication := True;
result:= Form1.IdHTTP1.get(URL);
tmpParams.Free;
memo1.Lines.Text := result;
memo1.Lines.SaveToFile("c:\1.htm");

но сохраняется тот же самый логин.пхп

как правильно все это реализвоать? и как проверить, залогинился ли я или нет?

← →
Khabibulin © (2007-01-22 23:29) [1]

Народ, помогите пожалуйста!!! Я вас умоляю!!!

← →
Dmitrij_K (2007-01-23 00:00) [2]

result:= Form1.IdHTTP1.Post(URL, tmpParams);

В tmpParams надо добавлять все поля <INPUT>
И включи куки.

← →
Khabibulin © (2007-01-23 00:06) [3]

var
tmpParams:TStringList;
URL:string;
result:string;
begin
url := "http://mda-delphi.ru/forums/login.php";
Form1.IdHTTP1.HandleRedirects:=true;
tmpParams:=TStringList.Create;
tmpParams.Add("username=" + LabeledEdit5.Text);
tmpParams.Add("password=" + LabeledEdit6.Text);
IdHTTP1.Request.BasicAuthentication := True;
result:= Form1.IdHTTP1.post(URL, tmpParams);
tmpParams.Free;
memo1.Lines.Text := result;
memo1.Lines.SaveToFile("c:\1.htm");

нихера не работает... и AllowCookies = true поставил...

← →
Dmitrij_K (2007-01-23 01:41) [4]

> Dmitrij_K (23.01.07 00:00) [2]
> В tmpParams надо добавлять все поля <INPUT>

+Отключи Basic авторизацию

Да все, я разобрался... Все спасибо кто откликнулся...

Авторизация с помощью idHTTP Найти похожие ветки