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
Enterprise-grade ITSM, for every business
Freshservice is an intuitive, AI-powered platform that helps IT, operations, and business teams deliver exceptional service without the usual complexity. Automate repetitive tasks, resolve issues faster, and provide seamless support across the organization. From managing incidents and assets to driving smarter decisions, Freshservice makes it easy to stay efficient and scale with confidence.
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