Delphi lendo json

Web service

REST

Delphi

JSON

29/05/2018

Oi Pessoal,

Começando a mexer com json, estou tentando fazer uma aplicação mobile consumindo, via rest, um webservice.
Travei no Json, como faço para pegar os dados do Json e colocar em edits...

Este é o Json que o webservice me retorna:

[{"userid":"1","login":"admin","senha":"admin"}]

To usando o delphi seattle..

obrigadao.......
Marcelo Santos

Marcelo Santos

Curtidas 0

Respostas

Crist

Crist

29/05/2018

Segue um exemplo, você não especificou o que está usando para fazer o aplicativo mobile:
//Obtem o objeto httpRequest para fazer requisições AJAX, de acordo com o browser
function getHttpRequest(){
if (window.XMLHttpRequest) {
// Outros browsers
req = new XMLHttpRequest();
}else if (window.ActiveXObject) {
// Internet Explorer
req = new ActiveXObject("Microsoft.XMLHTTP");
}
return req;
}

// Busca endereço baseado no CEP
function preencheEndereco(event){
event.preventDefault();
var req = getHttpRequest();
var cep = document.querySelector("input[name='CEPEndereco']");
var url = "https://viacep.com.br/ws/" + cep.value + "/json/";
req.onreadystatechange = function(){
if (req.readyState == 4) {
if (req.status == 200) {
// Converte o retorno em JSON para um objeto válido
var retorno = JSON.parse(req.responseText);
LogradouroEndereco.value = retorno.logradouro;
BairroEndereco.value =retorno.bairro;
UFEndereco.value = retorno.uf;
CidadeEndereco.value = retorno.localidade;
IDCidadeEndereco.value = retorno.ibge;
}
}
}
req.open("GET", url, true);
req.send(null);
}
GOSTEI 0
POSTAR