Здравствуйте!
Пишу мобильное приложение на Delphi 10. Моя программа отправляет post и get запросы использую компонент THTTPClient. Скрипт на сервере принимает запросы в формате json, по этому при отправке запроса нужно обязательно указать в заголове "Content Type: application/json". Дело в том, что у меня не получается изменить Content Type. При отправке Get запроса он изменятся, а при отправке Post запроса - нет.
Использую примерно такой код:
procedure ThomeForm.Button1Click(Sender: TObject);
var data: TStringList;
H:THTTPClient;
begin
data := TStringList.Create;
data.Add('{"phone":"' + HomeForm.Phone.Text + '"}');
h := THTTPClient.Create;
h.ContentType := 'application/json';
h.Accept := 'application/json, text/plain, */*';
log.Text := h.Post('https://site.ru/api/phone', data).ContentAsString();
end;
Прошу объяснить, почему такое происходит и как это исправить.