Boa noitePessoalEstou precisando converter um json em um recordalgu�m tem alguma sugest�o!??agradeco desde j�...

Converter json em record

27/03/2019

Artur Barth

H� varias formas de se trabalhar com JSON em Delphi.
Sugiro utilizar essa biblioteca: https://github.com/fabriciocolombo/delphi-rest-client-api
Exemplo de c�digo:

TPerson = class(TObject)
public
  (* Reflect the server side object field names, for Java must be case-sensitive *)
  id: Integer;
  name: String;
  email: String;

  (* Static constructor *)
  class function NewFrom(Id: Integer; Name, EMail: String): TPerson;
end;

var
  vPerson : TPerson;
begin
  vPerson := RestClient.Resource('http://localhost:8080/java-rest-server/rest/person/1')
                 .Accept(RestUtils.MediaType_Json)
                 .Get<TPerson>();

Se preferir, voc� pode utilizar uma chamada lkJSON: https://sourceforge.net/projects/lkjson/
N�o tenho exemplo com lkJSON.

Ou, at� mesmo as fun��es nativas do Delphi que est�o dispon�veis atrav�s da uses Rest.JSON a partir da vers�o XE se n�o me engano.

{==========================================
 Converte JSON para Objeto
 ==========================================}
class function TJsonUtil.JSONToObject<T>(AJSON: TJSONValue): T;
begin
   if AJSON is TJSONNull then
      Exit(nil);
 
   if not Assigned(JSONUnMarshal) then
      JSONUnMarshal := TJSONUnMarshal.Create;
 
   result := T(JSONUnMarshal.UnMarshal(AJSON));
 
end;

Onde T � generics, ou seja, suporta qualquer classe ou objeto que voc� passe por par�metro e gerar� um objeto a partir do JSON.

Responder

Gostei + 0

28/03/2019

Ricardo Matarazzo

H� varias formas de se trabalhar com JSON em Delphi.
Sugiro utilizar essa biblioteca: https://github.com/fabriciocolombo/delphi-rest-client-api
Exemplo de c�digo:

TPerson = class(TObject)
public
  (* Reflect the server side object field names, for Java must be case-sensitive *)
  id: Integer;
  name: String;
  email: String;

  (* Static constructor *)
  class function NewFrom(Id: Integer; Name, EMail: String): TPerson;
end;

var
  vPerson : TPerson;
begin
  vPerson := RestClient.Resource('http://localhost:8080/java-rest-server/rest/person/1')
                 .Accept(RestUtils.MediaType_Json)
                 .Get<TPerson>();

Se preferir, voc� pode utilizar uma chamada lkJSON: https://sourceforge.net/projects/lkjson/
N�o tenho exemplo com lkJSON.

Ou, at� mesmo as fun��es nativas do Delphi que est�o dispon�veis atrav�s da uses Rest.JSON a partir da vers�o XE se n�o me engano.

{==========================================
 Converte JSON para Objeto
 ==========================================}
class function TJsonUtil.JSONToObject<T>(AJSON: TJSONValue): T;
begin
   if AJSON is TJSONNull then
      Exit(nil);
 
   if not Assigned(JSONUnMarshal) then
      JSONUnMarshal := TJSONUnMarshal.Create;
 
   result := T(JSONUnMarshal.UnMarshal(AJSON));
 
end;

Onde T � generics, ou seja, suporta qualquer classe ou objeto que voc� passe por par�metro e gerar� um objeto a partir do JSON.

Responder

Gostei + 0

28/03/2019

Ricardo Matarazzo

H� varias formas de se trabalhar com JSON em Delphi.
Sugiro utilizar essa biblioteca: https://github.com/fabriciocolombo/delphi-rest-client-api
Exemplo de c�digo:

TPerson = class(TObject)
public
  (* Reflect the server side object field names, for Java must be case-sensitive *)
  id: Integer;
  name: String;
  email: String;

  (* Static constructor *)
  class function NewFrom(Id: Integer; Name, EMail: String): TPerson;
end;

var
  vPerson : TPerson;
begin
  vPerson := RestClient.Resource('http://localhost:8080/java-rest-server/rest/person/1')
                 .Accept(RestUtils.MediaType_Json)
                 .Get<TPerson>();

Se preferir, voc� pode utilizar uma chamada lkJSON: https://sourceforge.net/projects/lkjson/
N�o tenho exemplo com lkJSON.

Ou, at� mesmo as fun��es nativas do Delphi que est�o dispon�veis atrav�s da uses Rest.JSON a partir da vers�o XE se n�o me engano.

{==========================================
 Converte JSON para Objeto
 ==========================================}
class function TJsonUtil.JSONToObject<T>(AJSON: TJSONValue): T;
begin
   if AJSON is TJSONNull then
      Exit(nil);
 
   if not Assigned(JSONUnMarshal) then
      JSONUnMarshal := TJSONUnMarshal.Create;
 
   result := T(JSONUnMarshal.UnMarshal(AJSON));
 
end;

Onde T � generics, ou seja, suporta qualquer classe ou objeto que voc� passe por par�metro e gerar� um objeto a partir do JSON.

entendi, mas pelo que notei este soh funciona com uma classe ou tobject, a partir de um Record ele da erro

Responder

Gostei + 0

F�rum Converter json em record #601477