Page History

...

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

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

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

...

ただし、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 つを使用して、オブジェクトやアレイの値にアクセスすることができます。

...

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

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 プロパティを読み込むことで確認できます。戻される値は次のいずれかになります。

...

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

次は: XPRIM_JsonWriter を利用して JSON 文字列を構築