5

Boas não sendo um pro em delphi quero ler um ficheiro json e extrair campos.

http://www.nif.pt/?json=1&q=509442013

1 Resposta 1

3

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;
11
  • eu queria mostrar isto numa grid ou numa label por exemplo morada
    – usersantos
    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
  • eu tenho um botão
    – usersantos
    Commented 28/09/2015 às 14:36
  • nao sei usar funções ainda não chegei lá...java é mais amiga...
    – usersantos
    Commented 28/09/2015 às 14:51
  • 1
    Putz, 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

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .