Проблема с авторизацией на сайте

[jihot]

Добрый день!
Надеюсь написал в правильный раздел..

Почитав принципы авторизации на сайтах и заинтересовавшись в этом я решил попробовать это на практике..
Но у меня не совсем получилось то, что я хотел.

На своём сервере создал обычный .php файлик следующего содержания:

<?php
$login = $_POST['login'];
$ps = $_POST['ps'];
?>
<form action = "index.php" method="post">
<?php
if (($login == "admin") && ($ps == "1234")) {
print "<input type=\"hidden\" value=\"Вы зашли!\">"; }
?>
<b>Логин :</b><br>
<input type="text" name="login" size="15" maxlength="10" value="<?=$login?>"><br>
<b>Пароль :</b><br>
<input type="text" name="ps" size="15" maxlength="10" value="<?=$ps?>"><br>
<input type="submit" value="Войти!">
</form>

В принципе всё просто, если в логин и пароль ввёден правильно то выводится "<input type="hidden" value="Вы зашли!">

Но проблема в том, что у меня не проходит авторизация через delphi

Код в Delphi:

procedure TForm1.sButton1Click(Sender: TObject);
var 
  Flags, TargetFrameName, PostData, Headers: OleVariant; 
begin 
  WebBrowser1.Navigate('http://localhost/index.php', Flags,
    TargetFrameName, PostData, Headers);
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
responseres,params : TStrings;
begin
params:=TStringList.Create;
responseres:=TStringList.Create;
responseres.Text:=IdHttp1.Post('http://localhost/index.php',params);
if Pos('<input type="hidden" value="Вы зашли!">',responseres.Text)<>0 then
ShowMessage('Авторизовались!')
end;

Через сайт всё работает, в delphi - нет.

Помогите, в чём проблема ?


С Уважением,

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

а вы чего параметры запроса то не заполняете?

[jihot]

а я незнаю какие параметры запросa заполнить, если они всё заполняются на самой странице (

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

http://programmersforum.ru/showthread.php?t=38803
тут же расписано.

[jihot]

я немного не правильно описал суть проблемы.
сейчас понял больше :
Все параметры у меня передаются, как и должно было быть.

Нажимая правой кнопкой мыши - получить html-код , я вижу что и хотел -> <input type="hidden" value="Вы зашли!">

Но вот, как мне получить программно html-код текущей странички? без всяких параметров...

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

когда вы в браузер логинитесь, он передает параметры.
и потому скрипт выдает то что надо.

[jihot]

Сообщение от Пепел Феникса

когда вы в браузер логинитесь, он передает параметры.
и потому скрипт выдает то что надо.

Но как мне программно получить html-код загруженной у меня сейчас странички?

Post мне кажется не подошло бы, т.к там нужно указывать параметры и адрес страницы.
А страница уже загружена и нужно лишь её код узнать.

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

загружена куда?(и внутри ли вашего приложения)

[jihot]

Сообщение от Пепел Феникса

загружена куда?(и внутри ли вашего приложения)

я имел ввиду про браузер.
в TWebBrowser.

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

procedure WB_GetHTML(Lines:Tstrings;WebBrowser:TWebBrowser);
var
 PersistStream: IPersistStreamInit;
 MemStream: TMemoryStream;
 Stream: IStream;
begin
 PersistStream := WebBrowser.Document as IPersistStreamInit;
 MemStream := TMemoryStream.Create;
 try
  Stream := TStreamAdapter.Create(MemStream, soReference) as IStream;
  PersistStream.Save(Stream, True);
  MemStream.Position:=0;
  Lines.Clear;
  Lines.LoadFromStream(MemStream);
 finally
  MemStream.Free;
 end;
end;

который раз выкладываю этот код.в uses должно быть activex