如何从本地JSON文件中仅提取特定值？

Question

我有一个文件info.json，其中只包含以下代码：

{"personal": {"path": "C:\\My Directory", "honk": 82641923}}

在Delphi XE7中，如何提取路径值，即'C:\My Directory'？

Answer 1

对于MongoDB connector I made，我需要一个轻量级JSON（实际上是BSON）对象，并选择基于OleVariant个变量。使用JsonToBson中的bsonUtils.pas（以及IBSONDocument中的bsonDoc.pas），您可以写信：

(IUnkown(JsonToBson('{"personal": {"path": "C:\\My Directory", "honk": 82641923}}')['personal']) as IBSONDocument)['path']