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...
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
Curtir tópico
+ 0
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
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
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
Clique aqui para fazer login e interagir na Comunidade :)