Ler JSON específico

10/05/2021

0

Olá pessoal!
Estou com dificuldade para ler este json e jogá-lo num objeto ou num clientdataset.

{"success":["705","330","547"],"errors":[]}.

Todos os exemplos que utilizei redundaram em invalid type cast.

Alguém pode me auxiliar?

Obrigado!
Cezar Lopes

Cezar Lopes

Responder

Post mais votado

10/05/2021

Veja um exemplo simples:

Acrescente DBXJson na uses do form.

var
  jObj: TJSONObject;
  jArray: TJSONArray;
  jValue: TJSONValue;
  i: Integer;
begin
  jObj := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(Memo1.Text), 0) as TJSONObject;
  if jObj = nil then
    Application.MessageBox('Arquivo json inválido.', 'Erro', MB_OK + MB_ICONERROR)
  else
  begin
    jValue := jObj.Get('success').JsonValue;

    if jValue.ClassType = TJSONArray then
    begin
       jArray := (jValue as TJSONArray);

       for I := 0 to jArray.Size - 1 do
        ShowMessage(jArray.Get(i).Value);
    end;
  end;
end;

Natanael Ferreira

Natanael Ferreira
Responder

Mais Posts

10/05/2021

Gxf

https://pt.stackoverflow.com/questions/391976/como-ler-um-arquivo-json-pelo-delphi
Responder

10/05/2021

Cezar Lopes

Bom dia!

Esse código que passaste eu já vi. Ele não dá erro, mas também mão faz nada! :(

https://pt.stackoverflow.com/questions/391976/como-ler-um-arquivo-json-pelo-delphi
Responder

10/05/2021

Cezar Lopes

Bom dia Natanael. Muitíssimo obrigado. Deu certo! Valeu mesmo!
:)


Veja um exemplo simples:

Acrescente DBXJson na uses do form.

var
  jObj: TJSONObject;
  jArray: TJSONArray;
  jValue: TJSONValue;
  i: Integer;
begin
  jObj := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(Memo1.Text), 0) as TJSONObject;
  if jObj = nil then
    Application.MessageBox('Arquivo json inválido.', 'Erro', MB_OK + MB_ICONERROR)
  else
  begin
    jValue := jObj.Get('success').JsonValue;

    if jValue.ClassType = TJSONArray then
    begin
       jArray := (jValue as TJSONArray);

       for I := 0 to jArray.Size - 1 do
        ShowMessage(jArray.Get(i).Value);
    end;
  end;
end;
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar