在 delphi IdHTTPServer 中捕获 post json body

如何解决在 delphi IdHTTPServer 中捕获 post json body

我在 delphi indy 中有一个 IdHTTPServer，我想接收一个发送到正文中的 json。

我有这个：

procedure Treportserver.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  ctxt,json,msg : string;
  inifile : TStringList;
  Stream : TStream;
  S : string;
begin
  if(ArequestInfo.Document = '/favicon.ico') then
  with AResponseInfo do
  begin
    ContentType := 'text/plain; charset=utf-8';
    ContentText := '';
    WriteHeader;
    WriteContent;
    exit;
  end;

  //LOGS('Document => '+ARequestInfo.Document);
  //ctxt := ARequestInfo.FormParams;
  If ARequestInfo.CommandType = hcPOST then
  begin
    Stream := ARequestInfo.PostStream;
    if assigned(Stream) then
    begin
      Stream.Position := 0;
      S := UTF8ToAnsi(ReadStringFromStream(Stream));
    end;
  end;
  ctxt := ARequestInfo.Params.Values['report'];
  LOGS('Petición Recibida.  Reporte => '+ctxt);
  json := GetPDF(ctxt);
  with AResponseInfo do
  begin
    ContentType := 'text/plain; charset=utf-8';
    ContentText := json;
    WriteHeader;
    WriteContent;
  end;
end;

在这种情况下，我不知道如何获取邮递员发送的 json 正文。