Авторизация synapse проблема с location

[Евгений79]

заполняю пост данные

Data:=TStringStream.Create('');
 Data.WriteString('username='+Login);
 Data.WriteString('password='+Password);
 Data.WriteString('submitlogin=Вход');
 HTTPSend.Document.LoadFromStream(Data);
 HTTPSend.HTTPMethod('post','http://www.domain.com/login.php');

В возвращенном ответе есть код редиректа 302 и ссылка для дальнейшего перехода logw.php?USR=&pass=9857e233124a4e02 cd5fbbc56f986
При логине через браузер USR= имеет какое-то слово в виде кракозябликов USR=ЕлыПалы&pass
При логине через же HTTPSend кракозяблики отсекаются

Куда исчезает usr ? Почему оно в виде кракозябликов, видимо надо еще работать с кодировками чтобы перейти по правильной ссылке.

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

[Voody]

Покажите адрес, откуда такой запрос делается.
А то я нашел только http://www.domain.com/account/ , и там совсем другой запрос

[Евгений79]

http://www.mojaderewnja.ru/login.php?start=1

тестовый акк
сервер 1
логин: проверка
пас: qwerty


Еще куки не принимаются почему-то. Из-за этого тоже авторизация не пройдет.

[Voody]

После первого post-запроса идет редирект по ссылке вида:

http://s1.mojaderewnja.ru/logw.php?USR=%D0%BF%D1%80%D0%BE%D0%B2%D0%B5%D1%80%D0%BA%D0%B0&pass=d8578edf8458ce06fbc5bb76a58c5ca4

Где "%D0%BF%D1%80%D0%BE%D0%B2%D0%B5%D1% 80%D0%BA%D0%B0" - слово "проверка" (логин). Закодировать можно так:

uses HTTPApp;

HTTPEncode(UTF8Encode('проверка'))

И md5-хэш пароля.

Если не давать программе делать редирект самой, а формировать его самому, то авторизация происходит без проблем (тестировал на Indy)

[Евгений79]

Большое спасибо!
Залогиниться получилось. Теперь второй этап, надо код страницы по этой ссылке
http://s1.mojaderewnja.ru/stadt/mark...lter=0&guild=0
выполняю запрос HTTPSend.HTTPMethod('get','http://s1.mojaderewnja.ru/stadt/markt.php?page=1&order=&id=&filter= 0&guild=0');
потом HTTPSend.Document загружаю информацию
memo1.LoadFromStream(HTTPSend.Docum ent);
и.. вижу только часть документа, код яваскрипта в начале страницы и все.
а если залогиниться в браузере и открыть страницу рынка, то там значительно больше данных. Сниффер не показывает в чем заковыка, по его наблюдениям тоже страница загружается полностью от одного гет запроса.

[Voody]

Полный код авторизации под вашим аккаунтом и получение кода нужной страницы:

procedure TForm1.Button1Click(Sender: TObject);
begin
 idhttp1.HandleRedirects:=false;
  try
  idhttp1.get('http://s1.mojaderewnja.ru/logw.php?USR=%D0%BF%D1%80%D0%BE%D0%B2%D0%B5%D1%80%D0%BA%D0%B0&pass=d8578edf8458ce06fbc5bb76a58c5ca4');
  except
 end;
  Memo1.Text:=idhttp1.get('http://s1.mojaderewnja.ru/stadt/markt.php?page=1&order=&id=&filter=0&guild=0');
end;

Всё. В Memo1 полный код страницы

[Евгений79]

вот блин если handleRedirects:= false
то программа выдает ошибку
Project Project1.exe raised exception class EIdHTTPProtocolException with message 'HTTP/1.1 302. Found'.Process stopped
и останавливается на строчке
IdHTTP1.Post('http://www.mojaderewnja.ru/login/proxy_login.php',LoginInfo);

если handleRedirects:= true перед post данными то авторизация не происходит.

procedure TForm1.Button1Click(Sender: TObject);
var data:tstringlist;
begin
 data:=tstringlist.Create;
 data.Add('ref=');
 data.Add('ef_id=');
 data.Add('server=1');
 data.Add('username=проверка');
 data.Add('password=qwerty');
 data.Add('submitlogin=Вход');
 idhttp1.HandleRedirects:=false;
 try
  idhttp1.Post('http://www.mojaderewnja.ru/login/proxy_login.php', data);
 except
 end;
  idhttp1.HandleRedirects:=true;
  idhttp1.get('http://s1.mojaderewnja.ru/logw.php?USR=%D0%BF%D1%80%D0%BE%D0%B2%D0%B5%D1%80%D0%BA%D0%B0&pass=d8578edf8458ce06fbc5bb76a58c5ca4');

 data.Free;
end;

[Евгений79]

уже и так попробовал

try
  idhttp1.Post('http://www.mojaderewnja.ru/login/proxy_login.php', data);
 except
  idhttp1.HandleRedirects:=true;
  idhttp1.get('http://s1.mojaderewnja.ru/logw.php?USR=%D0%BF%D1%80%D0%BE%D0%B2%D0%B5%D1%80%D0%BA%D0%B0&pass=d8578edf8458ce06fbc5bb76a58c5ca4');
 end;

тоже самое, спотыкается на idhttp1.Post

[Voody]

Вне среды запускайте, скомпилированный Project1.exe.
Или включите игнорирование этой ошибки. В окне ошибки галочка снизу