Ir para conteúdo
  • Cadastre-se

dev botao

ACBRConsultaCNPJ


Ver Solução Respondido por Sandro Felipe Adad,

Recommended Posts

Estou com o XE6 e por aqui funcionou muito bem. No uses ficou assim:
 

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, Registry,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, SHDocVw,
  Winapi.ActiveX, Vcl.ExtCtrls, Vcl.OleCtrls; 

Obrigado Galera!!! 👍

 

 

Editado por digitosistemas
  • Curtir 1
Link para o comentário
Compartilhar em outros sites

Olá

Verifiquei que o componente ACBRCONSULTACNPJ procura o arquivo acbrconsultacnpj.ini e ao não encontrar, le/cria internamente o endereço :https://solucoes.receita.fazenda.gov.br/Servicos/cnpjreva/captcha/gerarCaptcha.asp. Ao executar nesse endereço ele informa o erro 404 . Atualizei o ACBR e continua buscando nesse endereço. O componente não está funcionando. .."Erro na hora de fazer o download da imagem do captcha. Serviço depreciado pela RFB! não disponível para consulta." 

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

Pessoal, ainda não consegui fazer funcionar, talvez tenha baixado o codigo errado. Ja estou com meu acbr  atualizado, no projeto que baixei apaguei o VCL.Edge, depois começou dar erro no OnSolicitarCaptcha, tenho a impressão que meu ACBrConsultaCNPJ não esta atualizado pois nele  nao tem o evento OnSolicitarCaptcha, somente o OnAntesAbrirHTTP, se tem alguma atualização não oficial do ACBrConsultaCNPJ acho que não encontrei onde baixar.
Do jeito que esta meu codigo até conseguir rodar mas dá o seguinte erro depois que clico em 'Sou Humano' e depois me' Consultar'.
image.png.94b484001aa3ce723c9b362948a81f46.png

Link para o comentário
Compartilhar em outros sites

39 minutos atrás, jaques.rocha disse:

Pessoal, ainda não consegui fazer funcionar, talvez tenha baixado o codigo errado. Ja estou com meu acbr  atualizado, no projeto que baixei apaguei o VCL.Edge, depois começou dar erro no OnSolicitarCaptcha, tenho a impressão que meu ACBrConsultaCNPJ não esta atualizado pois nele  nao tem o evento OnSolicitarCaptcha, somente o OnAntesAbrirHTTP, se tem alguma atualização não oficial do ACBrConsultaCNPJ acho que não encontrei onde baixar.
Do jeito que esta meu codigo até conseguir rodar mas dá o seguinte erro depois que clico em 'Sou Humano' e depois me' Consultar'.
image.png.94b484001aa3ce723c9b362948a81f46.png

Sim é extra oficial, voce precisa baixar os fontes daqui deste post , em seguida reinstalar o ACBR com a substituição do componente e fontes deste post.

image.thumb.png.a22592663a081ee31ee517ac9b407d23.png

 

 

Editado por Sandro Felipe Adad
Link para o comentário
Compartilhar em outros sites

3 horas atrás, etbricio disse:

Olá

Verifiquei que o componente ACBRCONSULTACNPJ procura o arquivo acbrconsultacnpj.ini e ao não encontrar, le/cria internamente o endereço :https://solucoes.receita.fazenda.gov.br/Servicos/cnpjreva/captcha/gerarCaptcha.asp. Ao executar nesse endereço ele informa o erro 404 . Atualizei o ACBR e continua buscando nesse endereço. O componente não está funcionando. .."Erro na hora de fazer o download da imagem do captcha. Serviço depreciado pela RFB! não disponível para consulta." 

A solução é extra oficial, voce precisa baixar os fontes daqui deste post , em seguida reinstalar o ACBR com a substituição do componente e fontes deste post.

image.thumb.png.a22592663a081ee31ee517ac9b407d23.png

Link para o comentário
Compartilhar em outros sites

9 minutos atrás, jaques.rocha disse:

Bom dia pessoal, agora surgiu outro probleminha aqui, tenho varios cliente que trabalham por rdp, testei tanto no windows server 2012 e 2019 e tenho o mesmo erro, o internet explorer 11 está funcionando neles. Alguem sabe dizer se é falta de alguma dll ?

image.png.99e231076b0e9740a796f2e05b998dfc.png

Pode ser o webview2

tente isso https://developer.microsoft.com/pt-br/microsoft-edge/webview2/#download-section

Pode ser preciso instalar o edge.

Link para o comentário
Compartilhar em outros sites

32 minutos atrás, jaques.rocha disse:

Bom dia pessoal, agora surgiu outro probleminha aqui, tenho varios cliente que trabalham por rdp, testei tanto no windows server 2012 e 2019 e tenho o mesmo erro, o internet explorer 11 está funcionando neles. Alguem sabe dizer se é falta de alguma dll ?

image.png.99e231076b0e9740a796f2e05b998dfc.png

Bom dia! Por padrão, o Windows Server bloqueia praticamente todos os domínios no, internet explorer, tenta desabilitar essa proteção e faz um teste. É possível desabilitar pelo painel de gerenciamento do servidor.

Editado por Orlando Dantas
Link para o comentário
Compartilhar em outros sites

  • Membros Pro


Descobri o erro, no Windows server não tem a key FEATURE_BROWSER_EMULATION, portanto foi só criar ela usando o CreateKey
    Reg.OpenKey('SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', False);
    Reg.CreateKey('SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION');
    Reg.WriteInteger(ExtractFileName(Application.ExeName), 11001); //isto é necessário para poder rodar no internet explorer 11

Editado por jaques.rocha
  • Curtir 1
Link para o comentário
Compartilhar em outros sites

4 horas atrás, jaques.rocha disse:


Descobri o erro, no Windows server não tem a key FEATURE_BROWSER_EMULATION, portanto foi só criar ela usando o CreateKey
    Reg.OpenKey('SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', False);
    Reg.CreateKey('SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION');
    Reg.WriteInteger(ExtractFileName(Application.ExeName), 11001); //isto é necessário para poder rodar no internet explorer 11

Sim, podemos alterar no fonte para o windows criar a chave se necessário.

Linha 85 do ACBrConsultaCNPJNavegar.pas, alterar para True:

Reg.OpenKey('SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', True);

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

Boa Noite, além de testar a solução que foi desenvolvida, gostaria de uma ajuda se possivel:

Junto com a consulta do ACBr, eu tinha uma outra pra quebrar um galho com a API https://receitaws.com.br:
Urls := IdHTTP1.URL.URLDecode(IdHTTP1.Get('https://receitaws.com.br/v1/cnpj/' + ACNPJ));
Mas debugando da erro de SSL nessa linha. Alguem já passou por isso?

Editado por Ademir P. Voigt
Link para o comentário
Compartilhar em outros sites

14 horas atrás, Ademir P. Voigt disse:

Boa Noite, além de testar a solução que foi desenvolvida, gostaria de uma ajuda se possivel:

Junto com a consulta do ACBr, eu tinha uma outra pra quebrar um galho com a API https://receitaws.com.br:
Urls := IdHTTP1.URL.URLDecode(IdHTTP1.Get('https://receitaws.com.br/v1/cnpj/' + ACNPJ));
Mas debugando da erro de SSL nessa linha. Alguem já passou por isso?

Coloquei as dll do OpenSSL versão 1.1.1.10 na pasta do executável.

image.thumb.png.510eedc57852711e1cd822f14d63f8db.png

Link para o comentário
Compartilhar em outros sites

2 horas atrás, Dfox disse:

Boa tarde aqui esta o exemplo so baixar e compilar 😉

ACBrConsultaCNPJ.zip 15.97 kB · 16 downloads

Boa tarde!

Obrigado pela colaboração. Utilizamos o Delphi 7 e tivemos que tirar algum erros e conseguimos compilar porem ao utilizar realizamos a consulta e isso funciona corretamente, porém os dados não são enviado para a tela inicial. Você pode nos ajudar nessa caso?

Desde já agradeço.

Editado por jefferson01
Escrevi errado
Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.