DownloadDelphi 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 engage and manage non-desk employees with Connecteam’s mobile-first platform that helps improve communication, enhance daily processes and increase productivity with custom checklists, forms, and reports.
Schedule shifts and track accurate work hours with Connecteam’s automated GPS time clock and easily export approved timesheets to payroll. Connecteam helps you keep your employees sharp thanks to knowledge base centers and advanced training courses. Raise morale with employee recognition rewards and keep the entire company updated through the main news feed.
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