Boas não sendo um pro em delphi
quero ler um ficheiro json
e extrair campos.
1 Resposta
Aqui está um exemplo de como você fazer a chamada com Delphi a sua url e pegar os valores do json
function TForm3.getTemp: TTemp;
var
lHTTP: TIdHTTP;
lParamList: TStringList;
LJSONObject : TJSONObject;
j:integer;
jSubPar: TJSONPair;
jsonStringData : String;
begin
// chamada a URL
lParamList := TStringList.Create;
lHTTP := TIdHTTP.Create(nil);
try
jsonStringData := lHTTP.Post('http://www.nif.pt/?json=1&q=509442013', lParamList);
finally
lHTTP.Free;
lParamList.Free;
end;
// obtendo valores
LJSONObject := nil;
try
LJSONObject := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(jsonStringData), 0) as TJSONObject;
for j := 0 to LJSONObject.Size - 1 do begin
jSubPar := LJSONObject.Get(j); //pega o par no índice j
if jSubPar.JsonString.Value = 'data' then begin
jsonStringData := jSubPar.toString;
end;
end;
LJSONObject := nil;
LJSONObject := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(jsonStringData.Replace('"data":','',[rfReplaceAll])), 0) as TJSONObject;
Result := TTemp.Create;
for j := 0 to LJSONObject.Size - 1 do begin
// NOME DO CAMPO
jSubPar.JsonString.Value
// VALOR
Result.location := jSubPar.JsonValue.Value
// {"result":"success"
if (trim(jSubPar.JsonString.Value) = 'result') then
jSubPar.JsonValue.Value // RETORNO success
end;
finally
LJSONObject.Free;
end;
end;
Fiz outra função também para retornar o valor de um campo em especifico:
function TForm3.getCamposJsonString(json, value:String): String;
var
LJSONObject: TJSONObject;
jSubPar: TJSONPair;
i,j:integer;
begin
LJSONObject := nil;
try
LJSONObject := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(json),0) as TJSONObject;
for j := 0 to LJSONObject.Size - 1 do begin
jSubPar := LJSONObject.Get(j); //pega o par no índice j
if (trim(jSubPar.JsonString.Value) = value) then
Result := jSubPar.JsonValue.Value;
end;
finally
LJSONObject.Free;
end;
end;
-
eu queria mostrar isto numa grid ou numa label por exemplo morada Commented 28/09/2015 às 14:29
-
basta você montar uma
stringGrid
dentro do for, onde tem os comentários campo e valor. Commented 28/09/2015 às 14:34 -
-
nao sei usar funções ainda não chegei lá...java é mais amiga... Commented 28/09/2015 às 14:51
-
1Putz, então você está com problemas. kkkkkk. Acho melhor você estudar um pouco mais sobre a linguagem para se familiarizar mais. Commented 28/09/2015 às 14:54