Показать сообщение отдельно
  #1  
Старый 05.11.2021, 11:18
Kboris Kboris вне форума
Прохожий
 
Регистрация: 05.11.2021
Сообщения: 1
Версия Delphi: Delphi6,Delph10
Репутация: 10
По умолчанию Теряется тело POST запроса

Добрый день!

Есть вопрос.
При использовании TIDHTPP(Delphi6) и THTTPNetClient(Delphi)
делаю POST запрос.
Запрос доходит без тела на удаленный адрес.
Запрос доходит с телом на локальной машине.
Может быть кто-то скажет, встречал. Что сделать чтобы тело доходило на удаленный адрес?

Привожу код с IDHTTP
Код:
var
url,res: string;
Post: TStringList;
  a,p: TStringStream;
begin
A:= TStringStream.Create('');
Post:=TStringList.Create;
IdHTTP1.Request.ContentType:= 'application/json; charset=windows-1251';
IdHTTP1.Request.AcceptEncoding:='Encoding: gzip, deflate, br';
IdHTTP1.Request.Accept:='*/*';
IdHTTP1.Request.Connection:='keep-alive';
Post.Add('{"StartsWith":"/get_restaurantsections"}');
url:='http://192.168.22.226:7722/add_kommand';
IdHTTP1.ProtocolVersion:=pv1_1;
p:=TStringStream.Create(UrlEncode('{"StartsWith":"/get_restaurantsections"}',true));
idHTTP1.Post(url, P,A);
Memo1.lines.add(idHTTP1.ResponseText+' '+A.DataString);
Админ: Пользуемся тегами при оформлении кода!

end;
Ответить с цитированием