ساخت جیسون در خود B4A

[Mr.Kafiri 221]

سلام

میخواستم بدونم میشه درون خود b4a یه متن جیسون درست کرد و به سرور فرستاد

[Mr Silence 137]

درود

بله این امکان وجود داره

مثال:

 

: Json

{
"faceIds":[
"015839fb-fbd9-4f79-ace9-7675fc2f1dd9",
"fce92aed-d578-4d2e-8114-068f8af4492e",
"b64d5e15-8257-4af2-b20a-5a750f8940e7"
],
"name":"Silence",
"userData":"1/29/2020 created by MrSilence"
}

 

:B4A Code

 

    Dim j As JSONGenerator
    Dim faceIds As List
    Dim name As String
    Dim userData As String
    Dim root As Map
    root.Initialize

    faceIds.Initialize2(Array As String ("015839fb-fbd9-4f79-ace9-7675fc2f1dd9","fce92aed-d578-4d2e-8114-068f8af4492e","b64d5e15-8257-4af2-b20a-5a750f8940e7"))
    name = "Silence"
    userData ="1/29/2020 created by MrSilence"
    root.Put("faceIds", faceIds)
    root.Put("name",name)
    root.put("userData",userData)

    j.Initialize(root)
    Log(j.ToString)