5

Estou tentando deserializar um um Objeto JSON com um objectlist, seguindo os exemplo do do fórum mormot não dá certo, alguém pode me ajudar:

Memo.Text := '{"CODIGO":"01","NOME":"CIDO","TELEFONES":[{"DDD":"18","NUMERO":"996237140"},{"DDD":"18","NUMERO":"996237140"}]}';

var
  ClientesVO  : TClientesVO;
  TelefonesVO : TTelefonesVO;
  isValid     : boolean;
begin

  Memo.Text := '{"CODIGO":"01","NOME":"CIDO","TELEFONES":[{"DDD":"18","NUMERO":"996237140"},{"DDD":"18","NUMERO":"996237140"}]}';

  ClientesVO  := TClientesVO.Create;
  TelefonesVO := TTelefonesVO.Create;

  TJSONSerializer.RegisterClassForJSON([TClientesVO,TTelefonesVO]);

  JSONToObject(ClientesVO, @Memo.Text[1], isValid, nil, [j2oIgnoreUnknownProperty]);

  ObjectToJson(TelefonesVO,ClientesVO.TELEFONES.Items[0]);

Classes:

type
  TTelefonesVO = class(TSynPersistent)
  private
    P_DDD    : RawUTF8;
    P_NUMERO : RawUTF8;
  published
    property DDD    : RawUTF8 read P_DDD    write P_DDD;
    property NUMERO : RawUTF8 read P_NUMERO write P_NUMERO;
  end;

type TPhoneVOObjArray = Array of TTelefonesVO;

type
  TClientesVO = class(TSynPersistent)
  private
    P_CODIGO      : RawUTF8;
    P_NOME        : RawUTF8;
    P_TELEFONES   : TPhoneVOObjArray;
  published
    property CODIGO      : RawUTF8          read P_CODIGO     write P_CODIGO;
    property NOME        : RawUTF8          read P_NOME       write P_NOME;
    property TELEFONES   : TPhoneVOObjArray read P_TELEFONES  write P_TELEFONES;
  end;
6
  • Fiz alguns testes, e funcionou legal aqui para mim. Mas a mORMot parece ter alguns segredos quanto a declaração das classes. Poderia postar o código de declaração das suas classes (VOs)? Commented 29/11/2016 às 16:48
  • estou usando o SynCrossPlatformJSON pra deserializar Commented 30/11/2016 às 19:20
  • Olha só, montei um exemplo, e ele funciona quase que perfeitamente. Só não estou conseguindo deserializar os ColletctionItens do meu JSON. O que percebi da mORMot, é que, eles tem algumas peculiaridades nas criações das classes. Exemplo, as classes com objetos, precisam ser herdar do tipo Collection e CollectionItem. Eu nunca tinha mexido com a parde de serialização do mORMot (utilizo ela apenas para aplicações REST client/server e como ferramenta para ORM). Qual é o problema exato que você está tendo ? Commented 30/11/2016 às 20:00
  • Olhei agora a sua classe, e você não está usando os tipos recomendados pela mORMot. Vou responder com o exemplo que eu tenho para ver se te ajuda um pouco Commented 30/11/2016 às 20:02
  • Legal, e obrigado o eu tambem uso o rest tenho uma aplicacao com delphi e ExtJS 6.01 de from tudo funciona perfeito. o que quero é justamente deserializar o CollectionItem, e nao consigo Commented 30/11/2016 às 20:29

1 Resposta 1

2

Para que o framework reconheça os seus objetos, (nesse caso o telefone) é necessario que o Objeto e a Lista de objetos sejam do tipo Collection e CollectionItem.

Código:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  mORMot,
  SynCommons,
  Vcl.StdCtrls,
  System.Generics.Collections;

type

  TTelefone = class(TCollectionItem)
  private
    FDDD: RawUTF8;
    FNumero: RawUTF8;

  published
    property DDD: RawUTF8 read FDDD write FDDD;
    property Numero: RawUTF8 read FNumero write FNumero;

  end;

  TListaTelefones = class(TCollection)
  private
    function GetItem(AIndex: Integer): TTelefone;
  public
    function Add: TTelefone;
    property Item[Index: Integer]: TTelefone read GetItem;
    function Last: TTelefone;
  end;

  TPessoa = class(TPersistent)
  private
    FChave: RawUTF8;
    FNome: RawUTF8;
    FTelefone: TListaTelefones;

  published
    property Chave: RawUTF8 read FChave write FChave;
    property Nome: RawUTF8 read FNome write FNome;
    property Telefone: TListaTelefones read FTelefone write FTelefone;

  end;

  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    FObjetoPessoa: TPessoa;
    FObjetoTelefones: TListaTelefones;

    FObjetoPessoaDesserializado: TPessoa;
    FObjetoTelefonesDesserializado: TListaTelefones;

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}




procedure TForm1.Button1Click(Sender: TObject);
var
  Telefone: TTelefone;
begin

  FObjetoPessoa.Chave := '1';
  FObjetoPessoa.Nome  := 'Victor';

  FObjetoTelefones.Add;
  FObjetoTelefones.Last.DDD    := '49';
  FObjetoTelefones.Last.Numero := '99999999';

  FObjetoTelefones.Add;
  FObjetoTelefones.Last.DDD    := '47';
  FObjetoTelefones.Last.Numero := '77777777';

  FObjetoPessoa.Telefone := FObjetoTelefones;

  Memo1.Lines.Add(ObjectToJSON(FObjetoPessoa));

end;



procedure TForm1.Button2Click(Sender: TObject);
var
  isValid: Boolean;
  SyntaxErrorPointer: PUTF8Char;
  JSON: RawUTF8;
begin
  JSON := RawUTF8(Memo2.Lines.Text);
  SyntaxErrorPointer := JSONToObject(FObjetoPessoaDesserializado, @JSON[1], isValid);

end;



procedure TForm1.FormCreate(Sender: TObject);
begin
  FObjetoPessoa    := TPessoa.Create;
  FObjetoTelefones := TListaTelefones.Create(TTelefone);

  FObjetoPessoaDesserializado    := TPessoa.Create;
  FObjetoTelefonesDesserializado := TListaTelefones.Create(TTelefone);
end;



procedure TForm1.FormDestroy(Sender: TObject);
begin
  FreeAndNil(FObjetoTelefonesDesserializado);
  FreeAndNil(FObjetoPessoaDesserializado);

  FreeAndNil(FObjetoTelefones);
  FreeAndNil(FObjetoPessoa);

end;

{ TListaTelefones }



function TListaTelefones.Add: TTelefone;
begin
  Result := inherited Add as TTelefone;
end;



function TListaTelefones.GetItem(AIndex: Integer): TTelefone;
begin
  Result := inherited Items[AIndex] as TTelefone;
end;



function TListaTelefones.Last: TTelefone;
begin
  Result := Item[Count - 1];
end;

end.

Bbs.: Essa estrutura ficou um tanto quanto estranha para mim. Em seu lugar optaria pelo framework Delphi-OOP pois consigo usar ele com ObjectList<T> Generics.

3
  • verdade. obrigado pela ajuda... Commented 30/11/2016 às 20:55
  • Uma coisa que eu percebi agora no seu código, que não funciona para mim, é usar o ponteiro do memo direto como parâmetro no JSONToObject. Crie uma variável do tipo RawUTF8, e atribua o JSON dentro do memo para esse cara, e na passagem, usa essa nova variável, como nesse exemplo: @JSON[1] Commented 1/12/2016 às 10:57
  • Deu certo usar @JSON[1] mas ainda nao consigo acessar os telefones tentei ajustar mas nao deu certo Commented 1/12/2016 às 13:36

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .