none
Web Service CEP RRS feed

  • Pergunta

  •  

    Ola Galera.

    Alguém ai conhece um link de um WebService que consulta CEP (free) ou alguma apostila q ensina como fazer o mesmo ?

    Atenciosamente

    quarta-feira, 30 de janeiro de 2008 10:16

Respostas

  • Eu costumo usar essa classe, WebCep.vb

     

    Imports System

    Imports System.Collections.Generic

    Imports System.Text

    Imports System.Data

    Public Class WebCEP

    Private _uf As String

    Private _cidade As String

    Private _bairro As String

    Private _tipo_lagradouro As String

    Private _lagradouro As String

    Private _resultado As String

    Private _resultato_txt As String

    ''' <summary>

    ''' WebService para Busca de CEP

    ''' </summary>

    ''' <param name="CEP"></param>

    '''

    Public Sub New(ByVal CEP As String)

    MyBase.New()

    _uf = ""

    _cidade = ""

    _bairro = ""

    _tipo_lagradouro = ""

    _lagradouro = ""

    _resultado = "0"

    _resultato_txt = "CEP não encontrado"

    'Cria um DataSet baseado no retorno do XML

    Dim ds As DataSet = New DataSet

    ds.ReadXml(("http://cep.republicavirtual.com.br/web_cep.php?cep=" _

    + (CEP.Replace("-", "").Trim + "&formato=xml")))

    If (Not (ds) Is Nothing) Then

    If (ds.Tables(0).Rows.Count > 0) Then

    _resultado = ds.Tables(0).Rows(0)("resultado").ToString

    Select Case (_resultado)

    Case "1"

    _uf = ds.Tables(0).Rows(0)("uf").ToString.Trim

    _cidade = ds.Tables(0).Rows(0)("cidade").ToString.Trim

    _bairro = ds.Tables(0).Rows(0)("bairro").ToString.Trim

    _tipo_lagradouro = ds.Tables(0).Rows(0)("tipo_logradouro").ToString.Trim

    _lagradouro = ds.Tables(0).Rows(0)("logradouro").ToString.Trim

    _resultato_txt = "CEP completo"

    Case "2"

    _uf = ds.Tables(0).Rows(0)("uf").ToString.Trim

    _cidade = ds.Tables(0).Rows(0)("cidade").ToString.Trim

    _bairro = ""

    _tipo_lagradouro = ""

    _lagradouro = ""

    _resultato_txt = "CEP único"

    Case Else

    _uf = ""

    _cidade = ""

    _bairro = ""

    _tipo_lagradouro = ""

    _lagradouro = ""

    _resultato_txt = "CEP não encontrado"

    End Select

    End If

    End If

    'Exemplo do retorno da WEB

    '<?xml version="1.0" encoding="iso-8859-1"?>

    '<webservicecep>

    '<uf>RS</uf>

    '<cidade>Porto Alegre</cidade>

    '<bairro>Passo D'Areia</bairro>

    '<tipo_logradouro>Avenida</tipo_logradouro>

    '<logradouro>Assis Brasil</logradouro>

    '<resultado>1</resultado>

    '<resultado_txt>sucesso - cep completo</resultado_txt>

    '</webservicecep>

    End Sub

    Public ReadOnly Property UF() As String

    Get

    Return _uf

    End Get

    End Property

    Public ReadOnly Property Cidade() As String

    Get

    Return _cidade

    End Get

    End Property

    Public ReadOnly Property Bairro() As String

    Get

    Return _bairro

    End Get

    End Property

    Public ReadOnly Property TipoLagradouro() As String

    Get

    Return _tipo_lagradouro

    End Get

    End Property

    Public ReadOnly Property Lagradouro() As String

    Get

    Return _lagradouro

    End Get

    End Property

    Public ReadOnly Property Resultado() As String

    Get

    Return _resultado

    End Get

    End Property

    Public ReadOnly Property ResultadoTXT() As String

    Get

    Return _resultato_txt

    End Get

    End Property

    End Class

    sexta-feira, 22 de fevereiro de 2008 19:14

Todas as Respostas

  • Brother,

     

    Há alguns dias foi fazer a mesma pesquisa e não encontrei nenhum free, o WebService dos correios não funciona mais, desde de quando saiu o artigo na em uma revista ano passado os Correios cortaram o acesso.

     

    terça-feira, 19 de fevereiro de 2008 19:28
  • Eu costumo usar essa classe, WebCep.vb

     

    Imports System

    Imports System.Collections.Generic

    Imports System.Text

    Imports System.Data

    Public Class WebCEP

    Private _uf As String

    Private _cidade As String

    Private _bairro As String

    Private _tipo_lagradouro As String

    Private _lagradouro As String

    Private _resultado As String

    Private _resultato_txt As String

    ''' <summary>

    ''' WebService para Busca de CEP

    ''' </summary>

    ''' <param name="CEP"></param>

    '''

    Public Sub New(ByVal CEP As String)

    MyBase.New()

    _uf = ""

    _cidade = ""

    _bairro = ""

    _tipo_lagradouro = ""

    _lagradouro = ""

    _resultado = "0"

    _resultato_txt = "CEP não encontrado"

    'Cria um DataSet baseado no retorno do XML

    Dim ds As DataSet = New DataSet

    ds.ReadXml(("http://cep.republicavirtual.com.br/web_cep.php?cep=" _

    + (CEP.Replace("-", "").Trim + "&formato=xml")))

    If (Not (ds) Is Nothing) Then

    If (ds.Tables(0).Rows.Count > 0) Then

    _resultado = ds.Tables(0).Rows(0)("resultado").ToString

    Select Case (_resultado)

    Case "1"

    _uf = ds.Tables(0).Rows(0)("uf").ToString.Trim

    _cidade = ds.Tables(0).Rows(0)("cidade").ToString.Trim

    _bairro = ds.Tables(0).Rows(0)("bairro").ToString.Trim

    _tipo_lagradouro = ds.Tables(0).Rows(0)("tipo_logradouro").ToString.Trim

    _lagradouro = ds.Tables(0).Rows(0)("logradouro").ToString.Trim

    _resultato_txt = "CEP completo"

    Case "2"

    _uf = ds.Tables(0).Rows(0)("uf").ToString.Trim

    _cidade = ds.Tables(0).Rows(0)("cidade").ToString.Trim

    _bairro = ""

    _tipo_lagradouro = ""

    _lagradouro = ""

    _resultato_txt = "CEP único"

    Case Else

    _uf = ""

    _cidade = ""

    _bairro = ""

    _tipo_lagradouro = ""

    _lagradouro = ""

    _resultato_txt = "CEP não encontrado"

    End Select

    End If

    End If

    'Exemplo do retorno da WEB

    '<?xml version="1.0" encoding="iso-8859-1"?>

    '<webservicecep>

    '<uf>RS</uf>

    '<cidade>Porto Alegre</cidade>

    '<bairro>Passo D'Areia</bairro>

    '<tipo_logradouro>Avenida</tipo_logradouro>

    '<logradouro>Assis Brasil</logradouro>

    '<resultado>1</resultado>

    '<resultado_txt>sucesso - cep completo</resultado_txt>

    '</webservicecep>

    End Sub

    Public ReadOnly Property UF() As String

    Get

    Return _uf

    End Get

    End Property

    Public ReadOnly Property Cidade() As String

    Get

    Return _cidade

    End Get

    End Property

    Public ReadOnly Property Bairro() As String

    Get

    Return _bairro

    End Get

    End Property

    Public ReadOnly Property TipoLagradouro() As String

    Get

    Return _tipo_lagradouro

    End Get

    End Property

    Public ReadOnly Property Lagradouro() As String

    Get

    Return _lagradouro

    End Get

    End Property

    Public ReadOnly Property Resultado() As String

    Get

    Return _resultado

    End Get

    End Property

    Public ReadOnly Property ResultadoTXT() As String

    Get

    Return _resultato_txt

    End Get

    End Property

    End Class

    sexta-feira, 22 de fevereiro de 2008 19:14
  • Utilizo uma aplicação em VB.Net e resolvi fazer um teste com seu código, porém a resposta que obtive foi: "System.Net.WebPermission"

     

    O que tenho que fazer para que possa resgatar os logradouros?

     

    Obrigado

    terça-feira, 22 de julho de 2008 16:53
  • Acho que isso resolve o seu problema.

     

    http://www.buscarcep.com.br/

     

    Té +

    quinta-feira, 25 de setembro de 2008 01:57
  • Velho eu tbm tava loco atrás disso

     

    Achei um post mto interessante com o endereço de um webservice mto bom

     

    taí:

     

    http://davidscavalcante.spaces.live.com/blog/cns!35AEC0E4D1338FEA!307.entry

     

    É realmente uma ótima informação.

     

    Falow aê.

     

    sexta-feira, 30 de janeiro de 2009 16:58
  • Ola,

     

    tópico antigo mas sempre bom dar um Up.

     

    Segue um link que dependendo do volume de consultas é gratuito.

     

    http://www.wscepbrasil.com.br

     

    Att

    sábado, 9 de julho de 2011 12:27
  • Ja viu este ? http://grepcep.com
    terça-feira, 29 de novembro de 2011 09:46
  • www.diastek.com.br/cep

     


    Ronie Dias MCP, MCTS, MCITP, MCPD roniedias.com
    quinta-feira, 22 de dezembro de 2011 14:01
  • Serviço de consulta à base de CEP dos Correios não é grátis, se for, certamente é ilegal, infelizmente.

    Tem várias formas de $$licenciamento$$.


    Virtual Group - Soluções Inteligentes www.virtualgroup.com.br
    quarta-feira, 28 de dezembro de 2011 21:56