acbrcep ACBrCEP Consulta por Logradouro (retorno varios resultados)

[Miro Callai]

Boa tarde.

Estou quenrendo usar a função "BuscarPorLogradouro" para montar um grid com os CEP´s retornados na consulta quando houver mais que um CEP .

Esta ocorrendo que a propriedade ACBrCEP1.Enderecos. esta sempre com o mesmo registro, apesar de percorrer os varios endereços retornados o resultado sempre é o mesmo, o 1º registro.

 

Testando com o DEMO:

procedure TForm1.ACBrCEP1BuscaEfetuada(Sender : TObject) ;
var
  I : Integer ;
begin
  if ACBrCEP1.Enderecos.Count < 1 then
     Memo1.Lines.Add( 'Nenhum Endereço encontrado' )
  else
   begin
     Memo1.Lines.Add( IntToStr(ACBrCEP1.Enderecos.Count) + ' Endereço(s) encontrado(s)');
     Memo1.Lines.Add('');

     For I := 0 to ACBrCEP1.Enderecos.Count-1 do
     begin
       with ACBrCEP1.Enderecos do
       begin
          Memo1.Lines.Add('CEP: '+CEP );
          Memo1.Lines.Add('Logradouro: '+Tipo_Logradouro+ ' ' +Logradouro );
          Memo1.Lines.Add('Complemento: '+Complemento );
          Memo1.Lines.Add('Bairro: '+Bairro );
          Memo1.Lines.Add('Municipio: '+Municipio + ' - IBGE: '+IBGE_Municipio);
          edCidade.Text := Municipio;
          Memo1.Lines.Add('UF: '+UF + ' - IBGE: '+IBGE_UF);
          Memo1.Lines.Add( StringOfChar('-',20) );
       end ;
     end ;
   end ;

  Memo1.Lines.Add('');
  Memo1.Lines.Add('Resposta HTTP:');
  Memo1.Lines.AddStrings( ACBrCEP1.RespHTTP );
end;
 

 

Desde já agradeço a ajuda.

[Juliomar Marchetti]

bom dia

favor mudar ali o with

ACBrCEP1.Enderecos.Items[i]

 

[Miro Callai]

Boa tarde Juliomar, obrigado pela atenção.

Fiz como vc disse.

Agora da erro undeclared identifier para as propriedades do endereço 

[Juliomar Marchetti]

Boa tarde

e você não tentou olhar as propriedades e tudo mais do componente?

 

mude lá um pouco

por exemplo deixe assim ACBrCEP1.Enderecos

[Miro Callai]

Boa noite Juliomar.

Já fiz muitas tentativas, mas não consegui solução ainda.

Pesquisando mais aqui no fórum, encontrei este outro tópico onde o colega "galiosto" diz que fez uma alteração no método “TACBrWSViaCEP.ProcessaResposta”

Conforme o comentario do colega acho que o problema é do mesmo tipo

Comentario:

 

Eu ainda não tenho conhecimento suficiente, mas acho que talvez o problema esteja neste método.

Estou testando com WsViaCep 

 

Editado 10 Janeiro, 2017 por olmiro callai netto

[Juliomar Marchetti]

tu fez o que falei

ACBrCEP1.Enderecos[i]

 

[Miro Callai]

Sim fiz, desse jeito não da erro de sintaxe.

O laço de repetição é executado corretamente, mas o valores retornados sempre são os do primeiro endereço.

Estou testando com (WsViaCep) e endereço (Avenida | Edgar Pires de Castro | Porto Alegre | RS)

[SergioRezende]

Em 10/01/2017 at 20:13, olmiro callai netto disse:

Boa noite Juliomar.

Já fiz muitas tentativas, mas não consegui solução ainda.

Pesquisando mais aqui no fórum, encontrei este outro tópico onde o colega "galiosto" diz que fez uma alteração no método “TACBrWSViaCEP.ProcessaResposta”

Conforme o comentario do colega acho que o problema é do mesmo tipo

Comentario:

 

Eu ainda não tenho conhecimento suficiente, mas acho que talvez o problema esteja neste método.

Estou testando com WsViaCep 

 

Bom dia Olmiro,

Tem certeza que o seu componente esta atualizado?

Pois eu peguei o mesmo problema que o seu e o resolvi e o Regys adicionou ao repositório

[Miro Callai]

Boa tarde.

Realmente Galiosto.

Agradeço a ajuda, o Acbr estava desatualizado mesmo. Consegui utilizar componente como precisava.

O curioso é que desde que comecei a utilizar a biblioteca ACBR venho clicando em SVN Update na pasta Acbr.

Fiz a instalação do Acbr em outro computador e testei, ai sim deu certo, esta atualizado e consequentemente funcionando perfeitamente, mas em meu computador estou atualizando e não funciona, o que pode ser. O que pode estar faltando fazer para atualizar corretamente?

[Juliomar Marchetti]

Faça um clean up e um revert na sua pasta que ele vai desmarcar os erros.

depois no instalador marque para remover antes e instalar.v

[Miro Callai]

Boa tarde, obrigado Juliomar, bem certinho, fiz conforme orientações e deu tudo certo, problema resolvido.