3

Пишу мобильное приложение под Android на 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;

Почему такое происходит и как это исправить?

2
  • 1
    а если через CustomHeaders вписать? Между "принимает запросы json" и "нужно обязательно указать" связь "поэтому" не очень корректна. Обязанности в целом такой обычно нет, но сервер в целом может фильтровать запросы по сему заголовку.
    – teran
    9 июн 2017 в 13:41
  • Использовал CustomHeaders - не помогло, результат тот же. Сервер фильтрует запросы, и по этому в нужно в заголовке обязательно указать "Content Type: application/json". 12 июн 2017 в 3:31

1 ответ 1

3

У HttpClient есть 4 перегруженных (overload) Post метода:

// Post a raw file without multipart info
function Post(
  const AURL: string; 
  const ASourceFile: string; 
  const AResponseContent: TStream = nil; 
  const AHeaders: TNetHeaders = nil
): IHTTPResponse; overload;

// Post TStrings values adding multipart info
function Post(
   const AURL: string; 
   const ASource: TStrings; 
   const AResponseContent: TStream = nil; 
   const AEncoding: TEncoding = nil; 
   const AHeaders: TNetHeaders = nil
): IHTTPResponse; overload;

// Post a stream without multipart info
function Post(
   const AURL: string; 
   const ASource: TStream; 
   const AResponseContent: TStream = nil;
   const AHeaders: TNetHeaders = nil
): IHTTPResponse; overload;

// Post a multipart form data object
function Post(
   const AURL: string; 
   const ASource: TMultipartFormData; 
   const AResponseContent: TStream = nil;
   const AHeaders: TNetHeaders = nil
): IHTTPResponse; overload;

Первый и третий методы отправляют данные как есть, второй метод (которым вы воспользовались) отправляет данные как application/x-www-form-urlencoded, четвёртый метод отправляет данные как multipart/form-data.

Таким образом, вам нужно использовать первый или третий метод, если вы хотите отправлять сырые данные с указанием своего Content-Type.

Пример, с использованием третьего метода:

var
  data: TStringStream;
  H: THTTPClient;
begin
  data := TStringStream.Create;
  try
    data.WriteString('{"phone":"' + HomeForm.Phone.Text + '"}');

    h := THTTPClient.Create;
    try      
      h.ContentType := 'application/json';
      h.Accept := 'application/json, text/plain, */*';    
      log.Text := h.Post('https://site.ru/api/phone', data).ContentAsString();
    finally
      h.Free;
    end;
  finally
    data.Free;
  end;
end;
0

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.