delphi 发送json格式报文

在Delphi中发送JSON格式报文可以通过使用TJSONObject和TIdHTTP组件来实现。首先，我们需要使用TJSONObject来创建一个JSON对象，然后使用TIdHTTP来发送这个JSON对象。以下是一个简单的示例代码：

uses
  System.JSON, IdHTTP;

procedure SendJSONRequest;
var
  JSONObject: TJSONObject;
  HTTP: TIdHTTP;
  JSONString: string;
begin
  // 创建一个JSON对象
  JSONObject := TJSONObject.Create;
  try
    JSONObject.AddPair('name', 'John');
    JSONObject.AddPair('age', TJSONNumber.Create(30));

    // 将JSON对象转换为字符串
    JSONString := JSONObject.ToString;
  finally
    JSONObject.Free;
  end;

  // 使用TIdHTTP发送JSON字符串
  HTTP := TIdHTTP.Create;
  try
    HTTP.Request.ContentType := 'application/json'; // 设置请求的Content-Type为JSON
    HTTP.Post('http://example.com/api', JSONString); // 发送JSON字符串到指定的API地址
  finally
    HTTP.Free;
  end;
end;

在这个示例中，我们首先创建了一个TJSONObject对象，并向其中添加了两个键值对（'name'和'age'）。然后我们将这个JSON对象转换为字符串，并使用TIdHTTP的Post方法将其发送到指定的API地址。在使用TIdHTTP发送请求之前，需要设置请求的Content-Type为'application/json'，以确保服务器能够正确解析JSON格式的数据。

通过这种方法，我们可以在Delphi中轻松地发送JSON格式的报文。