TNetHTTPClient post的json参数和query

TNetHTTPClient是Delphi中的一个HTTP客户端组件，用于发送HTTP请求。当使用POST方法发送请求时，可以通过不同方式发送JSON参数和查询字符串参数。

1. 发送JSON参数：
使用TJSONObject类创建一个JSON对象，然后将需要发送的参数添加到该对象中。最后，将JSON对象转换为字符串，并设置请求的Content-Type为"application/json"。
下面是一个示例代码：

   uses System.JSON;

   var
     Client: TNetHTTPClient;
     RequestContent: TStringStream;
     JSONObj: TJSONObject;
   begin
     Client := TNetHTTPClient.Create(nil);
     JSONObj := TJSONObject.Create;
     try
       JSONObj.AddPair('name', 'John');
       JSONObj.AddPair('age', '30');
       RequestContent := TStringStream.Create(JSONObj.ToString, TEncoding.UTF8);
       try
         Client.Post('http://example.com/api', RequestContent, nil);
       finally
         RequestContent.Free;
       end;
     finally
       JSONObj.Free;
       Client.Free;
     end;
   end;

2. 发送查询字符串参数：
使用TNetHTTPRequest.Params属性，将参数添加为键值对。这些参数将自动附加到请求的URL中。
下面是一个示例代码：

   var
     Client: TNetHTTPClient;
     Params: TStringList;
   begin
     Client := TNetHTTPClient.Create(nil);
     Params := TStringList.Create;
     try
       Params.AddPair('name', 'John');
       Params.AddPair('age', '30');
       Client.Get('http://example.com/api', Params, nil);
     finally
       Params.Free;
       Client.Free;
     end;
   end;

希望对你有所帮助！如果你还有其他问题，请继续提问。