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;

[gonzales]

может надо вместо 

JsonToSend.WriteString(Memo3.Text);

писать

JsonToSend.WriteString(TNetEncoding.Base64String.Encode(Memo3.Text));

Подключить юнит System.NetEncoding