Ошибка 411 при отправке запроса через TIdHTTP методом POST

← →
Николай2005 (2005-11-24 22:47) [0]

Вчера спрашивал мастеров, как сформировать правильно запрос для метода POST. Следовал, как мне казалось всем их инструкциям, но упрямый сервер повторяет, что значение длины запроса неверно. Привожу код, приводящий к этой ошибке.

procedure TForm1.Button1Click(Sender: TObject);
var
Response: TStringStream;
datapost: string;
begin
datapost := "X-Eport-Point: 123\r\n" +
"X-Eport-Auth: 123\r\n" +
"X-Eport-Password: 123\r\n" +
"\r\n";
IdHTTP1.Host := "https://dealer.e-port.ru/cp/dir";
IdHTTP1.Request.ContentType := "text/plain;charset=Windows-1251";
IdHTTP1.Request.ContentLength := Length(datapost);
Response := TStringStream.Create("");
IdHTTP1.IOHandler := IdSSLIOHandlerSocket1;
mePostData.Lines.Add(datapost);
try
try
IdHTTP1.Post("https://dealer.e-port.ru/cp/dir", mePostData.Lines, Response);
finally
end;
memoHTML.Lines.Text := Response.DataString;
finally
Response.Free;
end;
end;

Что-то я совсем запутался в формировании запроса... Помогите.

Цель отправить запрос на сервер для получения его справочника, а для этого в заголовке запроса необходимо указать не только логин и пароль, но и номер так называемой точки входа

← →
Reindeer Moss Eater © (2005-11-25 00:16) [1]

перечитай снова ответ, который тебе дали вчера.

← →
Николай2005 (2005-11-26 21:08) [2]

Уважаемый Reindeer Moss Eater, я искренне не понимаю, что я не правильно сделал и уже не раз перечитал вашу рекомендацию. Дело в том, что IdHTTP мне нужен для установки SSL соединения. Во втором письме я ведь исправил код так как было сказано, но ошибка никуда не делась, такое впечатление, что изменение вообще никак не сказалось на поведении сервера

Начни с того, что перестань рассчитывать Content Length сам.
Затем помотри в каком формате должны указываться поля из пост запроса.

Ошибка 411 при отправке запроса через TIdHTTP методом POST Найти похожие ветки