[scroyler]

Здравствуйте, подскажите пожалуйста в чем ошибка?
Выдает ошибку idhttp HTTP/1.1 302 Found.

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Form1: TForm1;
  idhttp1: TIdHttp;
  v: string;
  p: TStringList;
begin
p:=TStringList.Create;
p.Add('loginUserName=LoGin');
p.Add('loginUserPassword=password');
 IdHttp1:=TIdHttp.Create(nil);
 idhttp1.Post('http://fileserve.com/login.php',p);
 v:=Idhttp1.Get('http://fileserve.com/dashboard.php');
 delete(v,1,pos('<span style="font-size: 20px; font-weight: normal;">',v)+length('</span>')-1);
 delete(v,pos('<',v),length(v));
 Label1.Caption:='Заработок: '+v+' $';
 p.Free;
 IdHttp1.Free;
end;

end. 


[NumLock]

это ошибка не TIdHTTP, а разработчика:

IdHTTP1.HandleRedirects:=True;

[scroyler]

спасибо,но все равно ошибка

[m1sclick]

Может быть проблемма при заполнеении данных на авторизацию:

Код:

loginUserName=LoGin
loginUserPassword=password

Уверен что между этими двумя полями не должно быть разделителя &? Я почти уверен что он там должен быть, дальше не смотрел код.

[scroyler]

можно по подробнее?

[m1sclick]

Я так понимаю LoGin и password в реальности переменные. Значит вот так примерно:

Код:

p.Add('loginUserName='+LoGin);
p.Add('&loginUserPassword='+password);

Это конечно только догадки основанные на собственном опыте. Внимательней смотри на данные что отправляются на сервер при логине через браузер.

Глянул сайт, на сервер отправляются такие вот данные:

loginUserName=44444444&loginUserPassword=555444444 444444&recaptcha_response_field=&recaptcha_challen ge_field=&recaptcha_shortencode_field=&ppp=303&ppp =101&loginFormSubmit=Login

Глянь на то что отправляешь ты и вопрос отпадет сам по себе.

[scroyler]

loginUserName=44444444&loginUserPassword=555444444 444444&recaptcha_response_field=&recaptcha_challen ge_field=&recaptcha_shortencode_field=&ppp=303&ppp =101&loginFormSubmit=Login

Подчеркнутые,это логин и пароль?
Спасибо. а как правильней составить из них запрос?

Код:

p.Add(loginUserName=44444444&loginUserPassword=555444444 444444&recaptcha_response_field=&recaptcha_challen ge_field=&recaptcha_shortencode_field=&ppp=303&ppp =101&loginFormSubmit=Login);

[m1sclick]

Код:

p.Add(loginUserName='+login+'&loginUserPassword='+password+'&recaptcha_response_field=&recaptcha_challen ge_field=&recaptcha_shortencode_field=&ppp=303&ppp =101&loginFormSubmit=Login);

Вот так примерно. Посмотри что означают в запросе вот эти данные:
ppp=303 и ppp =101 - скорее всего ничего важного но поискать стоит.