ACBrConsultaCNPJ - Instável

[Rino]

Boa tarde,

Estou usando o Demo ACBrConsultaCNPJ, e constantemente tenho problemas ao usá-la...

Hora funciona, hora não funciona.

Na maioria das vezes retorna IndexOfBounds dentro da função LerCampo, e nos outros casos Erro de Consulta(esse caso acredito que possa ser algo no servidor da receita).

 

Alguém poderia me ajudar?

Desde já agradeço.

[Juliomar Marchetti]

Não conseguiu ver dentro do componente onde pode disparar esse problema?

[EMBarbosa]

Coloque em modo debug e tente reproduzir. Verifique em qual linha acontece o erro.

[Rino]

 

 

O erro ocorre na linha 230.

[Rino]

Eu tinha colado uma imagem achando que ia como anexo...

Dentro da função TACBrConsultaCNPJ.Consulta, na linha 311, a função TACBrConsultaCNPJ.LerCampo é chamada.

O erro ocorre na linha 230(imagem)

 

 

[EMBarbosa]

Eu tentei aqui várias vezes, mas não consegui reproduzir.

Parece que a função LerCampo assume que o valor do campo está uma linha depois de onde aparece o campo. Nesse caso, se o NomeCampo aparecer na última linha (i = Texto.Count-1), então vai gerar o erro mencionado no comando Texto[i + 1].

Por favor, verifique:

1) quais os valores carregados na TStringlist Texto.

2) Qual valor da variável NomeCampo

Talvez você consiga perceber o que está acontecendo e nós conseguiremos algo mais para tentar resolver.

Claro, se tiver alguma sugestão para correção também fique a vontade.

Editado 17 Julho, 2015 por EMBarbosa

[Rino]

O campo Resposta e StrAux estão vazios - Linha 311.

 

Uma sugestão seria tentar testar para ele entrar no repeat, somente se StrAux for diferente de vazio. Não sei se resolveria o problema.

if StrAux <> '' then
   begin
      repeat
         strAux := LerCampo(Resposta, StrAux);
         FCNAE2.Add(ACBrUtil.RemoverEspacosDuplos(StrAux));
      until StrAux = '';
   end;

 

 

Editado 17 Julho, 2015 por Rino
Arrumando post

[EMBarbosa]

Está indo bem. Mas seria melhor outra solução.

Se resposta está vazio, ele não deveria nem ter entrado nessa parte do código. Não dá pra extrair nenhum campo.

Tente verificar, por favor, o motivo do campo Resposta estar vazio.

[Rino]

A variável StrAux, na linha 308 recebe vazio.

A Stringlist Resposta, ela possui valores (em anexo). Texto.txt

 

Na linha 228, o sistema compara a variável linha (que recebe os valores das posições da Stringlist Resposta) 

[EMBarbosa]

O texto que você anexou parece de uma página antes de ser feita a consulta, como se não houvesse sido enviado os valores do CNPJ nem do Captcha.

Acredito que assim, todos os campos desta mesma função (TACBrConsultaCNPJ.Consulta) também estão vazios. O ideal seria entender o motivo de não estar recebendo uma página com os dados.

Você pode descomentar a linha 281 um pouco a cima para que a resposta seja salva sempre que se fizer uma consulta.

Editado 17 Julho, 2015 por EMBarbosa

[Rino]

Bom dia,

Só pude fazer o teste agora... Realmente o txt só recebe trechos de códigos. cnpj.txt

[EMBarbosa]

A questão é entender o motivo disso estar acontecendo.

[Henrique]

JPEG Error #53,

 

Pra mim da esse erro.

[datilas]

Bom dia,

Só pude fazer o teste agora... Realmente o txt só recebe trechos de códigos. cnpj.txt

http://www.projetoacbr.com.br/forum/topic/20087-imagem-png-delphi-7/

[Paulo Henrique de Oliveira]

Boa tarde,

Efetuando alguns teste utilizando o componente, percebi que ocorre esse mesmo erro quando não defino as configurações de proxy para a requisição,

após definir-las, a consulta retorna os dados corretamente.

Obs: Se for definido que irá buscar o código IBGE (utilizando a propriedade 'PesquisarIBGE') é necessário que modifique a classe ACBrConsultaCNPJ para que seja possível acessar o FACBrIBGE e definir novamente as configurações de proxy nele, pois não é replicado as configurações do proxy da classe ACBrConsultaCNPJ, ocasionando o mesmo erro na requisição.

[Juliomar Marchetti]

Boa tarde,

Efetuando alguns teste utilizando o componente, percebi que ocorre esse mesmo erro quando não defino as configurações de proxy para a requisição,

após definir-las, a consulta retorna os dados corretamente.

Obs: Se for definido que irá buscar o código IBGE (utilizando a propriedade 'PesquisarIBGE') é necessário que modifique a classe ACBrConsultaCNPJ para que seja possível acessar o FACBrIBGE e definir novamente as configurações de proxy nele, pois não é replicado as configurações do proxy da classe ACBrConsultaCNPJ, ocasionando o mesmo erro na requisição.

Sugere correções?

anexe aqui e subimos ao svn

[Paulo Henrique de Oliveira]

Ajustes para replicação das configurações do Proxy e tratamento na função LerCampo.

ACBrConsultaCNPJ.pas

ACBrSocket.pas

Editado 13 Outubro, 2015 por Paulo Henrique de Oliveira
Arquivos duplicados..

[Juliomar Marchetti]

Ajustes para replicação das configurações do Proxy e tratamento na função LerCampo.

ACBrConsultaCNPJ.pas

ACBrSocket.pas

Ops lembre-se só estamos dando suporte ao trunk2!

seu código é do trunk! então não será subido

[Gustavo Araújo]

Boa tarde, pessoal.

Ainda estou com o problema acima citado: A consulta não está trazendo o HTML contendo os dados da pessoa jurídica.

Está trazendo uma página vazia, às vezes um javascript. Em anexo segue o que retorna.

Acredito que a página tenha saído do ar, desde ontem estou tentando e não consigo uma resposta válida.

Alguém pode ajudar?

Atenciosamente.

Gustavo Araújo

 

resphttpCNPJ.txt

Editado 27 Outubro, 2015 por Gustavo Araújo