Clipper On Line • Ver Tópico - Consultar webservice dos correios (em ASP)

Consultar webservice dos correios (em ASP)

Discussão sobre outras linguagens de programação.

Moderador: Moderadores

 

Consultar webservice dos correios (em ASP)

Mensagempor JoséQuintas » 05 Abr 2021 11:50

Estou com a seguinte situação:

uso ASP no meu servidor, mas o ASP não permite conexão segura, pra poder usar o webservice dos correios

Alguém tem alguma dica, ou rotina que possa substituir essa consulta?
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Consultar webservice dos correios (em ASP)

Mensagempor JoséQuintas » 05 Abr 2021 12:50

cep.png


Só pra curiosidade:
A criação de novos CEPs nunca foi tão grande.
Antigamente era uma vez por semestre, agora são várias por mês.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Consultar webservice dos correios (em ASP)

Mensagempor JoséQuintas » 05 Abr 2021 13:56

cep2.png


Ainda testando...
Mas acrescentando a opção do formato JSON.
Mais prático.

Pra curiosidade, o que usei no ASP pra gerar em JSON:

IF cFormato = "json" THEN
   cResposta = "{"
   cResposta = cResposta & Quoted( "cep" ) & ":" & Quoted( cpcep ) & ","
   cResposta = cResposta & Quoted( "logradouro" ) & ":" & Quoted( cpEndereco ) & ","
   cResposta = cResposta & Quoted( "bairro" ) & ":" & Quoted( cpBairro ) & ","
   cResposta = cResposta & Quoted( "cidade" ) & ":" & Quoted( cpCidade ) & ","
   cResposta = cResposta & Quoted( "uf" ) & ":" & Quoted( cpUF ) & ","
   cResposta = cResposta & Quoted( "ibge" ) & ":" & Quoted( cpIbge ) & ","
   cResposta = cResposta & Quoted( "infalt" ) & ":" & Quoted( cpinfAlt ) & ","
   cResposta = cResposta & Quoted( "status" ) & ":" & Quoted( cpStatus )
   cResposta = cResposta & "}"
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Consultar webservice dos correios (em ASP)

Mensagempor JoséQuintas » 05 Abr 2021 14:08

Pequena reduzida:

FUNCTION ToJSON( cName, cValue )

   ToJSON = Quoted( cName ) & ":" & Quoted( cValue )

   END FUNCTION
...
IF cFormato = "json" THEN
   cResposta = "{" & _
      ToJSON( "cep", cpcep ) & "," & _
      ToJSON( "logradouro", cpEndereco ) & "," & _
      ToJSON( "bairro", cpBairro ) & "," & _
      ToJSON( "cidade", cpCidade ) & "," & _
      ToJSON( "uf", cpUF ) & "," & _
      ToJSON( "ibge", cpIbge ) & "," & _
      ToJSON( "infalt", cpInfAlt ) & "," & _
      ToJSON( "status", cpStatus ) & "}"
ELSE
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Consultar webservice dos correios (em ASP)

Mensagempor JoséQuintas » 06 Abr 2021 16:28

A propósito....

Esses documentos, com CEPs criados, basta abrir no Windows e salvar como documento de texto.
Depois dá pra importar relativamente fácil, um registro por linha.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18008
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes




Retornar para Outras linguagens de programação

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 13 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro