Здравствуйте, подскажите пожалуйста в чем ошибка?
Выдает ошибку 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.