Buscar Cep Em Vb6 Ou Vb.net

[Dirant]

Bom dia !

Minha gente estou a mais de 24 horas tentando usar ACBrFramework para me retornar o edereço pelo CEP e infelizmente

Não obtive exito.

O máximo que consegui foi refenciar a dll no Vb.net.

e         Dim Dados As Integer = CEP.ACBrCEPInterop.CEP_GetEnderecos(0, "32042150")

Que não me retorna -2

 

Nem sei o que significa.

 

Sera que alguem pode me ajudar com um exemplo ou a documentação da DLL?

 

Obrigado!

Bom dia!

 

 

[Rafael Batiati]

Amigo,

Veja os exemplos de uso dos componentes, você não precisa usar as classes Interop diretamente.

Isso vale pra todo o projeto, não só pro CEP, basta você criar um novo componente e chamar o método.

 

ACBrFramework.CEP.ACBrCEP cep = new CEP.ACBrCEP();

cep.BuscarPorCEP("00000-000");

 

Dá uma olhada no fórum sobre o uso do componente CEP, os nomes de métodos/propriedades e forma de uso é 100% compatível com o componente em Delphi.

Abs.

[Dirant]

Oi Rafael bom dia!

Eu fis da seguinte forma:

 

Dim Cep As New ACBrFramework.CEP.ACBrCEP

        Dim Endereço As Integer = Cep.BuscarPorCEP("32042-150")

 

Ta dando erro na segunda linha

 

Ta falando que nenhum website foi selecionado

com selecionar antes de abrir a busca pelo ce?

 

Obrigado

 

[Dirant]

Bom dia para todos!

Depois da dica do Rafael que foide grande valia consegui fazer minha primeira rotina.

Buscar o endereço pelo CEP em Vb.net ACBrFramework.

 

Mais uma vez obrigado Rafael!

 

Para que esta com dificuldades como eu segue o código.

 

   Dim Cep As New ACBrFramework.CEP.ACBrCEP

   Cep.WebService = ACBrFramework.CEP.CEPWebService.RepublicaVirtual

   Dim Dados As Object = Cep.BuscarPorCEP("00000-000")

 

        For Dados = 0 To Cep.Enderecos.Count - 1

 

            Dim S As String = Cep.Enderecos.Item(Dados).Logradouro

 

        Next