[Kboris]

Добрый день!

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

Привожу код с IDHTTP

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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;

[lmikle]

посмотри подсказку здесь:
https://stackoverflow.com/questions/...-send-raw-body