авторизация

[fAtliNg]

Помогите с авторизацией на сайте tfile.ru
var
params:tstringlist;
responseres: tstringstream;
str: string;
begin
params:=TStringList.Create;
responseres:=TStringStream.Create(' ');
try
params.Add('username=' + мой ник);
params.Add('password=' + мой пароль);
str := idhttp1.Post('http://tfile.ru/login',params);
if Pos('logout',str)>0 then
begin
[сообщение об успешной авторизации]
end;
finally
responseres.free;
params.free;
end;
end;

Компилируется нормально, но при попытки авторизации выдает:
Project Project2.exe reised exception class EIdHttpProtocolException with message 'HTTP/1.1 500 Internal Server Error'. Process stopped. Use Step or Run to continue

[MyIE]

В конце слеш:

<form method="post" action="/login/" id="login">

Скрытый параметр:

<input type="hidden" name="autologin"/>

Еще одна переменная, которую ты не передаешь:

<input type="submit" name="login" value="" title="Вход" class="s_login" />

И по-пробуй создай idHTTP динамически.

[fAtliNg]

procedure TForm1.Button1Click(Sender: TObject);
var
  Http  : TidHttp;
  CM    : TidCookieManager;
  Data  : TStringList;
  StrPage, UserID,  UserName  :  String;
  i : integer;
begin
 try
    Http := TIdHTTP.Create(Self);
    Data := TStringList.Create;
    CM := TidCookieManager.Create(Http);
    Http.AllowCookies := true;
    Http.CookieManager := CM;
    Http.HandleRedirects := true;

    Http.Request.Host:='livejournal.com';
    Http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.8) Gecko/20100722 MRA 5.6 (build 03402) AskTbPTV/3.8.0.12304 Firefox/3.6.8 sputnik 2.0.1.41';
    Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
    Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
    Http.Request.Referer:='http://tfile.ru/login/';

    Data.Add('autologin');
    Data.Add('username=' + Edit1.Text);
    Data.Add('password=' + Edit2.Text);
    StrPage := Http.Post('http://tfile.ru/login/', Data);
  finally
    Data.Free;
    CM.Free;
    Http.Free;
  end;

  if Pos('Logout',StrPage) > 0 then
    ShowMessage('Àâòîðèçàöèÿ ïðîøëà óñïåøíî')
  else
    ShowMessage('Àâòîðèçàöèÿ ïðîâàëèëàñü');

  Memo1.Lines.Text := StrPage;
end;

если логин и пароль неправильный, то выдает сообщение.
а если логин и пароль верный, то вылетает ошибка.
исправте плиз.

[MyIE]

Ну ты угарнул, у меня нет аккаунта на этом сайте.
По-пробовал я кароч на разных делфях... не знаю я в чем дело) я писал авторизовывалку для другого скрипта, так с д2009 пашет

[alex198555]

А подскажите, как сделать авторизацию если страничка сделана на Java Scritps или Java Application?

[alex198555]

Может ли кто-нибудь скинуть сам проект? У меня что-то не получается?!

[fAtliNg]

Посмотрите код который я выше выкладывал.
Может кто исправит ошибочки..