Fórum Obter Name de um Json. #599597

08/01/2019

0

OI...
Sou meio novo aqui em Delphi tbm...
Gostaria de saber se a algum modo de obter o name do json, tipo guardar ele em uma string, so o name mesmo....
No delphi FMX...
Abrss...
Fernando

Fernando

Responder

Posts

23/08/2019

Fernando Ito

Falae Fernando,

segue um exemplo de como você pode fazer isso:

var
jsonObj, jSubObj: TJSONObject;
jv: TJSONValue;
begin
jsonObj := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(Memo1.Text), 0)
as TJSONObject;

Memo1.Lines.Clear;

jv := jsonobj.Get('error').JsonValue;
jsubObj := jv as TJSONObject;

jv := jsubObj.Get('message').JsonValue;
jsubObj := jv as TJSONObject;

jv := jsubObj.Get('value').JsonValue;

ShowMessage(jv.Value);
end;

Um abraço,
ITO
Responder

Gostei + 0

23/08/2019

Fernando

Falae Fernando,

segue um exemplo de como você pode fazer isso:

var
jsonObj, jSubObj: TJSONObject;
jv: TJSONValue;
begin
jsonObj := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(Memo1.Text), 0)
as TJSONObject;

Memo1.Lines.Clear;

jv := jsonobj.Get('error').JsonValue;
jsubObj := jv as TJSONObject;

jv := jsubObj.Get('message').JsonValue;
jsubObj := jv as TJSONObject;

jv := jsubObj.Get('value').JsonValue;

ShowMessage(jv.Value);
end;

Um abraço,
ITO


Obrigado pela resposta, vou testa.
Estou em outros projetos...

Mas muito obrigado mesmo.
Responder

Gostei + 0

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

Aceitar