Acbrconsultacnpj -Erro Qdo Site Da Receita Está Fora Do Ar

[Rafa2012]

Olá pessoal, uso delphi Xe com acbr atualizado em 10/11/2013 as 01:50:00, consultando um cnpj pelo site http://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/cnpjreva_solicitacao.asp se o site da receita está fora do ar, ele retorna essa mensagem:

Contribuinte, Número do CNPJ : 17089484000190   2. No momento não podemos atender a sua solicitação. Por favor tente mais tarde.   Consulta realizada em 10/11/2013 às 01:55:13

 

Ao fazer uma consulta com o site fora do ar usando o ACBrConsultaCNPJ com o comando:

ACBrConsultaCNPJ1.Consulta(Editcnpj.Text, FCaptchaRFB.EdtCaptcha.Text);

ele retorna a mensagem de erro:

List index out of bounds(19)

 

Tentei dar uma mexida no componente mas não consegui resolver, acho melhor deixar pra quem entende, teria como resolver isso?

Obrigado.

Rafa

 

[EMBarbosa]

Você conseguiu detectar em qual linha o erro ocorre?

[Rafa2012]

Oi, acabei esquecendo de verificar, seu que eu poderia ter feito uma procura pra ver onde estava parando, quando voltar a ocorrer, se é que vai ocorrer vou fazer aí posto o resultado, até pensei que alguém já tivesse passado por isso.

Obrigado.

Rafa

[SHDW]

Já passei por isso, ele para neste ponto:

 

FEmpresaTipo  := LerCampo(Resposta,FCNPJ);

 

Ele faz a consulta, mas não retorna dado nenhum, nem erro.

Acredito que o problema esteja aqui:

Erro := VerificarErros(RespHTTP.Text);

[marcioaugustoprog]

Estou com o erro acima. Alguém conseguiu solucionar?

[marcioaugustoprog]

Consegui baixando o arquivo que o Solivan postou. Segue o link pra quem também tiver problemas, basta substituir o que esta na pastas \Fontes\ACBrTCP\.

 

Editado 24 Setembro, 2014 por marcioaugustoprog

[Juliomar Marchetti]

Consegui baixando o arquivo que o Solivan postou. Segue o link pra quem também tiver problemas, basta substituir o que esta na pastas \Fontes\ACBrTCP\.

 

Acredito que seus fontes estão desatualizados pois já tem essa correção desde a data logo abaixo que o Daniel escreveu no SVN!

[marcioaugustoprog]

Estranho Juliomar, porque eu exclui a pasta e baixei tudo novamente, e quando rodei o exemplo ele dava problema, mas o importante é que resolveu, pois essa rotina ficou ótima e ajudou a resolver vários problemas aqui. Estão de parabéns!

[FernandoRubens]

marcioaugustop, bom dia. você poderia me mandar a solução? pois estou com o mesmo problema!