Перейти к содержанию
Fire Monkey от А до Я
  • 0

IdHTTP post запрос IdHTTPServer


Rik33

Вопрос

Помогите разобраться с post запросом. Не разу не писал web-сервис. Накидал 2 простецких проекта - один отправляет post запрос, второй соответственно его обрабатывает и возвращает результат - текст из Memo поля. Результат - текст возвращается в непонятной кодировке.
вот куски кода ....
1. (клиент)

DelphiВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  PostData: TStringStream;
  ResponseBody: string;
  Json: String;
begin
    Json := '{"report": "X"}';
    PostData := TStringStream.Create(Utf8Encode(Json));
    IdHTTP1.Request.ContentType := 'application/json';
    IdHTTP1.Request.Accept := 'application/json';
    IdHTTP1.Request.CharSet := 'utf-8';
    ResponseBody:=IdHTTP1.Post('http://localhost:8080/goods',PostData);
    Memo1.Text:=ResponseBody;
end;

2.(Сервер)

DelphiВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var
  Stream : TStream;
  S : string;
  X, Obj: ISuperObject;
  J,ch: Integer;
  JsonToSend: TStringStream;
begin
 
 If ARequestInfo.CommandType = hcPOST then
  begin
      if ARequestInfo.URI=('/goods') then
      begin
         Stream := ARequestInfo.PostStream;
         if Assigned(Stream) then
          begin
             JsonToSend:=TstringStream.Create;
             JsonToSend.WriteString(Memo3.Text);
             JsonToSend.Encoding.Unicode;
             AResponseInfo.ContentStream:=JsonToSend;
          end else
          begin
              Memo1.Lines.Add('result_Error');
              AResponseInfo.ContentText := 'result_Error';
          end;
      end;
Ссылка на комментарий

Рекомендуемые сообщения

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×
×
  • Создать...