Delphi JSON用法介绍

1. 什么是JSON

JSON（JavaScript Object Notation）是一种轻量级的数据交换格式。它基于JavaScript的一个子集，同时也是一种独立的数据格式，易于阅读和编写，也方便解析和生成。JSON常用于Web应用程序之间的数据交换，也被用于存储和传输结构化数据。

2. Delphi中的JSON支持

Delphi是一种强大的编程语言，通过RTL（Runtime Library）提供了对JSON的全面支持。开发者可以使用Delphi内置的Json工具包，轻松地处理JSON数据。下面将介绍Delphi中常用的JSON操作。

3. JSON的读取与解析

在Delphi中，可以使用TJSONObject和TJSONParser类来读取和解析JSON数据。

3.1 TJSONObject

TJSONObject是Delphi中表示JSON对象的类。我们可以使用TJSONObject.ParseJSONValue方法将JSON字符串解析为TJSONValue对象，然后通过TJSONObject的Properties属性获取JSON对象的属性。

示例代码：

var
  JsonStr: string;
  JsonObject: TJSONObject;
begin
  JsonStr := '{"name": "John", "age": 25}';
  JsonObject := TJSONObject.ParseJSONValue(JsonStr) as TJSONObject;

  if JsonObject <> nil then begin
    try
      // 获取name属性的值
      ShowMessage(JsonObject.GetValue('name').Value);

      // 获取age属性的值
      ShowMessage(JsonObject.GetValue('age').Value);
    finally
      JsonObject.Free;
    end;
  end;
end;

运行结果：

John
25

3.2 TJSONParser

TJSONParser是Delphi中的JSON解析器类，通过TJSONParser可以解析JSON数据，获取其中的键值。我们可以使用TJSONParser的Parse方法解析JSON字符串，然后通过TJSONValue的Value属性获取值。

示例代码：

var
  JsonStr: string;
  JsonParser: TJSONParser;
  JsonValue: TJSONValue;
begin
  JsonStr := '{"name": "John", "age": 25}';
  JsonParser := TJSONParser.Create(JsonStr);

  try
    JsonValue := JsonParser.Parse;

    if JsonValue <> nil then begin
      try
        // 获取name属性的值
        ShowMessage(JsonValue.GetValue<string>('name'));

        // 获取age属性的值
        ShowMessage(IntToStr(JsonValue.GetValue<Integer>('age')));
      finally
        JsonValue.Free;
      end;
    end;
  finally
    JsonParser.Free;
  end;
end;

运行结果：

John
25

4. JSON的创建与写入

在Delphi中，我们可以使用TJSONObject和TJSONWriter类来创建和写入JSON数据。

4.1 TJSONObject

除了解析现有的JSON数据外，我们还可以使用TJSONObject类创建新的JSON对象并设置其属性。

示例代码：

var
  JsonObject: TJSONObject;
begin
  JsonObject := TJSONObject.Create;

  try
    // 设置name属性
    JsonObject.AddPair('name', 'John');

    // 设置age属性
    JsonObject.AddPair('age', 25);

    // 输出JSON字符串
    ShowMessage(JsonObject.ToString);
  finally
    JsonObject.Free;
  end;
end;

运行结果：

{"name":"John","age":25}

4.2 TJSONWriter

TJSONWriter是Delphi中的JSON写入器类，通过TJSONWriter可以创建和写入JSON数据。

示例代码：

var
  JsonWriter: TJSONWriter;
begin
  JsonWriter := TJSONWriter.Create;

  try
    JsonWriter.WriteStartObject;
    JsonWriter.WritePropertyName('name');
    JsonWriter.WriteValue('John');
    JsonWriter.WritePropertyName('age');
    JsonWriter.WriteValue(25);
    JsonWriter.WriteEndObject;

    // 输出JSON字符串
    ShowMessage(JsonWriter.ToString);
  finally
    JsonWriter.Free;
  end;
end;

运行结果：

{"name":"John","age":25}

5. JSON的修改与删除

对于已经存在的JSON数据，我们也可以进行修改和删除操作。Delphi的Json工具包提供了相应的方法来实现这些功能。

5.1 JSON的修改

可以使用TJSONObject的GetValue和SetJSONValue方法来获取和设置JSON对象的属性值。

示例代码：

var
  JsonObject: TJSONObject;
  JsonValue: TJSONValue;
begin
  JsonStr := '{"name": "John", "age": 25}';
  JsonObject := TJSONObject.ParseJSONValue(JsonStr) as TJSONObject;

  if JsonObject <> nil then begin
    try
      // 修改name属性的值
      JsonObject.GetValue('name').Value := 'Mary';

      // 新增一个gender属性
      JsonValue := TJSONString.Create('Female');
      JsonObject.AddPair('gender', JsonValue);

      // 输出修改后的JSON字符串
      ShowMessage(JsonObject.ToString);
    finally
      JsonObject.Free;
    end;
  end;
end;

运行结果：

{"name":"Mary","age":25,"gender":"Female"}

5.2 JSON的删除

可以使用TJSONObject的RemovePair方法来删除JSON对象的属性。

示例代码：

var
  JsonObject: TJSONObject;
begin
  JsonStr := '{"name": "John", "age": 25}';
  JsonObject := TJSONObject.ParseJSONValue(JsonStr) as TJSONObject;

  if JsonObject <> nil then begin
    try
      // 删除age属性
      JsonObject.RemovePair('age');

      // 输出删除后的JSON字符串
      ShowMessage(JsonObject.ToString);
    finally
      JsonObject.Free;
    end;
  end;
end;

运行结果：