delphi httpclient post json

Delphi中使用HTTP Client进行POST请求发送JSON数据非常简单。首先，我们需要在程序中引入`System.Net.HttpClient`单元，然后可以通过以下步骤使用HTTP Client发送JSON数据。

1. 创建HTTP Client对象：

var
  HttpClient: THTTPClient;
begin
  HttpClient := THTTPClient.Create;
  try
    // 使用HttpClient对象进行操作...
  finally
    HttpClient.Free;
  end;
end;

2. 创建JSON数据：

var
  JsonToSend: TJSONObject;
begin
  JsonToSend := TJSONObject.Create;
  try
    JsonToSend.AddPair('name', 'John');
    JsonToSend.AddPair('age', '30');
    
    // 添加更多JSON键值对...
    
    // 使用JsonToSend对象...
  finally
    JsonToSend.Free;
  end;
end;

3. 设置请求的URL和JSON数据：

var
  RequestURL: string;
  JsonToSend: TJSONObject;
begin
  HttpClient := THTTPClient.Create;
  try
    RequestURL := 'https://example.com/api/endpoint';
    
    JsonToSend := TJSONObject.Create;
    try
      JsonToSend.AddPair('name', 'John');
      JsonToSend.AddPair('age', '30');
      
      // 添加更多JSON键值对...
      
      HttpClient.Post(RequestURL, JsonToSend);
    finally
      JsonToSend.Free;
    end;
  finally
    HttpClient.Free;
  end;
end;

以上示例将JSON数据发送到指定的URL，并通过POST方法发送。

除了上述步骤，你还可以为请求添加其他选项，例如设置请求头、超时时间和身份验证等。希望以上信息对你有所帮助！