Delphi Web Utils contain the uJson . uJson unit contain the class: JSONObject, JSONArray and JSONTokenezer .This classes handle json structures.
Categories
Software DevelopmentLicense
MIT LicenseFollow Delphi Web Utils
Other Useful Business Software
View all cloud assets of AWS, Google Cloud, Azure, Kubernetes, Digital Ocean in one place. Automates security misconfigurations of assets with guidance to resolve them. Covers far beyond basic checklists. It automatically evaluates the security misconfigs of the assets & provides step-by-step guidance to resolve them
Rate This Project
Login To Rate This Project
User Reviews
-
Utilizando no Delphi 7 para soluções win32, simplesmente excelente, porém, acredito que se os objetos JSON fossem herdados indiretamente da classe TComponente e não TObject seria melhor, pois no construtor seria necessário especificar o "Owner" (Parent), assim, na minha opinião é mais interessante a manipulação dos objetos. Outra sugestão é a implementação de uma função para a conversão dos valores string para PAnsiChar (PChar). -------------------- Using the Delphi 7 for win32 solutions simply outstanding, however, believe that if JSON objects were inherited indirectly from TComponente class and not TObject would be better, because the builder would need to specify the "Owner" (Parent), so, in my opinion more interesting is the manipulation of objects. Another suggestion is to implement a function for converting string values to PAnsiChar (PChar). Example implement the conversion (PChar): function toPchar(value: string): Pchar; begin GetMem(Result, length(value) + 1); StrPCopy(Result, value) end; Creating a complex JSON object: procedure TForm1.Button1Click(Sender: TObject); var objeto: TJSONObject; lista: TJSONArray; i: integer; begin try objeto := TJSONObject.create(); lista := TJSONArray.create(); for i := 0 to 1 do lista.put(TJSONObject.create().put('Nome', 'Plano' + IntToStr(i)).put('Valor', i)); objeto.put('Matricula', '0001'); objeto.put('Nome', 'Joao'); objeto.put('DataNascimento', '23/04/1985'); objeto.put('Lista', lista); showmessage((objeto.toString(2))); finally objeto.Free; end; end;
-
Simples e muito útil para leitura de json. Parabéns.
-
Great library, work OK with my Delphi 2007. Thanks Fabio