Delphi XE7中解析JSON

在Delphi XE7中，解析JSON（JavaScript Object Notation）数据是一项常见的任务，尤其是在与Web服务、API接口交互时。JSON作为一种轻量级的数据交换格式，因其易于阅读和编写，同时也易于机器解析和生成，因此被广泛使用。Delphi XE7提供了内置的`System.JSON`单元来支持JSON的操作，包括解析、生成和序列化。 一、系统.JSON单元 `System.JSON`单元是Delphi从XE3版本开始引入的，用于处理JSON数据的核心组件。它包含了一系列的类和方法，如`TJSONObject`、`TJSONArray`、`TJSONValue`等，用于表示JSON的不同数据类型，并提供了解析和生成JSON的功能。 二、解析JSON 1. 创建`TJSONObject`和`TJSONArray` 在Delphi XE7中，你可以通过`TJSONObject.ParseJSONValue`函数来解析一个JSON字符串。这个函数会返回一个`TJSONValue`指针，它可以是`TJSONObject`、`TJSONArray`或其他JSON值类型。例如： ```delphi uses System.JSON; var JSONText: string; JSONValue: TJSONValue; begin JSONText := '{"name":"John", "age":30, "city":"New York"}'; JSONValue := TJSONObject.ParseJSONValue(JSONText); if Assigned(JSONValue) then begin // 处理解析后的JSON对象 // ... end else begin // 解析失败，处理错误 // ... end; end; ``` 2. 遍历`TJSONObject`和`TJSONArray` 解析后的`TJSONObject`可以通过其`Values`属性来访问键值对，而`TJSONArray`则可以通过索引来访问每个元素。例如： ```delphi if JSONValue is TJSONObject then with TJSONObject(JSONValue) do begin for Pair inPairs do begin // 获取键和对应的JSON值 const Key = Pair.Key; const Value: TJSONValue = Pair.Value; // ... end; end else if JSONValue is TJSONArray then with TJSONArray(JSONValue) do begin for I := 0 to Count - 1 do begin // 访问数组中的每个元素 const Item: TJSONValue = Items[I]; // ... end; end; ``` 三、生成JSON 1. 创建`TJSONObject`和`TJSONArray` 你可以手动创建`TJSONObject`和`TJSONArray`，然后添加键值对或元素，最后用`ToString`方法生成JSON字符串。例如： ```delphi var JSONObject: TJSONObject; JSONArray: TJSONArray; JSONValue: TJSONValue; begin JSONObject := TJSONObject.Create; try JSONObject.AddPair(TJSONPair.Create('name', TJSONString.Create('John'))); JSONObject.AddPair(TJSONPair.Create('age', TJSONNumber.Create(30))); JSONArray := TJSONArray.Create; try JSONArray.Add(TJSONString.Create('Apple')); JSONArray.Add(TJSONString.Create('Banana')); JSONObject.AddPair(TJSONPair.Create('fruits', JSONArray)); finally JSONArray.Free; end; // 生成JSON字符串 const JSONText = JSONObject.ToString; // ... finally JSONObject.Free; end; end; ``` 四、序列化和反序列化对象 Delphi XE7的`System.Json`单元也支持将Delphi的对象序列化为JSON，以及将JSON反序列化回对象。这需要你的类实现`ISerializable`接口。例如： ```delphi type TPerson = class(TInterfacedObject, ISerializable) private FName: string; FAge: Integer; procedure SetName(const Value: string); procedure SetAge(const Value: Integer); public constructor Create(const AName: string; const AAge: Integer); property Name: string read FName write SetName; property Age: Integer read FAge write SetAge; function ToJsonObject: TJSONObject; virtual; class function FromJsonObject(JsonObj: TJSONObject): TPerson; static; end; // 实现细节省略... ``` 五、注意事项 - JSON字符串中的特殊字符（如双引号、反斜杠等）需要正确转义。 - 在处理JSON数据时，务必检查可能的解析错误，如空字符串、无效格式等。 - JSON数据的大小写敏感性：键名必须精确匹配。 总结，Delphi XE7的`System.JSON`单元为开发人员提供了强大的JSON处理能力，无论是解析、生成还是序列化反序列化，都可以高效地完成。熟练掌握这些功能，对于进行基于JSON的网络通信和数据交换至关重要。