Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите составить метод IdHTTP1.Post [D7, WinXP]

Страницы: 1 2 >
alucard © (2006-11-17 12:00:00)
Доброго времени суток.

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

на сайте 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"

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

SpellCaster (2007-01-15 13:55:00) [1]
> Возникла еще одна проблема - при нажатии на картинку (именно
> картинку) броузер отображает xml файл, однако линк на него
> найти не получается в сорсе, если сделать get с запросом,
> который отображает броузер - возвращается java exception
> типа no document specified.

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

Nehljudov (2007-01-05 15:49:00) [2]
Никакого спама. MetalFan, вы правы, я спутал, извините.

Anatoly Podgoretsky (2007-01-05 13:55:00) [3]
> MetalFan (05.01.2007 13:46:21) [21]

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

MetalFan (2007-01-05 13:46:00) [4]
и вообще совет - создай свою новую тему...

MetalFan (2007-01-05 13:46:00) [5]

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

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

Nehljudov (2007-01-05 13:01:00) [6]

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

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

Nehljudov (2007-01-04 20:06:00) [7]
С этим разобрался (IdCookieManager в помощь). Возникла еще одна проблема - при нажатии на картинку (именно картинку) броузер отображает xml файл, однако линк на него найти не получается в сорсе, если сделать get с запросом, который отображает броузер - возвращается java exception типа no document specified.

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

Nehljudov (2007-01-04 12:40:00) [9]
Собственно, тема до сих пор актуальна. У меня в чем-то похожая ситуация:
Сервер запрос перенаправляет на страницу для login'а, а вот пост дальше сделать не получается, возвращается эта же страница для login'a.

Anatoly Podgoretsky (2006-11-22 10:23:00) [10]
Профессионалы не уважают людей с дворовым сленгом и не отвечают им, а тем более с амбициями.

alucard (2006-11-22 10:02:00) [11]
Я думал что только я сдесь нихрена не шарю.

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

alucard (2006-11-20 15:49:00) [12]
я понял каждый раз значения
<input type="hidden" name="_subm" value="lform" />
<input type="hidden" name="scode" value="de6d88512d51c0e8495e1541b6225a7d" />
разные.

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

alucard (2006-11-20 15:04:00) [13]
<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 12:58:00) [14]
А как отправлять-то?

Так:

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 08:08:00) [15]
Понял, сейчас попробую.

Masterok (2006-11-17 21:04:00) [16]
вот это видишь:
<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-17 16:04:00) [17]
Выбрасывает на страницу как будто я ввел неправильный пароль.

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

alucard (2006-11-17 14:50:00) [18]
Спасибо. Пока двинулся дальше.

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

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

Dmitrij_K (2006-11-17 14:27:00) [19]

> 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:23:00) [20]

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

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

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

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »