Page History

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

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

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

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

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

...

• Null
• String
• Number
• Boolean
• Object
• Array

XPRIM_JsonObject と XPRIM_JsonArray には、オブジェクトまたはアレイに挿入する値のタイプそれぞれに対応する、以下のようなメソッドがあります。

• InsertNull
• InsertString
• InsertNumber
• InsertBoolean
• InsertElement (JSON アレイやオブジェクト含めあらゆる種類の JSON 要素を挿入)

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

...

• 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 文字列に変換する場合は、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_Com

...

Class(#XPRIM_JsonObject)

...

Name(#RootObject)

...

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 プロパティを使うと、含まれるアレイ (またはオブジェクト) の数が分かります。

...

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

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

...

JSON 要素が特定のタイプであるかどうかを確認したいだけの場合は、次の Is… のいずれかを利用することができます。

• IsNull
• IsString
• IsNumber
• IsBoolean
• IsObject
• IsArray

...