Авторизация на сайте, в HTTP Analyzer работает в программе нет.

[Человек_Борща]

Всем доброго времени суток!

Проблема:
В http analyzer смотрю что посылается на сайт:

__Click=0
FullName=
Password=

Собственно там все работает.

Но вот с кодом проблема:

procedure TAltolanThread.Execute;
var
  lcUserLogin,
  lcUserPassword:string;
  Http:TIdHTTP;
  Request:TStringList;
  Answer:string;
  i:Integer;
begin
  //lcUserLogin:=MainUnit.UserLogin;
  //lcUserPassword:=MainUnit.UserPassword;
  lcUserLogin:='*****';
  lcUserPassword:='*****';
  Request:=TStringList.Create;
  http:=TIdHTTP.Create(nil);
  Http.HandleRedirects:=True;
  try
  Request.Add('__Click=0');
  Request.Add('FullName=***');
  Request.Add('Password=****');
  Answer:=Http.Post('http://altolan.com/www2/int-clients.nsf/userenter?OpenForm&Seq=1',Request);
  MainForm.sRichEdit1.Lines.Add(Utf8ToAnsi(Answer));
  finally
  Request.Free;
  Http.Free;
  end;
end;

и ошибка:
HTTP/1.1 500 Internal Server Error

Что я делаю не правельно?

[Человек_Борща]

Собственно разобрался немного....

procedure TAltolanThread.Execute;
var
  lcUserLogin,
  lcUserPassword:string;
  Http:TIdHTTP;
  Request:TStringList;
  Answer:string;
  i:SmallInt;
begin
  //lcUserLogin:=MainUnit.UserLogin;
  //lcUserPassword:=MainUnit.UserPassword;
  Request:=TStringList.Create;
  http:=TIdHTTP.Create(nil);
  Http.HandleRedirects:=True;
  //Requset data
  try
  Request.Clear;
  Request.Add('__Click=0');
  Request.Add('FullName=);
  Request.Add('Password=');
  Answer:=Http.Post('http://altolan.com/www2/int-clients.nsf/userenter?OpenForm&Seq=1',Request);
  MainForm.sRichEdit1.Lines.Add(Utf8ToAnsi(Answer));
  finally
  Request.Free;
  Http.Free;
  end;
end;

Ошибка состоит в том что в запросе POST зазмер должен равняться 40. У меня же он равен 41 т.к. после Password и моего пароля идёт знак & который вообще непонятно откуда взялся. (Смотрел HTTP Analyzer'ом)
И от сюда растут ног ой т.е. 4 параметр который не имеет ни имени ни значения и его надо заполнить, хатя такогоо параметра и в памине нет.
По сути пустая строка.

Как убрать непонятный &?

[Человек_Борща]

Поможет кто?

[sxcine]

procedure TAltolanThread.Execute;
var
lcUserLogin,
lcUserPassword:string;
Http:TIdHTTP;
Request:TStringList;
Answer:string;
i:SmallInt;
begin
//lcUserLogin:=MainUnit.UserLogin;
//lcUserPassword:=MainUnit.UserPasswo rd;
Request:=TStringList.Create;
http:=TIdHTTP.Create(nil);
Http.HandleRedirects:=True;
//Requset data
try
Request.Clear;
Request.Add('__Click=0');
Request.Add('FullName=');
Request.Add('Password=');
Answer:=Http.Post('http://altolan.com/www2/int-clients.nsf/userenter?OpenForm&Seq=1',Request);
MainForm.sRichEdit1.Lines.Add(Utf8T oAnsi(Answer));
finally
Request.Free;
Http.Free;
end;
end;


строка Request.Add('FullName=); неверная вроде, надо закрывать переменную - Request.Add('FullName=');.

[Человек_Борща]

Собственно=) Это не решает проблемы , пустой переменной.

procedure TAltolanThread.Execute;
var
  lcUserLogin,
  lcUserPassword:string;
  Http:TIdHTTP;
  Request:TStringList;
  Answer:string;
  i:SmallInt;
begin
  //lcUserLogin:=MainUnit.UserLogin;
  //lcUserPassword:=MainUnit.UserPassword;
  Request:=TStringList.Create;
  http:=TIdHTTP.Create(nil);
  Http.HandleRedirects:=True;
  //Requset data
  try
  Request.Clear;
  Request.Add('__Click=0');
  Request.Add('FullName=');
  Request.Add('Password=');
  Answer:=Http.Post('http://altolan.com/www2/int-clients.nsf/userenter?OpenForm&Seq=1',Request);
  MainForm.sRichEdit1.Lines.Add(Utf8ToAnsi(Answer));
  finally
  Request.Free;
  Http.Free;
  end;
end;

Откуда сие берётся?

Added
Формируется список команд посылаемых на сервер:

__Click=0&FullName=&Password=&

Должно быть

__Click=0&FullName=&Password=

откуда в запросе & который обрабатывает как ещё один параметр серверу без имени и значения что ведёт к ошибке http/1.1 500 internal server error?

[grafgrial]

весь запрос смотрел?

__Click=0&FullName=******&Password=******&submit=%3E%3E

может еще что забыл?

[Человек_Борща]

submit=%3E%3E

этого на сайт не посылается. Точно проверил через HTTP Analyzer длинна 40 знаков.
Моя программа высылает 41 знак.
41-ый и есть пустое, не заполненное поле. Откуда берётся я хз=)