unigui用TNetHTTPClient提交post内容，并接收返回值的例子

### 回答1：
下面是一个使用 TNetHTTPClient 发送 POST 请求并接收返回值的例子：

uses Net.HTTPClient, System.Net.URLClient;

var
  HTTP: TNetHTTPClient;
  Response: IHTTPResponse;
  Params: TStringList;
begin
  HTTP := TNetHTTPClient.Create;
  try
    // 创建请求参数列表
    Params := TStringList.Create;
    Params.Add('param1=value1');
    Params.Add('param2=value2');

    // 发送 POST 请求
    Response := HTTP.Post('http://www.example.com/post', Params);

    // 处理响应
    Memo1.Lines.Add(Response.ContentAsString);
  finally
    HTTP.Free;
  end;
end;

这个例子中，我们使用 TNetHTTPClient 对象发送了一个 POST 请求，将请求参数传递给了服务器。然后我们使用 IHTTPResponse 对象接收了服务器的响应，并将响应内容显示在了 Memo 控件中。

注意：在使用 TNetHTTPClient 发送请求之前，你需要在你的工程中添加对 Net.HTTPClient 和 System.Net.URLClient 单元的引用。

### 回答2：
使用UniGUI的TNetHTTPClient来提交POST内容并接收返回值的示例如下：

首先，确保已经在UniGUI项目中添加了TNetHTTPClient组件。

然后，在需要进行POST请求的UniGUI事件中编写以下代码：

var
  NetHTTPClient: TNetHTTPClient;
  ResponseContent: TStringStream;
begin
  // 创建并配置TNetHTTPClient
  NetHTTPClient := TNetHTTPClient.Create(nil);
  NetHTTPClient.ContentType := 'application/x-www-form-urlencoded';

  // 创建用于存储返回值的字符串流
  ResponseContent := TStringStream.Create('', TEncoding.UTF8);
  try
    // 创建POST请求的参数
    var Params: TStrings := TStringList.Create;
    Params.Add('param1=value1');
    Params.Add('param2=value2');

    // 发送POST请求
    NetHTTPClient.Post('http://example.com/api', Params, ResponseContent);

    // 处理返回值
    ShowMessage(ResponseContent.DataString);
  finally
    // 释放资源
    Params.Free;
    NetHTTPClient.Free;
    ResponseContent.Free;
  end;
end;

在上述代码中，我们先创建一个TNetHTTPClient组件，并设置其ContentType为'application/x-www-form-urlencoded'。然后，创建一个TStringStream对象，用于接收返回值。接下来，创建一个TStrings对象，用于保存POST请求的参数。然后，我们使用TNetHTTPClient的Post方法向指定的URL发送POST请求，并将返回的内容保存到ResponseContent中。最后，我们使用ShowMessage方法显示返回的内容，并释放资源。

请根据实际需求修改URL和参数，并根据返回值的类型进行适当的处理。

### 回答3：
Unigui是一种用于开发Web应用程序的框架，它基于Delphi编程语言。要使用TNetHTTPClient类进行POST请求并接收返回值，可以按照以下步骤进行操作：

1. 首先，创建一个新的Unigui项目，并添加一个TUniForm组件。
2. 在TUniForm组件的OnCreate事件中，添加以下代码：

procedure TForm1.UniFormCreate(Sender: TObject);
var
  HTTPClient: TNetHTTPClient;
  Request: TNetHTTPRequest;
  Response: IHTTPResponse;
  Params: TStringList;
begin
  HTTPClient := TNetHTTPClient.Create(nil);
  Request := TNetHTTPRequest.Create(nil);
  Params := TStringList.Create;
  
  try
    Params.Add('param1=value1');
    Params.Add('param2=value2');
    
    Response := Request.Post('http://example.com', Params); // 替换为你要提交POST请求的URL
    
    if Response.StatusCode = 200 then // 如果请求成功
      ShowMessage(Response.ContentAsString)
    else
      ShowMessage('请求失败，错误代码为：' + IntToStr(Response.StatusCode));
  finally
    Params.Free;
    Request.Free;
    HTTPClient.Free;
  end;
end;

在上述代码中，我们创建了一个TNetHTTPClient对象和一个TNetHTTPRequest对象来进行POST请求。然后，我们创建一个TStringList对象，将POST参数添加到其中。

接下来，我们使用Request对象的Post方法将POST请求发送到指定的URL，并将返回值保存在Response变量中。

最后，我们检查返回的状态码，如果状态码为200，则表示请求成功，并将返回的内容显示为消息框。

请注意，这只是一个简单的示例，你需要根据实际情况进行修改和适配。例如，你需要替换http://example.com为你要提交POST请求的实际URL，并根据需要添加其他参数。

希望以上解答对你有所帮助！