Avaliação do Tópico:
  • 0 votos - 0 Média
  • 1
  • 2
  • 3
  • 4
  • 5
TORMBrJson.JsonToObjectList - No Android não funciona
#1
Question 
Olá, esse código funciona perfeitamente num aplicativo Win32, entretanto, quando complicado para Android da erro: Segmentation fault (11)  que significa Access Violation. Não consegui descobrir o motivo, mas creio estar relacionado a função GetNextJSON da unit ormbr.json.

procedure TForm1.Button1Click(Sender: TObject);
var
  ListaGrupo : TObjectList<Tgrupo>;
  Str        : string;
begin
  Str := '[' +
         ' {' +
         '    "id_grupo": 1,' +
         '    "descricao": "GRUPO 1"' +
         ' },' +
         ' {' +
         '    "id_grupo": 2,' +
         '    "descricao": "GRUPO 2"' +
         ' }' +
         ']';

  ListaGrupo := TObjectList<Tgrupo>.Create;
  ListaGrupo := TORMBrJson.JsonToObjectList<Tgrupo>(Str);

  if ListaGrupo.Count = 2 then
   ShowMessage('Tem 2 registros na lista - Funcionou OK');
end;

Obs: Estou usando Delphi 10.3.1


Arquivo(s) anexado(s) Miniatura(s)
   
Responder
#2
(27-06-2019, 07:40 PM)Marcos Escreveu: Olá, esse código funciona perfeitamente num aplicativo Win32, entretanto, quando complicado para Android da erro: Segmentation fault (11)  que significa Access Violation. Não consegui descobrir o motivo, mas creio estar relacionado a função GetNextJSON da unit ormbr.json.

procedure TForm1.Button1Click(Sender: TObject);
var
  ListaGrupo : TObjectList<Tgrupo>;
  Str        : string;
begin
  Str := '[' +
         ' {' +
         '    "id_grupo": 1,' +
         '    "descricao": "GRUPO 1"' +
         ' },' +
         ' {' +
         '    "id_grupo": 2,' +
         '    "descricao": "GRUPO 2"' +
         ' }' +
         ']';

  ListaGrupo := TObjectList<Tgrupo>.Create;
  ListaGrupo := TORMBrJson.JsonToObjectList<Tgrupo>(Str);

  if ListaGrupo.Count = 2 then
   ShowMessage('Tem 2 registros na lista - Funcionou OK');
end;

Obs: Estou usando Delphi 10.3.1

Correção aplicada e disponível no repositório.

  Isaque Pinheiro
  Fundador do Projeto ORM Brasil
  ORMBr SAC - Assine e faça parte dessa história ajudando o projeto a crescer.

Responder


Saltar Fórum:


usuários a ver este tópico: 1 Visitante(s)