RscJSON

This Delphi unit contains a JSON parser that supports Delphi 6-Delphi Athens (12) and the platforms Win32, Win64 and ARM Android (MacOS and iOS can work).

Clone with GIT

> git clone git@github.com:OpenSourceCommunityBrasil/RscJSON.git

or

> git clone https://github.com/OpenSourceCommunityBrasil/RscJSON.git

This will get you the RscJSON repository.

How to install

1. Clone the RscJSON repository
2. Add the RscJSON.pas unit to your project.

What is JSON ?

• JSON (JavaScript Object Notation) is a lightweight data-interchange format.
• It is easy for humans to read and write.
• It is easy for machines to parse and generate.
• It is based on a subset of the JavaScript Programming Language, Standard ECMA-262 3rd Edition - December 1999.
• JSON is a text format that is completely language independent but uses conventions that are familiar to programmers.
• These properties make JSON an ideal data-interchange language.
• You can get more informations on json.org.

{"name": "Jon Snow",/* this is a comment */"dead": true,"telephones": ["000000000","111111111111"],"age": 33,"size": 1.83,"adresses": [{"adress": "foo","city": "The wall","pc": 57000},{"adress": "foo","city": "Winterfell","pc": 44000}]}

Parsing a JSON data structure

var
js:TRscJSONobject;
begin
js := TRscJSONobject.Create;
js.AddPair('valuestring','RSC SISTEMAS');
js.AddPair('valueInteger',20);
js.AddPair('valueDouble',5.64);
js.AddPair('valueInt64',654894874745674);
js.AddPair('valueDate','2024-05-20');
js.AddPair('ValueBoolean',true);
js.AddPair('ValueWideString', 'سیستم های RSC | Συστήματα RSC');
//objects
js.AddPair('objString', TRscJSONstring.Generate('OpenSource'));
js.AddPair('objJSONobject', js);
//array
js.AddPair('objArray', TRscJSONArray.Create);
end;
var
jsary:TRscJSONArray;
begin
jsary := TRscJSONArray.Create;
//array of objects
jsary.Add(js);
//array of string
jsary.Add('RSC SISTEMAS');
//array of integer
jsary.Add(20);
//array of double
jsary.Add(5.64);
//array of int64
jsary.Add(654894874745674);
//array of date
jsary.Add('2024-05-20');
//array of boolean
jsary.Add(true);
end;

How to read a property value of an object ?

var
js:TRscJSONobject;
val: Variant;
begin
val := js.GetValue('ValueWideString').AsInteger;
val := js.GetValue('ValueWideString').AsInt64;
val := js.GetValue('ValueWideString').AsString;
val := js.GetValue('ValueWideString').AsWideString;
val := js.GetValue('ValueWideString').AsDouble;
val := js.GetValue('ValueWideString').AsBoolean;
val := js.GetValue(0).AsInteger;
val := js.GetValue(0).AsInt64;
val := js.GetValue(0).AsString;
val := js.GetValue(0).AsWideString;
val := js.GetValue(0).AsDouble;
val := js.GetValue(0).AsBoolean; //objects
js := js.GetValue('objJSONobject') as TRscJSONobject;
//array
jsary := js.GetValue('objArray') as TRscJSONArray;
end;

How to read a value from an array ?

var
jsary:TRscJSONArray;
val: Variant;
begin
val := jsary.Items[0].AsInteger;
val := jsary.Items[0].AsInt64;
val := jsary.Items[0].AsString;
val := jsary.Items[0].AsWideString;
val := jsary.Items[0].AsDouble;
val := jsary.Items[0].AsBoolean;

Browsing data structure

Delphi.

Using FOR you can browse item's array or property's object value in the same maner.

var
js:TRscJSONobject;
I: Integer;
beginfor I := 0to js.Count - 1dobegin
js.GetValue(I) ...

you can also browse the keys and values of an object like this:

var
js:TRscJSONobject;
E: Integer;
beginfor E := 0to js.Count - 1dobegin
TRscJSONobjectmethod(js.Items[E]).Name;
TRscJSONobjectmethod(js.Items[E]).ObjValue.AsString;
end;
...

Browsing array items without enumerator

var
E: Integer;
jsary:TRscJSONArray;
beginfor E := 0to jsary.Count - 1dobegin
jsary.Items[E] ...

Saving data

var
js:TRscJSONobject;
begin
js.SaveToStream(Stream);
js.SaveToFile(filename);
// usando class TRscJSON
TRscJSON.SaveToStream(js, stream);
TRscJSON.SaveToFile(js, filename); ...

Load data

var
js:TRscJSONobject;
begin
js := TRscJSON.LoadFromString(string);
js := TRscJSON.LoadFromStream(stream);
js := TRscJSON.LoadFromFile(filename);
...

Autor

Roniery Santos Cardoso
Contatos: 092 41412737 - roniery@rscsistemas.com.br

Se o Componente lhe ajudar fique a vontade para fazer uma doação para nós, assim continuamos nosso trabalho e sempre estaremos buscando novas formas de contribuir com nossa comunidade.

• Chave Pix: roniery@rscsistemas.com.br

Grupos para discusão e compartilhamneto de informações sobre Delphi, Pascal e afins.

Grupo Delphi Begnner

• WhatsApp
• Telegram

Curta, compartilhe e se increva nas nossas redes sociais.

• YouTube

• Facebook