Consultar e Importar Cep da Internet para o Sistema.

[Hasse]

Bom dia Daniel.

Está acontecendo algo muito estranho com a aplicativo de busca do CEP:

Troquei o aplicativo de pasta, mas no mesmo drive;

1)-Se abro ele e fecho SEM digitar algo, ele fecha normalmente;
2)-Se digito algo e faço a busca, depois tento fechar a aplicativo trava;
3)-Se digito, e mesmo SEM fazer a busca, ao tentar sair também trava.

O quê está acontecendo de errado ?
Como contornar este problema ?

Testei em outro computador, remotamente, via Team Viewer, e funciona corretamente.

O remoto está com XP
O meu desktop está com W7.

[Daniel]

Hasse
testei aqui e não apareceu este erro em nenhum dos pcs com xp, w7 e w10
só a troca de pasta não poderia causar erro, tentar compilar de novo

[Hasse]

Boa noite Daniel.

Estou totalmente desorientado.

Ontem cheguei até a compilar o aplicativo diretamente na nova pasta e mesmo assim nada funcionava.

Hoje, por incrível que pareça, após nova compilação, tudo funciona corretamente.

Estou derretendo os neurônios desde a manhã de hoje, e não consigo explicar o ocorrido.

Não me resta outra opção, senão pedir desculpas, como também agradecer à você Daniel pela solicitude.

[JoséQuintas]

Por acaso é Harbour e estava usando compatibilidade xHarbour?

Em Harbour dá pra simplificar:

Código: Selecionar todos

oServer := win_OleCreateObject( "MSXML2.ServerXMLHTTP" )

É selecionado automaticamente o que for necessário.

[Hasse]

Bom dia Quintas.

Seguem os dados:
Compilado com MiniGui 3.4.3 - Harbour - MingW
Pacote MiniGui baixado em 09/06/2016.

Sintaxe usada: oServer:= win_OleCreateObject( "MSXML2.ServerXMLHTTP.6.0")
Na pasta Windows\System32\ tem a MSXML6.dll e MSXML6r.dll.

[gilbertosilverio]

Ola Amigos,

O correio alterou a forma de buscar de rastreamento, como eu fazia, agora não funciona mais:

Código: Selecionar todos

xCH:="http://websro.correios.com.br/sro_bin/txect01$.QueryList?P_LINGUA=001&P_TIPO=001&P_COD_UNI="+alltrim(NCONHECI)

cCOMANDO := "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe -url "+alltrim(xCH)

xhbrun( cComando, .f., )

E possível usar a mesma regra desta rotina de busca de cep, pois pelo que vi, ela cria e lê paginas da web,

Da criar uma rotina para o rastreamento nestes moldes.

Grato.

[JoséQuintas]

Sintaxe usada: oServer:= win_OleCreateObject( "MSXML2.ServerXMLHTTP.6.0")

Hasse, deixei passar sua mensagem.
Nem sempre é usada a versão 6.0

Do jeito que coloquei a seleção é automática.
Mas não é aceita do xHarbour, por isso perguntei sobre ele.

Caso seja necessária a versão 5.0, precisa instalar, porque é a única que não vém com Windows.

Sobre o post seguinte, não precisava do chrome pra isso.
Poderia usar a hbtip do Harbour, ou este mesmo serverXMLHTTP.
Não sei se trocando o esquema de download já faça diferença.

[Hasse]

Boa tarde Quintas.

Agradeço a tua sempre providencial intervenção, pela boa vontade em sempre ajudar à nós, os menos experientes.

O aplicativo está funcionando perfeito.

Um fraternal abraço.

[mbrigatti]

O URL da consulta nos correios mudou.

Alguém já viu isso ? Alguma dica ?

[Hasse]

Também já percebi.
Ainda não sei qual o novo endereço.

[JoséQuintas]

O URL da consulta nos correios mudou.

Qual delas?
A manual ou o webservice?

[mbrigatti]

A URL do webservice:

'http://www.buscacep.correios.com.br/sis ... dereco.cfm'

[Itamar M. Lins Jr.]

Olá!
Eu uso esse:
https://viacep.com.br/ws/01001000/xml/
Tem por json, xml...

Saudações,
Itamar M. Lins Jr.

[Hasse]

Valeu meu caro Itamar.
Um bom Natal para TODOS os colegas.

[Itamar M. Lins Jr.]

Olá!
A rotina p/ Harbour 3.2

Código: Selecionar todos

*********************
Function ChkCep(cCep)
*********************
*
*
Local cUf,cLogradouro,cBairro,cCidade,cTipoLogradouro
LOCAL cHtml, oNode, oDoc, cURL, oHTTP
If empty(cCep)
   hwg_Msginfo("Informe o CEP")
   return .f.
EndIf

cURL := "http://viacep.com.br/ws/"+ALLTRIM(cCep)+"/xml/"
oHTTP:= TIPClientHTTP():New( cURL )
   IF !oHTTP:Open()
      hwg_msginfo( "Erro conectando:", oHTTP:lastErrorMessage() )
      RETURN .F.
   ENDIF
   cHtml := hb_UTF8ToStr( oHTTP:ReadAll() )
   oHTTP:Close()
   oXML := TXMLDocument():New( cHtml, HBXML_STYLE_NOESCAPE )
   IF oXML:nError != HBXML_ERROR_NONE
      hwg_Msgstop( "xml com problema " + Str( oXML:nError ) )
      RETURN
   ENDIF
   oCEP := oXML:findfirst( "xmlcep" )
   IF oCEP == NIL
      hwg_Msgstop( "TAG cep não localizada." )
      RETURN
   ENDIF
   oDados := TXmlIterator():New( oCEP )

cUF :=""
cCID:=""
cBAI:=""
cLOG:=""
cRUA:=""

   DO WHILE .T.

      oCurrent := oDados:Next()
      IF oCurrent == NIL
         Exit
      ELSE
         IF oCurrent:cName == "logradouro"
            cRUA := oCurrent:cData 
         ELSEIF oCurrent:cName == "complemento"
            cCOMPLEMENTO := oCurrent:cData
         ELSEIF oCurrent:cName == "bairro"
            cBAI := oCurrent:cData
         ELSEIF oCurrent:cName == "localidade"
            cCID := Upper(oCurrent:cData)
         ELSEIF oCurrent:cName == "uf"
            cUF := oCurrent:cData
         ELSEIF oCurrent:cName == "ibge"
            cIBGE := oCurrent:cData
         ENDIF
      ENDIF            
   ENDDO

lResp:=.T.

IF lResp

   vCl14 := cRUA
   oCl14 : Refresh()
   vCl15 := cBAI
   oCl15 : Refresh()
   vCl17 := cCID
   oCl17 : Refresh()
   vCl19 := cUF 
   oCl19 : Refresh()

Else
   hwg_Msgstop("CEP inválido ou serviço indisponível.")
   return .f.
EndIf

Return .t.

Está para Hwgui, mas basta adaptar p/ qualquer LIB gráfica até console.

Saudações,
Itamar M. Lins Jr.