Авторизация. Снова((

[newmister]

Полазел по форуму, нашел как делать, но не работает..
Есть сайт вот с такой формой авторизации

<form action="index.php" method="POST">
<table border=1 width=50% align=center>
<td align=right width=200>Имя пользователя</td> <td><input type="text" name="login" value=""/></td> <tr>
<td align=right width=200>Пароль</td><td><input type="password" name="passwd"/> </td> <tr>

<td align=right width=200>Запомнить меня</td><td> <input type="checkbox" name="remember_me" value=ON /> </td> <tr>
<td align=right width=200><input type="submit" name="submit" value="Вход"/> </td>
<td> <A href="./register.php">Регистрация</A> </td> <tr>
</table>
</form>

ну и собственно программа, которая должна авторизироваться, и получить страничку (для парсинга).
Шарю в этом не сильно, но из сайта понял, надо типа этого сделать:

procedure TForm1.Button1Click(Sender: TObject);
var log:TStringList; 
begin
log:=TStringList.Create;
log.Add('login=ччч');
log.Add('passwd=xxx');
try
IdHTTP1.Post('http://www.site.com/index.php',log);
finally
log.free;
end;
Memo1.Lines.Add(idhttp1.get('http://www.site.com/main.php'));
end;

Вот тольно не авторизируется. И в Memo1 получается что то типа "Необходимо авторизироваться"

З.Ы. Логин на русском.

[QunneD]

Ты не правильно делаеш.

procedure TForm1.Button1Click(Sender: TObject);
var 
   log:TStringList; 
begin
   log := TStringList.Create;
   log.Add('login=ччч');
   log.Add('passwd=xxx');
   Memo1.Lines.Add(IdHTTP1.Post('http://www.site.com/main.php',log));
   log.free;
end;

Посылать надо в PHP файл, который принимает запрос.

[Квэнди]

Сообщение от QunneD

Ты не правильно делаеш.

procedure TForm1.Button1Click(Sender: TObject);
var 
   log:TStringList; 
begin
   log := TStringList.Create;
   log.Add('login=ччч');
   log.Add('passwd=xxx');
   Memo1.Lines.Add(IdHTTP1.Post('http://www.site.com/main.php',log));
   log.free;
end;

Посылать надо в PHP файл, который принимает запрос.

зачем человека обманываете?

<form action="index.php" method="POST">

какое отношение к этой форме имеет main.php ?
К автору темы:
сбросте сюда или в личку адрес сайта и авторизационные данные, завтра посомтрю, напишу.

[QunneD]

Кого я обманываю? Он сам написал в своем коде

procedure TForm1.Button1Click(Sender: TObject);
var log:TStringList;
begin
log:=TStringList.Create;
log.Add('login=ччч');
log.Add('passwd=xxx');
try
IdHTTP1.Post('http://www.site.com/index.php',log);
finally
log.free;
end;
Memo1.Lines.Add(idhttp1.get('http://www.site.com/main.php'));
end;

main.php

И прежде чем говорить то что я кого то обманываю проверьте на работа способность. Никогда никого не обманывал, и не собираюсь.

[newmister]

авторизация на том сайте идет в index.php, а данные потом получаются из main.php
Если после авторизации (руками в браузере) зайти на index.php - перенаправляет на main.php.
Щас попробую что Квенди писал, если не пойдет - в личку скину сайт

[Пепел Феникса]

а там при редиректе на Main.php параметров нет?(в самом браузере)

[newmister]

Не поперло то. Авторизацию требует все равно. сайт в личку кинул
>Пепел Феникса: не понял что ты написал..

[Пепел Феникса]

ты отправляешь данные на index.php а потом приходит ответ, в ответе тебя перенаправляют на main.php
(там может быть чтото типа main.php?SID=xxxxxxxxxx)

кстати а разве при отправке русского логина не нужно его кодировать?
(я просто этот компонент не знаю)

[Квэнди]

Сообщение от QunneD

Ты не правильно делаеш.

procedure TForm1.Button1Click(Sender: TObject);
var 
   log:TStringList; 
begin
   log := TStringList.Create;
   log.Add('login=ччч');
   log.Add('passwd=xxx');
   Memo1.Lines.Add(IdHTTP1.Post('http://www.site.com/main.php',log));
   log.free;
end;

Посылать надо в PHP файл, который принимает запрос.

вы отправляете в своем примере POST запрос на страницу, которой этот post как собаке 5-я нога.

Авторизацию требует все равно. сайт в личку кинул

кидали видимо не мне, у меня ничего нет.

[Квэнди]

Да,кстати, про логин на русском сразу не обратил внимание. Разумеется его надо кодировать.
newmister
любым http снифером посмотрите post, который отправляет браузер при авторизации и все встанет на свои места.