目前，XML 和 JSON 格式已成為計算機系統間數據存儲和信息交換的主要標準。應用戶要求，FastScript 中已添加用于處理 XML 和 JSON 的類。在本文中，我們將深入研究如何使用這些類，探索它們的屬性和方法，以及如何使用腳本從代碼創建報告。

XML 格式

為了在腳本中使用 XML，需要使用兩個類。這兩個類專注于最高速度和低內存消耗。

TfrXMLDocument – 封裝 XML 文檔功能的類。它包含以下屬性和方法。

TfrXMLNode – 封裝 XML 文檔節點屬性的類。

您無法直接創建此類型的對象。它是通過調用要添加子元素的元素的 Add() 方法來創建的。讓我們仔細看看 TfrXMLNode 類的屬性和方法。

讓我們嘗試使用用于處理 XML 的類來構建一個報表。例如，我們將在報表中顯示來自“country.xml”文件的數據，但我們不會使用 TClientDataSet，而是直接訪問 XML 文件。我們創建一個新報表，進入編輯模式，將 MasterData 添加到報表中。并在頂部添加幾個 Memo 來顯示數據。我們還將為 MasterData 對象創建一個 OnBeforePrint 事件。

最終的報告腳本代碼將如下所示：

var doc: TfrXMLDocument;
 item: TfrXMLItem;
 IIndex: Integer;
 
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
var cur: TfrXMLItem;
 S: string;
begin
 cur := item[IIndex];
 mmNum.Text := cur.Prop['Code'];
 mmName.Text := cur.Prop['Name'];
 mmCapital.Text := cur.Prop['Capital'];
 mmArea.Text := cur.Prop['Area'];
 mmPopulation.Text := cur.Prop['Population'];
 mmContinent.Text := cur.Prop['Continent'];
 Inc(IIndex);
end;
 
begin
 Doc := TfrXMLDocument.Create;
 Doc.LoadFromFile('..\..\Data\country.xml');
 item := Doc.Root[1];
 IIndex := 0;
 MasterData1.RowCount := item.count;
end.

  讓我們繼續運行報告。為了更易于閱讀，我們還添加了列標題。

JSON 格式

讓我們順利地從 XML 過渡到 JSON 格式。為了在 FastReport 中使用 JSON，還需要用到兩個類—— TfrJSON和TfrJSONArray。在本例中，這兩個類只是 Delphi 平臺中 System.JSON 類或 Lazarus 中類似類的包裝器。

TfrJSONObject — 封裝用于處理 JSON 對象的函數的類。

以下屬性允許您以某種形式檢索 JSON 對象的值。在所有這些屬性中，索引都是通過屬性列表中的屬性編號或其名稱執行的。請注意AsString['1'] <> AsString[1]。此外，如果您嘗試使用不合適的方法獲取屬性值，則可能會發生錯誤并返回錯誤的屬性值。例如，如果屬性的類型為“Object”或“Array”，那么當您嘗試使用 AsString 屬性獲取其值時，您將得到一個空字符串。在其他情況下，AsString 將返回屬性值的字符串表示形式。

要返回 null 類型的字段，您需要付出一些努力。目前沒有專門的方法來實現這一點。但是，您可以使用 ValueType 屬性，該屬性會為 null 類型的字段返回 jsNull；或者使用 AsString 屬性，該屬性會返回字符串“null”。

讓我們仔細看看操作對象屬性的方法。

該方法返回一個整數，它是所有字段列表中添加的元素的索引。

所有向對象添加字段的方法都不會控制現有同名字段的存在。此過程由使用此類的程序員負責。這種控制對于防止輸出 JSON 中出現多個同名字段至關重要。在這種情況下，系統的行為是不確定的——它取決于進一步解析接收 JSON 的解析器。這意味著可以使用任何同名的值！

TJSONArray類封裝了用于處理 JSON 數組的方法和屬性。主要屬性原則上相同，但只能通過索引訪問它們。僅支持訪問元素、獲取元素值或刪除元素的操作。您無法移動數組中的元素或更改其類型。讓我們來研究一下此類中用于獲取元素值的屬性和方法。

處理數組時，就像處理對象一樣，提取元素值時需要謹慎。根據值的類型，使用適當的方法來檢索它。

下面介紹操作 JSON 數組元素的方法。

所有這些方法都返回添加到數組的元素的位置。您無法將元素插入到數組的中間；這是 System.JSON 基類的限制。

使用類訪問 JSON 的細節

使用對象時，務必記住，使用包裝對象后，必須將其從代碼中全部刪除。

請注意，如果您想要獲取子對象或數組，但實際獲取的是一個標量值或根本沒有值，則該屬性將返回 nil，并且在進一步訪問該屬性時將引發異常。請避免使用不適用于元素中存儲的特定類型值的方法來檢索這些值。

重要的是要注意，對象的屬性名稱區分大小寫，這意味著“Item1”和“item1”被視為不同的名稱！

只有當對象元素的值類型與元素定義的類型匹配時，您才能為其設置值。如果您需要重新定義元素的類型，請刪除該元素，然后添加一個具有相同名稱且類型為所需元素的新元素。無法為數組元素輸入新值。您需要刪除 JSON 數組，然后使用所需的值重新創建它。

讓我們使用上面描述中的類并編寫一個腳本，從 XML 文件中提取數據（不帶類型信息）并將其放入 JSON 對象中。

procedure XMLToJSON;
var XML: TfrXMLDocument;
 xi, xi1: TfrXMLItem;
 I, J: Integer;
 JO: TfrJSONObject;
 JA, JA1: TfrJSONArray;
 SL: TStringList;
begin
 XML:=TfrXMLDocument.Create;
 XML.LoadFromFile('.\..\..\data\country.xml'); 
 JO:=TfrJSONObject.Create('{}');
 JO.AddArray('data');
 JA:=JO.AsArray['data'];
 xi:=X.Root[1];
 xi1:=xi.Items[0];
 SL:=TStringList.Create;
 xi1.GetParamNames(SL);
 for I:=0 to xi.Count - 1 do begin
 xi1:=xi.Items[I];
 JA1:=JA.AsArray[JA.AddArray];
 for J:=0 to SL.Count-1 do 
 JA1.AddString(xi1.Prop[SL[J]]);
 JA1.Free;
 end;
 JA.Free;
 JO.SaveToFile('.\..\..\data\country.json');
 JO.Free;
 SL.Free; 
end;

并且讓我們嘗試根據獲得的數據構建一份報告（首先，在報告頁面上放置適當的 MasterData 和 Memo 組件）：  

var J:TfrJSONObject;
 A:TfrJSONArray;
 curr:Integer;
 
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
var A1:TfrJSONArray;
begin
 A1:=A.AsArray(curr);
 Memo1.Memo.Text:=A1.AsString[0];
 Memo2.Memo.Text:=A1.AsString[1];
 Memo3.Memo.Text:=A1.AsString[2];
 Memo4.Memo.Text:=A1.AsString[3];
 Memo5.Memo.Text:=A1.AsString[4];
 Memo6.Memo.Text:=A1.AsString[5];
 A1.Free;
 curr := curr + 1;
end;
 
begin
 J:=TfrJSONObject.Create('');
 J.LoadFromFile('.\..\..\data\country.json');
 A:=J.AsArray[0];
 MasterData1.RowCount:=A.Count;
 curr:=0;
end.

您還可以在 Delphi 代碼中使用這些對象 - 只需在 uses 語句中包含 frXML 和 frJSON 模塊。

結論

在本文中，我們探討了在 FastReport 中使用類來處理 JSON 和 XML。如果您不僅使用報表，還使用 Delphi 和 Lazarus，那么使用這些類將有助于最大限度地減少在環境之間切換時出現的問題——您的體驗將在兩個 IDE 上保持一致。

_________________________________________________________

關于慧都科技：

慧都科技是一家行業數字化解決方案公司，長期專注于軟件、油氣與制造行業。公司基于深入的業務理解與管理洞察，以系統化的業務建模驅動技術落地，幫助企業實現智能化運營與長期競爭優勢。在軟件工程領域，我們提供開發控件、研發管理、代碼開發、部署運維等軟件開發全鏈路所需的產品，提供正版授權采購、技術選型、個性化維保等服務，幫助客戶實現技術合規、降本增效與風險可控。慧都科技是FastReports的在中國區的合作伙伴，FastReports作為圖表報表領域的優秀產品，幫助企業實現輕松構建高性能的表格及圖表。

下載或體驗FastReport產品，請咨詢，或撥打產品熱線：023-68661681

歡迎加入FastReport技術QQ群：170305738，與更多小伙伴探討報表開發技能。