Delphi Web Utils

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