• advertisement_alt
  • advertisement_alt
  • advertisement_alt

mrclef

Members
  • Content count

    3
  • Joined

  • Last visited

Community Reputation

4 Neutral

About mrclef

  • Rank
    Soldier
  1. Resolvi o problema! Faltou serializar os dados antes de enviar... Obrigado pela ajuda.
  2. 1 - Estou tentando usar o Genymotionr mas da erro, provavelmente pelo ip. Na hora de criar a conexão no HFSQL Control Center eu usei localhost, devo refazer com outro ip? 2 - Tudo que é numérico vem 0 e string vem vazio. No teste pelo navegador vem um json contendo todas as informações de forma correta. Parâmetros são os mesmo, é só um get que retorna tudo que está na tabela. 3 - Eu vi exemplos e video aulas. Mas não encontrei muita coisa sobre webservice REST no mobile. Vou tentar ler o json de outra forma e mudar a conexão. Obrigado!
  3. Bom dia, Estou utilizando o windev para um trabalho da faculdade. Criei um webservice local no meu pc e uma base hyperfile para um app android consumir, porem o conteudo está vindo vazio quando testo no simulador do Windev Mobile, sendo que quando testo no navegador as informações vem corretamente. Abaixo o código que fiz para get do webservice: ProdGet is Structure usuarioID is 8-byte int login is ANSI string senha is ANSI string mercid is ANSI string END arrProdlist is array of ProdGet HReadFirst(usuario,usuarioID) WHILE HOut() = False arrProdlist.Add([usuario.usuarioID,usuario.login,usuario.senha,usuario.mercid]) HReadNext(usuario,usuarioID) END Rest is JSON Rest.qtd = ArrayCount(arrProdlist) Rest.produtos = arrProdlist RESULT Rest //////////////////////////// E aqui o cógio que fiz no meu mobile para receber: oRequest is restRequest oResponse is restResponse oRequest..URL = "http://localhost:8024/usuario" oRequest..Method = httpGet oResponse = RESTSend(oRequest) IF ErrorOccurred THEN ToastDisplay(ErrorInfo,toastShort,vaBottom,haCenter) RETURN ELSE IF oResponse..StatusCode = 200 THEN sRetJSON is Buffer = oResponse..Content stRest is STListProd // Deserialization to the element Deserialize(stRest, sRetJSON, psdJSON) Info(stRest.nQand) ELSE ToastDisplay("Erro do Servidor - "+oResponse..StatusCode,toastShort,vaBottom,haCenter) RETURN END END Alguem pode me ajudar?