Не логинится на сайте

[RIO]

Здравствуйте, уважаемые! Возникла проблема, которая заключается в следующем, вот код:

procedure TBox.LoginButtonClick(Sender: TObject);
var
  S: string;
  M: TStringStream;
  Data: TIdMultiPartFormDataStream;
begin
  M := TStringStream.Create('');
  Data := TIdMultiPartFormDataStream.Create;
  Data.AddFormField('mode', 'login');
  Data.AddFormField('pass_hash', '');
  Data.AddFormField('lng', 'ru');
  Data.AddFormField('login', 'TTTTest17');
  Data.AddFormField('pass', 'TTTTest17');
  try
    LoginHTTP.Post('http://tm-trans.com/index.php', Data, M);
  except on E: EIDHttpProtocolException do
         if E.ErrorCode = 302 then
         begin
            LoginHTTP.Get(LoginHTTP.Response.Location, M);
         end;
  end;
  S := UTF8ToStrSmart(M.DataString);
  if Pos('Приветствуем', S) > 0 then
  begin
     ShowMessage('U R A ! ! !');
  end;
  M.Free;
  Data.Free;
end;

Но почему-то он не срабатывает, хотя снифером проверял, больше никаких пост параметров нет. Как мне кажется проблема в том, что при входе появляется ошибка 302 Moved, я ее обрабатываю, но проблема остается. В чем еще может скрываться проблема?

[mihali4]

А эту тему почитать не судьба ?
http://www.programmersforum.ru/showthread.php?t=53215

[RIO]

Так вот именно, что читал И менеджер подключен и индейцы обновлены...

[Voody]

Ошибка 302 возникает из-за перенаправления. То, что вы ее обрабатываете, ничего не дает, всё равно в M ничего не записывается.
Попробуйте включить обработку перенаправления (HandleRedirects:=true)

[RIO]

Как раз наоборот, при обработке ошибки записывается в M, а вот когда юзаю HandleRedirects, то ничего не записывается

[Voody]

Да, не увидел. Тогда что у вас в ответе сервера? Какая страница? Уверены, что даже если там и будет слово "Приветствуем", оно будет в нужной вам кодировке?

[RIO]

Кодировка читабельная Благодаря функции UTF8ToStrSmart, которую кстати здесь на форуме нашел... А в ответе у меня стартовая страница, которая опять предлагает мне авторизоваться

Кстати, ссылка на функцию, может кому-то пригодится:
http://programmersforum.ru/showthread.php?p=443061

[pesi]

var
  S: string;
  M: TStringStream;
  Data: TIdMultiPartFormDataStream;
begin
  M := TStringStream.Create('');
  Data := TIdMultiPartFormDataStream.Create;
  Data.AddFormField('mode', 'login');
  Data.AddFormField('pass_hash', '');
  Data.AddFormField('lng', 'ru');
  Data.AddFormField('login', 'TTTTest17');
  Data.AddFormField('pass', 'TTTTest17');
  try
    LoginHTTP.Post('http://tm-trans.com/index.php', Data, M);
  except
    on E: Exception do
      if Pos('302', E.Message) > 0 then
        LoginHTTP.Get('http://tm-trans.com'+LoginHTTP.Response.Location, M);
  end;
  S := UTF8ToAnsi(M.DataString);
  if Pos('Приветствуем', S) > 0 then
  begin
     ShowMessage('U R A ! ! !');
  end;
  M.Free;
  Data.Free;
end;

[RIO]

Не работает почему-то А у Вас работает данный код? Какая у вас версия Delphi, Indy?
Для тестов используйте логин TestAgain и пароль TestAgain