Авторизация webmoney mini. Маленький вопросик

[webber9989]

procedure TForm1.Button2Click(Sender: TObject);
var
data:tstringlist;
page2:string;
begin

data:=tstringlist.Create;
IdHttp1.handleRedirects:=True;

data.Add('__LASTFOCUS=');
data.Add('__EVENTTARGET=');
data.Add('__EVENTARGUMENT=');
data.Add('__LBD_VCT='+Memo2.Text);
data.Add('__LBD_SGC_login_ctl00_cph_captcha_captcha=0');
data.Add('__VIEWSTATE='+Memo3.Text);
data.Add('__EVENTVALIDATION='+Memo5.Text);
data.Add('ctl00$cph$ddlAuthMethod=Логина и пароля');
data.Add('ctl00$cph$tbLogin='+Edit1.Text);
data.Add('ctl00$cph$tbPassword='+Edit2.Text);
data.Add('ctl00$cph$Captcha$tbCaptcha='+Edit3.Text);

page2:=idhttp1.Post('https://mini.webmoney.ru/login.aspx?ReturnUrl=%2fdashboard.aspx',data);

Memo4.Text:=page2;

end;

Всё правильно парсит, все данные есть.

Если Редирект выключен то пишет ошибку:
HTTP/1.1 302 found.

Если включить редирект, то в Memo4 выводит чистый лист...

Смена ссылки _https://mini.webmoney.ru/login.aspx?ReturnUrl=%2fdashboard.a spx на _https://mini.webmoney.ru/login.aspx ничего не меняет...

[record222]

Не проверял, но походу должно все работать.
Выводит чистую ссылку так как на ее идет запрос. Если запрос верный идет редирект на твой аккаунт в webmony.
Page2 будет пуст так как редирекнутую страницу он не покажет...

Idhttp.response.responsetext;

- вроде так можно.
А еще лучше посмотри через сниффер как работает твое ПО. авторизация должна работать.

[webber9989]

Сделал так:

page2:=idhttp1.post('https://mini.webmoney.ru/login.aspx?ReturnUrl=%2fdashboard.aspx',data);
if pos('302', Idhttp1.response.responsetext) > 0 then
begin
Memo4.Text:=idhttp1.get('https://mini.webmoney.ru/dashboard.aspx');
end;

Ничего не изменилось, при таком варианте как выше, get запрос на _https://mini.webmoney.ru/dashboard.aspx выдает страницу логина...

И вот приложу сниффер:

[record222]

Так что Вам не нравиться не могу понять! Авторизация работает.
После того как вышла ошибка 302 делаем переход на страницу например с кошельками или настройккми методом get и выводим исходный код в мемо...

Да и еще одно!!! Ответ сервера выводиться вот так:

http1.response.responsecode;

А вот это должно быть так

http1.handleRedirects:=False;
If (302, http1.response.responsecode) <> 0 then