Download
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
Easily Host LLMs and Web Apps on Cloud Run
Run frontend and backend services, batch jobs, host LLMs, and queue processing workloads without the need to manage infrastructure. Cloud Run gives you on-demand GPU access for hosting LLMs and running real-time AI—with 5-second cold starts and automatic scale-to-zero so you only pay for actual usage. New customers get $300 in free credit to start.
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
