No hay respuestas en este tema

[sir.dev.a.lot]

[OPEN SOURCE DELPHI] Tiny-JSON.

 

Pequeña y Ligera libreria para la gestion de JSON.

 

https://sourceforge....ects/tiny-json/

 

Algunos Ejemplos:

delphi

//Ejemplo 1
 
var  
  js,js2:TJSONbase; 
  s:AnsiString; 
 
js:=TJSONbase.Create; 
js.Add(2,True); 
js.Add(5,20); 
js.Add(3.1415); 
js2:=js.Add('abc'); 
js2.Value:=7; 
s:=js.Text; 
js.Free;

delphi

//Ejemplo 2
 
const 
  s1:AnsiString = '{"a":true,"2":2,"d":3.1415,"x":"y"}'; 
  s2:AnsiString = '[true,2,3.1415,"abc"]'; 
  s3:AnsiString = '[1,{"a":2,"b":3},4]'; 
  s4:AnsiString = '{"z":[1,{"z":4},3],"x":2}'; 
 
var  
  js1,js2,js3,js4:TJSONbase; 
  s:AnsiString; 
 
js1:=ParseJSON(s1); 
js2:=ParseJSON(s2); 
js3:=ParseJSON(s3); 
js4:=ParseJSON(s4); 
js3.Add(js4); 
js2.Add(js3); 
js1.Add(js2); 
s:=js1.Text; 
js1.Free;

delphi

//Ejemplo 3
 
var  
  js,t:TJSONbase; 
 
// ---- crea el arreglo
 
t:=js.FirstChild; 
while Assigned(t) do 
begin 
 
  t:=t.Next; 
end;

Saludos!