unigui网页开发中用TNetHTTPClient提交post内容，并接收返回json数据例子

下面是一个使用 TNetHTTPClient 提交 POST 内容并接收返回 JSON 数据的例子：

uses System.Net.HTTPClient, System.Net.URLClient, System.JSON;

var
  HTTP: TNetHTTPClient;
  Response: IHTTPResponse;
  Request: TNetHTTPRequest;
  Data: TJSONObject;
  Result: string;
begin
  HTTP := TNetHTTPClient.Create;
  try
    Request := TNetHTTPRequest.Create(THTTPVerb.Post, 'http://example.com/api/endpoint');
    Data := TJSONObject.Create;
    Data.AddPair('key', 'value');
    Request.SetBody(Data.ToString, 'application/json');
    Response := HTTP.Execute(Request);
    if Response.StatusCode = 200 then
    begin
      Result := Response.ContentAsString;
      // 在这里处理返回的 JSON 数据
    end;
  finally
    HTTP.Free;
  end;
end;

在这个例子中，我们使用 TNetHTTPClient 和 TNetHTTPRequest 对象来发送 HTTP 请求。我们使用 TJSONObject 对象来创建要发送的 JSON 数据，并使用 TNetHTTPRequest.SetBody 方法将其设置为请求的正文。然后我们使用 TNetHTTPClient.Execute 方法执行请求，并使用 IHTTPResponse 对象来接收响应。如果响应的状态代码为 200（即成功），我们可以使用 IHTTPResponse.ContentAsString 属性获取响应的正文并处理返回的 JSON 数据。

注意：这个例子使用了 System.Net.HTTPClient 和 System.Net.URLClient 单元，所以在使用这个例子之前，需要在你的程序的单元中使用 "uses" 声明来引用这些单元。