...
Json käsittely on toteuttu pohjautuen mormot kirjastoon. Väliin on jouduttu tekemään muutama rutiini.
Alla luodaan luodaan koodissa json oliota.
| Code Block | ||
|---|---|---|
| ||
a := jsonnewdoc;
a := jsonaddvalue(a,'nimi','KOISTINEN');
a := jsonaddvalue(a,'osoite':'sotinkatu 4c');
// {"nimi":"KOISTINEN","osoite","sotinkatu 4c"}
a := jsonsetvalue(a,'osoite':'Sorinkatu 4c');
// {"nimi":"KOISTINEN","osoite","sorinkatu 4c"}
b := jsonnewdoc;
b := jsonaddvalue('gsm','0500..');
a := jsonaddvalue('puhelimet',b);
// {"nimi":"KOISTINEN","osoite":"sorinkatu 4c","puhelimet":{"gsm":"0500.."}}
showmessage(a); // pitäisi näyttää json sisältö |
Alla otetaan jsonia ja muutetaan se olioksi
| Code Block |
|---|
b:= JsonNewDocFromjson('{"id":"A000173","group":12,"department":1,"float":12.32,"name":"3.3. A3 + F1 P4suora erikois","name2":""}');
maara := jsongetcount( b );
id := jsongetvalue(b, "id");
for i:= 0 to jsongetcount(b)-1 do
begin
showmessage(jsongetname(b,i)+'='+jsontostring ( jsongetvalue(b,i,true)));
end;
|