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).
> git clone git@github.com:OpenSourceCommunityBrasil/RscJSON.git
or
> git clone https://github.com/OpenSourceCommunityBrasil/RscJSON.git
This will get you the RscJSON repository.
- Clone the RscJSON repository
- Add the RscJSON.pas unit to your project.
- 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
}
]
}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;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;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;Using FOR you can browse item's array or property's object value in the same maner.
var
js:TRscJSONobject;
I: Integer;
begin
for I := 0 to js.Count - 1 do
begin
js.GetValue(I) ...you can also browse the keys and values of an object like this:
var
js:TRscJSONobject;
E: Integer;
begin
for E := 0 to js.Count - 1 do
begin
TRscJSONobjectmethod(js.Items[E]).Name;
TRscJSONobjectmethod(js.Items[E]).ObjValue.AsString;
end;
...var
E: Integer;
jsary:TRscJSONArray;
begin
for E := 0 to jsary.Count - 1 do
begin
jsary.Items[E] ...var
js:TRscJSONobject;
begin
js.SaveToStream(Stream);
js.SaveToFile(filename);
// usando class TRscJSON
TRscJSON.SaveToStream(js, stream);
TRscJSON.SaveToFile(js, filename);
...var
js:TRscJSONobject;
begin
js := TRscJSON.LoadFromString(string);
js := TRscJSON.LoadFromStream(stream);
js := TRscJSON.LoadFromFile(filename);
...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
