Помогите составить метод IdHTTP1.Post

← →
alucard © (2006-11-17 12:00) [0]

Доброго времени суток.

Есть почтовый ящик:

на сайте http://mail.i.ua/

Есть код:

procedure TForm1.Button1Click(Sender: TObject);
var
LoginInfo: TStrings;
Response: TStringStream;
begin
LoginInfo := TStringList.Create;
Response := TStringStream.Create("");
LoginInfo.Clear;
LoginInfo.Add("login=allucard911");
LoginInfo.Add("pass=operation");
// LoginInfo.Add("level=1");

IdHTTP1.Post("http://i.ua/login.php",LoginInfo, Response);
Memo1.Lines.Add(Response.DataString);
Response.Free;
LoginInfo.Free;
end;

При нажатии кнопки пишется

Message "HTTP/1.1 302 Found"

Что это за ошибка?
Вроде всё правильно делаю.

← →
alucard © (2006-11-17 12:07) [1]

Собственно страничка:

</script>
<form name="lform" method="post" action="http://i.ua/login.php" onsubmit="return i_lForm(this);">
<input type="hidden" name="_subm" value="lform" />
<input type="hidden" name="scode" value="0429653b7ff947ea68ef6ce42d030283" />
<input type="hidden" name="_url" value="http://mbox.i.ua/?_rand=1163752813" />
<input type="hidden" name="cpass" />
<input type="hidden" name="_rand" value="1163752813" />
<h1 class="mainTitle">Вход на почту</h1>
<div class="width60p">
<div class="Column L40">
Логин:<br />
<input type="text" name="login" tabindex="1" class="width100p" />
<div class="paddingT02"><input type="checkbox" name="auth_type" value="1" id="c00" class="checkLeft"><label for="c00">запомнить</label></div>
</div>
<div class="Column C40">
Пароль:<br />
<input type="password" name="pass" tabindex="2" class="width100p" />
<div class="paddingT02"><a href="http://passport.i.ua/recover/">Забыл</a> свой пароль</div>
</div>
<div class="Column R20"><br />
<input type="submit" value="Вход" tabindex="3" class="width90p bold" />
<div class="paddingT02"><a href="http://passport.i.ua/?lang=">Регистрация</a></div>
</div>
</div>
</form>

← →
Anatoly Podgoretsky © (2006-11-17 12:16) [2]

> alucard (17.11.2006 12:00:00) [0]

Это значит, что информация находится на другом сайте

← →
alucard © (2006-11-17 12:23) [3]

> Anatoly Podgoretsky © (17.11.06 12:16) [2]

Понял, скорее всего так и есть.

Как мне всётаки правильно соедениться?

← →
Anatoly Podgoretsky © (2006-11-17 13:19) [4]

> alucard (17.11.2006 12:23:03) [3]

Не знаю делает компонент автоматически это, но никто тебе не мешает по возвращенному адресу обратиться самостоятельно.

← →
alucard © (2006-11-17 14:23) [5]

> Anatoly Podgoretsky © (17.11.06 13:19) [4]

Он у меня не возвращает адрес, он возвращает:

Project Project1.exe raised exception class EIdHTTPProtocolException with message "HTTP/1.1 302 Found". Process stop.......

← →
Dmitrij_K (2006-11-17 14:27) [6]

> alucard © (17.11.06 14:23) [5]
> Он у меня не возвращает адрес, он возвращает:
> Project Project1.exe raised exception class EIdHTTPProtocolException
> with message "HTTP/1.1 302 Found". Process stop.......

Это Redirect на другой адрес
IdHTTP.handleRedirect := True - автопереход по другому адресу
или лови адрес перехода в except end

← →
alucard © (2006-11-17 14:50) [7]

Спасибо. Пока двинулся дальше.

Теперь после IdHTTP.handleRedirect := True он у меня нормально работает без Exception , но всёравно не загружает страницу.

Что делать дальше.

← →
alucard © (2006-11-17 16:04) [8]

Выбрасывает на страницу как будто я ввел неправильный пароль.

Что я ещё делаю не правильно?

← →
Masterok (2006-11-17 21:04) [9]

вот это видишь:
<input type="hidden" name="_subm" value="lform" /> <input type="hidden" name="scode" value="0429653b7ff947ea68ef6ce42d030283" /> <input type="hidden" name="_url" value="http://mbox.i.ua/?_rand=1163752813" /> <input type="hidden" name="cpass" /> <input type="hidden" name="_rand" value="1163752813" />
это тоже надо передавать

← →
alucard © (2006-11-20 08:08) [10]

Понял, сейчас попробую.

← →
alucard © (2006-11-20 12:58) [11]

А как отправлять-то?

Так:

procedure TForm1.Button1Click(Sender: TObject);
var
LoginInfo: TStrings;
Response: TStringStream;
begin
LoginInfo := TStringList.Create;
Response := TStringStream.Create("");
LoginInfo.Clear;

LoginInfo.Add("_subm=lform");
LoginInfo.Add("scode=0429653b7ff947ea68ef6ce42d030283");
LoginInfo.Add("_url=http://mbox.i.ua/?_rand=1163752813");
LoginInfo.Add("cpass");
LoginInfo.Add("_rand=1163752813");

LoginInfo.Add("login=allucard911");
LoginInfo.Add("pass=operation");

IdHTTP1.Post("http://i.ua/login.php",LoginInfo, Response);
Memo1.Lines.Add(Response.DataString);
Response.Free;
LoginInfo.Free;
end;

?

← →
alucard © (2006-11-20 15:04) [12]

<div class="Column C55">
<h2 class="mainTitle margin0 noborder">Вход в почту</h2>
<form name="lform" method="post" action="http://i.ua/login.php" onsubmit="var d=new Date(1166616133*1000);document.cookie="domn="+this.domn.options[this.domn.selectedIndex].value+"; expires="+d.toGMTString()+";"; return i_lForm(this);">
<input type="hidden" name="_subm" value="lform" />
<input type="hidden" name="scode" value="de6d88512d51c0e8495e1541b6225a7d" />
<input type="hidden" name="_url" value="http://mbox.i.ua/?_rand=1164024133" />
<input type="hidden" name="cpass" />
<input type="hidden" name="_rand" />

<div class="clear paddingT05 paddingB02" id="Login">
<div class="Column L30">
<div class="paddingL1">Логин:<br />
<input type="text" name="login" tabindex="1" class="width90p" />
<div class="paddingT02"><input type="checkbox" name="auth_type" value="1" id="c00" class="checkLeft"><label for="c00">запомнить</label></div>
</div>
</div>
<div class="Column L30">
Пароль:<br />
<input type="password" name="pass" tabindex="2" class="width90p" />
<div class="paddingT02"><a href="http://passport.i.ua/recover/">Забыл пароль?</a></div>
</div>
<div class="Column C20">
Почта:<br />
<select name="domn" class="width90p" tabindex="3"><option value="i.ua" selected>i.ua<option value="ua.fm">ua.fm</select>
</div>

<div class="Column R20"><br />
<input type="submit" value="Вход" class="width90p bold" tabIndex="4" title="Вход на почту" />
<div class="paddingT02"><a href="http://passport.i.ua/">Регистрация</a></div>
</div>
</div>
</form>
</div>

← →
alucard © (2006-11-20 15:49) [13]

я понял каждый раз значения
<input type="hidden" name="_subm" value="lform" />
<input type="hidden" name="scode" value="de6d88512d51c0e8495e1541b6225a7d" />
разные.

Как правильно залогиниться?
Кукисы использовать?

← →
alucard © (2006-11-22 10:02) [14]

Я думал что только я сдесь нихрена не шарю.

Ну что профессионалы не знают как залохиниться через редиректы (а вдруг их 10), но и на том спасибо, хоть узнал что это такое.

← →
Anatoly Podgoretsky © (2006-11-22 10:23) [15]

Профессионалы не уважают людей с дворовым сленгом и не отвечают им, а тем более с амбициями.

← →
Nehljudov © (2007-01-04 12:40) [16]

Собственно, тема до сих пор актуальна. У меня в чем-то похожая ситуация:
Сервер запрос перенаправляет на страницу для login"а, а вот пост дальше сделать не получается, возвращается эта же страница для login"a.

← →
MetalFan_pda (2007-01-04 19:59) [17]

берем какойнить http монитор и смотрим,что шлет бразер...
самый верный и 99% работающий метод ;)

С этим разобрался (IdCookieManager в помощь). Возникла еще одна проблема - при нажатии на картинку (именно картинку) броузер отображает xml файл, однако линк на него найти не получается в сорсе, если сделать get с запросом, который отображает броузер - возвращается java exception типа no document specified.

> MetalFan_pda (04.01.07 19:59) [17]
> берем какойнить http монитор и смотрим,что шлет бразер..
> .
> самый верный и 99% работающий метод ;)

отсылка идет через https, забыл?

> отсылка идет через https, забыл?

что, то нигде не виже упоминания про https... я ничего не забывал

и вообще совет - создай свою новую тему...

> MetalFan (05.01.2007 13:46:21) [21]

Призываешь к СПАМУ или провоцируешь?

Никакого спама. MetalFan, вы правы, я спутал, извините.

← →
SpellCaster (2007-01-15 13:55) [24]

> Возникла еще одна проблема - при нажатии на картинку (именно
> картинку) броузер отображает xml файл, однако линк на него
> найти не получается в сорсе, если сделать get с запросом,
> который отображает броузер - возвращается java exception
> типа no document specified.

Похоже, что ссылка генерится яваскриптом...

Помогите составить метод IdHTTP1.Post Найти похожие ветки