consumir JSON delphi 7

Delphi

19/05/2017

boa noite, tenho necessidade de consumir um serviço restful retornando o formado json, alguém sabe si existe uma forma nativa de fazer isso no delphi 7?
desde já agradeço!!!
Rodrigo Pereira

Rodrigo Pereira

Curtidas 0

Respostas

Mateus Ribeiro

Mateus Ribeiro

19/05/2017

Boa tarde!

Não, Delphi 7 não possui meios nativos quando se trata de JSON. Mas existem bibliotecas prontas q podem te ajudar!
GOSTEI 0
Rodrigo Pereira

Rodrigo Pereira

19/05/2017

Pode me indicar; si possível com fragmento de codigo
GOSTEI 0
Raylan Zibel

Raylan Zibel

19/05/2017

Uma que funciona.
https://www.dropbox.com/s/cnlmc844uxprsvc/uJSON.pas
GOSTEI 0
Raylan Zibel

Raylan Zibel

19/05/2017

Uma que funciona.
https://www.dropbox.com/s/cnlmc844uxprsvc/uJSON.pas
GOSTEI 0
Tone Costa.

Tone Costa.

19/05/2017

Use a SuperObject.

https://github.com/hgourvest/superobject
GOSTEI 0
Rodrigo Pereira

Rodrigo Pereira

19/05/2017

Tem um exemplo de como usá-la?
Um projetinho?
Desde já agradeço!!!
GOSTEI 0
Rodrigo Pereira

Rodrigo Pereira

19/05/2017

Uma que funciona.
https://www.dropbox.com/s/cnlmc844uxprsvc/uJSON.pas

Tem um exemplo de como usá-la?
Um projetinho?
Desde já agradeço!!!
GOSTEI 0
Mateus Ribeiro

Mateus Ribeiro

19/05/2017

Bom dia! Conseguiu? Tenho uma biblioteca aqui, caso não tenha conseguido ainda, te passo. Boa sorte!
GOSTEI 0
Raylan Zibel

Raylan Zibel

19/05/2017

Uma que funciona.
https://www.dropbox.com/s/cnlmc844uxprsvc/uJSON.pas

Tem um exemplo de como usá-la?
Um projetinho?
Desde já agradeço!!!


Eu não tinha quando baixei ela rs. Tive que olhar o codigo e fazer montar sozinho. Quebre a cabeça um pouco aí jovem!
function Abcdefg: string;
var
  json: TJSONObject;
begin
  json := TJSONObject.create();
  json.accumulate('Um Texto', _String.create('Outro Texto'));
  Result := json.toString;
  json.Free;
end
GOSTEI 0
Rodrigo Pereira

Rodrigo Pereira

19/05/2017

Uma que funciona.
https://www.dropbox.com/s/cnlmc844uxprsvc/uJSON.pas

Tem um exemplo de como usá-la?
Um projetinho?
Desde já agradeço!!!


Eu não tinha quando baixei ela rs. Tive que olhar o codigo e fazer montar sozinho. Quebre a cabeça um pouco aí jovem!
function Abcdefg: string;
var
  json: TJSONObject;
begin
  json := TJSONObject.create();
  json.accumulate('Um Texto', _String.create('Outro Texto'));
  Result := json.toString;
  json.Free;
end


boa tarde, pedi um fragmento de código imaginando q vc já tivesse utlizado pro fim q desejo, de maneira nenhuma queria q vc "quebrasse a cabeça", inclusive já fiz o q queria!!!
de qualquer forma obrigado!!!
GOSTEI 0
POSTAR