Page History

XPRIM_JsonObject と XPRIM_JsonArray は、JSON オブジェクトと JSON アレイのメモリ内表記です。それぞれの子エレメントはメモリ内のツリー状構造に格納され、メンバ名やアレイ・インデックスによるエレメントへのランダム・アクセスをサポートします。XPRIM_JsonObject と XPRIM_JsonArray には共通のスーパークラス XPRIM_JsonElement があります。

XPRIM_JsonObject/XPRIM_JsonArray はどちらも読み込み可能で (ランダム・アクセスにより) 変更も可能なので、別のルーチンやサードパーティのライブラリ・ルーチンに引き渡すためにメモリ内に自身の JSON データの抽象表記を作成する必要がある時には便利です。

ただし、JSON 文字列 (つまり、JSON データを示す文字列) を構築するだけの場合は、代わりに XPRIM_JsonWriter を使用してください。XPRIM_JsonWriter は JSON 文字列の構築のために特別に設計されたものなので、メモリのフットプリントも最小で非常に効率的です。同様に、JSON 文字列を解析してその値を読み込む必要がある場合は、XPRIM_RandomAccessJsonReader または XPRIM_JsonReader を使用する方が効果的です。XPRIM_JsonWriter と XPRIM_JsonReader については、次のセクションで説明します。

以下は、XPRIM_JsonObject と XPRIM_JsonArray の作成方法を示しています。

Define_Com Class(#XPRIM_JsonObject) Name(#RootObject)
Define_Com Class(#XPRIM_JsonArray) Name(#JsonArray)

これで、自身の JSON オブジェクトや JSON アレイに値を入れていくことができます。

JSON データには、次の 6 つの値のタイプがあります。

...

ただし、XPRIM_JsonObject の Insert メソッドには挿入する値のプロパティ名を指定する Key パラメータがありますが、XPRIM_JsonArray の Insert メソッドではアレイの最後に値が追加されるため Key パラメータはないことに注意してください。

例：

• 文字列 "John" を　JSON オブジェクトの "name" プロパティとして挿入
  #RootObject.InsertString Key('name') String('John')
• JSON アレイに番号 9 を挿入
  #JsonArray.InsertNumber Number(9)
• NULL 値を　JSON オブジェクトの "allergies"プロパティとして挿入
  #RootObject.InsertNull Key('allergies')

次の例は別のオブジェクトのプロパティとしてのオブジェクト/アレイの作成方法です。

• XPRIM_JsonObject 参照を定義
  Define_Com Class(#XPRIM_JsonObject) Name(#ChildObject)
• 住所の street (番地) と suburb (市町村) を #ChildObject に挿入
  #ChildObject.InsertString Key('street') String('122 Arthur St')
  #ChildObject.InsertString Key('suburb') String('North Sydney')
• #ChildObject を "address" という名前のメンバとして #RootObject に挿入
  #RootObject.InsertElement Key('address') Element(#ChildObject)

XPRIM_JsonObject (または XPRIM_JsonArray) を (デバッグ用などの用途で) 文字列に変換する場合は、SerializeAsString メソッドを呼び出します。

Define_Com Class(#PRIM_DC.UnicodeString) Name(#MyJsonString)

• JSON を文字列に変換
  #MyJsonString := #RootObject.SerializeAsString

SerializeToFile を利用して、JSON オブジェクト (またはアレイ) をファイルにシリアル化することもできます。

#RootObject.SerializeToFile Path('/home/TestJson.txt')

ParseString や ParseFile メソッドを利用して、JSON 文字列を解析し、JSON 文字列から XPRIM_JsonObject や XPRIM_JsonArray を構築することもできます。

• エラー詳細を保持するための ErrorInfo オブジェクトを定義
  Define_Com Class(#XPRIM_ErrorInfo) Name(#ErrorInfo)
• 'Parse' メソッドを呼び出し
  #RootObject.ParseString String(#JsonString) ErrorInfo(#ErrorInfo)
• 解析が失敗した場合、エラー・メッセージを取得
  If (*Not #ErrorInfo.OK)
      #ErrorMessage := #ErrorInfo.ErrorMessage
  EndIf

次の Get… アクセサー・メソッドのいずれか 1 つを使用して、オブジェクトやアレイの値にアクセスすることができます。

• GetString
• GetBoolean
• GetNumber
• GetObject
• GetArray

例えば、'#String' という名前の変数に格納された次のような JSON 文字列がある場合、
\{
    "name":      \{ 
        "given":"John",
        "surname":"Smith"
    \},
    "age":45,
    "contactNo":
    \[
        \{ area:"02", no:"9378 2867", type:"landline" \},
        \{ no:"0468 732 371", type:"mobile" \}
    \]
\}
以下のようにして、この JSON 文字列を解析し、値を読み込みます。
Define　　Define_Com Class(#XPRIM_JsonObject) Name(#RootObject)
Define　　Define_Com Class(#XPRIM_ErrorInfo) Name(#ErrorInfo)

• JSON 文字列を解析
  #RootObject.ParseString String(#String) ErrorInfo(#ErrorInfo)
• 最初に JSON 文字列の解析に成功したことを確認
  If (#ErrorInfo.OK)
      * 値を取得
      #GivenName := #RootItem.GetObject('name').GetString('given')
      #Surname := #RootItem.GetObject('name').GetString('surname')
      #Age := #RootItem.GetNumber('age')
  Endif

ItemCount プロパティを使うと、含まれるアレイ (またはオブジェクト) の数が分かります。

Define_Com Class(#XPRIM_JsonArray) Name(#ContactNumbers)

• contactNo の値 (アレイ), ... を取得し、
• ... #ContactNumbers に割り当て
  #ContactNumbers.Refer To(#RootItem.GetArray('contactNo')
• 'ItemCount' プロパティを使って、アレイ長を取得
  #ContactCount := #ContactNumbers.ItemCount

JSON アレイ内のエレメントで繰り返し処理を行うには、以下のように FOR-EACH-IN を利用します。

• この前の例から contactNo アレイを利用
  FOR EACH(#Number) IN(#ContactNumbers)
     #COM_SELF.ProcessContactNumber Number(#Number)
  ENDFOR

JSON 要素 (XPRIM_JsonElement) のタイプは、その  Type プロパティを読み込むことで確認できます。戻される値は次のいずれかになります。

• NULL
• STRING
• NUMBER
• BOOLEAN
• OBJECT
• ARRAY

...