Автроризация через делфи

[develsnik]

Добрый вечер,уважаемые программисты.
Вот у меня возникла такая проблема.
Есть сайт на котором только два поля(логин и пароль),больше ничего нет.
Как мне через делфи авторизоваться на нем?
Знаю ,что как кто через idhttp,а как хз(
Вот код этих окон:
<div class="login">

<table width="300" border="0">
<tr>
<td>Вход</td>
</tr>
<tr>
<td><form method="post" action="">
<label>
<input type="text" name="login_name" id="login_name" plaсeholder="логин"/>
</label>
</td>
</tr>
<tr>
<td>
<label>
<input type="password" name="login_password" id="login_password" />
</label>
</td>
</tr>
<tr>
<td>
<label>

<input name="login" id="login" type="hidden" value="submit" /> <input onclick="submit();" name="button" type="submit" id="button" value="Вход" />
</label>
</form></td>
</tr>
</table>
</div>
Заранее спасибо)

[Lardes]

procedure TForm1.Button1Click(Sender: TObject);
var
  LoginInfo: TStringList;
  Response: TStringStream;
begin
  try
    LoginInfo := TStringList.Create;
    Response := TStringStream.Create('');
    LoginInfo.Add('login_name=MyName');
    LoginInfo.Add('login_password=MyPass');
    LoginInfo.Add('login=');
    IdHTTP1.Post('http://mywebsite.xxx/', LoginInfo, Response);
    Showmessage(Response.DataString);
  finally
    begin
      Response.Free;
      LoginInfo.Free;
    end;
  end;
end;

Примерно так

[develsnik]

сделал так,программа запустилась,но при нажатии на кнопку открылся html код страницы (
А как бы еще сделать ,что бы если вход удался то вывести сообщение об этом?


procedure TForm1.Button1Click(Sender: TObject);


var
LoginInfo: TStringList;
Response: TStringStream;

begin


try
LoginInfo := TStringList.Create;
Response := TStringStream.Create('');
LoginInfo.Add('login_name=edit1.tex t');
LoginInfo.Add('login_password=edit2 .text');
LoginInfo.Add('login=');
IdHTTP1.Post('http://мойсайт/', LoginInfo, Response);
Showmessage(Response.DataString);
finally
begin
Response.Free;
LoginInfo.Free;
end;
end;
end;
Заранее спасибо)

[BDA]

сделал так,программа запустилась,но при нажатии на кнопку открылся html код страницы (

Ну все правильно
Showmessage(Response.DataString); - показывает код, который пришел от сайта.
Вы должны просмотреть код пришедшей страницы (для удобства сохраните код Response.SaveToFile('code.html'); и откройте его в блокноте) и решить, какая строка однозначно характеризует, что пользователь авторизовался. С помощью функции pos проверить наличие этой строки в Response.DataString и вывести соответствующее сообщение.

[develsnik]

блин(
Ничего не понял(
а можно код если Вам не сложно?

[Lardes]

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

Ну все правильно
Showmessage(Response.DataString); - показывает код, который пришел от сайта.
Вы должны просмотреть код пришедшей страницы (для удобства сохраните код Response.SaveToFile('code.html'); и откройте его в блокноте) и решить, какая строка однозначно характеризует, что пользователь авторизовался. С помощью функции pos проверить наличие этой строки в Response.DataString и вывести соответствующее сообщение.

+1

Только просматривать тело документа несколько затратно. Проще будет узнать ответ сервера (проверить можно снифером). Как правило при успешной авторизации указывается код ответа примерно 302 или 303 (в общем их куча и универсальной проверки для авторизации нет - для каждого сайта своя структура ответа). Либо в заголовке ответа просмотреть редирект. Ну либо в куках найти что-то идентифицирующее успешность авторизации.

develsnik, исправь, пожалуйста, строчку

LoginInfo.Add('login_name=edit1.tex t');
LoginInfo.Add('login_password=edit2 .text');

на:

LoginInfo.Add('login_name=' + edit1.text);
LoginInfo.Add('login_password=' + edit2.text);

На счет кода - разберись что шлет тебе сервер при авторизации с помощью снифера и браузера и повтори тоже самое

[BDA]

универсальной проверки для авторизации нет - для каждого сайта своя структура ответа

Вот именно
Так что, develsnik, никакого кода написать не могу.
Учитесь пользоваться сниффером (мне нравится Charles + Chrome, но можете выбрать какой угодно сниффер).

[develsnik]

это как плагин к хрому идет?

[Lardes]

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

это как плагин к хрому идет?

Отвечу за BDA - нет, это прога (снифер)

[develsnik]

так,скачал,запустил, авторизовался на сайте,и на что именно смотреть в программе?
Status Complete
Response Code 302 Found
Protocol HTTP/1.1
Method GET
Content-Type text/html; charset=windows-1251
Client Address /127.0.0.1
Remote Address -
Timing
Request Start Time 23.02.13 12:04:15
Request End Time 23.02.13 12:04:15
Response Start Time 23.02.13 12:04:15
Response End Time 23.02.13 12:04:15
Duration 0 ms
Request Duration 0 ms
Response Duration 0 ms
Latency 0 ms
Speed ∞ KB/s
Response Speed ∞ KB/s
Size
Request Header Size 564 bytes
Response Header Size 334 bytes
Request Size -
Response Size 296 bytes
Total Size 1,17 KB (1194 bytes)
Request Compression -
Response Compression -