在 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 正文。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）