Autor Tópico: Dica Android: Lendo dados a partir de um servidor externo - parte 2  (Lida 2209 vezes)

JacquesBica

  • Full Member
  • ***
  • Mensagens: 197
  • Karma: +0/-0
  • Boas cercas fazem bons vizinhos
Dica Android: Lendo dados a partir de um servidor externo - parte 2
« Online: Dezembro 15, 2011, 11:55:43 am »
No Android vamos faze leitura destes dados gravando-os numa tabela SQLite. Para entender a aplicação, veja a imagem_105. Vamos analisar o código contido no botão "Rotas".

NextTitle("Confirmação")
SWITCH Dialog("Voc√™ deseja importar o cadastro das rotas de coleta?")   
   CASE 1      
      sUrl is string
      sRetorno is string
      sErro is string
      nQtde is int
      
      nRota is int
      sDescricao is string
      sParte is string
      
      sUrl = gsServidor + "/android/teste.php?param=" & gnTransportadora
      
      IF HTTPRequest(sUrl,"","","","",gsUsuario,gsSenha) THEN
         sRetorno = HTTPGetResult()
         
         IF (Length(sRetorno) = 0) THEN
            sErro = HTTPGetResult(httpHeader)
            NextTitle("Erro")      
            Error(sErro)
         ELSE            
            nQtde = StringCount(sRetorno,"|")
            sRetorno = Middle(sRetorno,1,Length(sRetorno)-1)
            
            FOR ALL CadRotas
               PROGBAR_Dados ++
               HDelete(CadRotas)   
            END              
            
            FOR i = 1 TO nQtde       
               sParte = ExtractString(sRetorno,i,"|")     
                     nRota = ExtractString(sParte,1,"*")
               sDescricao= ExtractString(sParte,2,"*") 
               
               CriaRota(nRota,sDescricao)                           
            END                          
            
            NextTitle("Sucesso")
            Info("Foram importadas " + nQtde + " rotas para o transportador " + gnTransportador)
         END
      END
END


PROCEDURE CriaRota(pRota,pDescricao)

HReset(CadRotas)
CadRotas.Rota = pRota
CadRotas.Descricao = pDescricao
HAdd(CadRotas)

Jacques Bica
www.jbsistemas.com.br
São Sebastião do Caí/RS

Skype Jacques Leonel Bica
jacquesbica@gmail.com
http://br.linkedin.com/in/jacquesbica/
https://plus.google.com/+JacquesBica

Com Windev devo pensar simples, se estiver complicado é porque estou no caminho errado.