Sandro Felipe Adad Postado 12 Setembro, 2023 Compartilhar Postado 12 Setembro, 2023 3 minutos atrás, edsonvieira disse: Sandro Felipe, primeiramente obrigado por compartilhar sua abordagem... baixei os arquivos e tentei executar, porém não abriu o link no componente TEdgeBrowser, tentei com outros links e tbem não abriu, será que é algo na versão do Delphi (11) que estou utilizando ou tem alguma liberação/configuração que tenho que fazer para este componente facionar? Funciona na sua máquina acessar por algum browser o endereço abaixo? https://solucoes.receita.fazenda.gov.br/Servicos/cnpjreva/Cnpjreva_Solicitacao.asp O projeto foi construido no delphi 10.4.1 Link para o comentário Compartilhar em outros sites More sharing options...
LuanParanhos Postado 12 Setembro, 2023 Compartilhar Postado 12 Setembro, 2023 52 minutos atrás, Sandro Felipe Adad disse: Até que seja confirmada ou não a inviabilidade de uso da api pública pelo componente do ACBR, o que pode ser feito é usar usarmos a consulta pública como foi sugerido aqui no forum. Ou seja, um projeto que contenha um navegador (edge), possibilitando que o próprio usuário clique no botão (Sou Humano) e efetue a consulta manualmente. Após a consulta manual é possível extrair os dados do próprio html resultante. Fiz um protótipo funcional que efetua isso a quem interessar. ConsultaCNPJ.dpr 254 B · 12 downloads ConsultaCNPJ.dproj 48.64 kB · 12 downloads uConsultaCNPJ.dfm 2.3 kB · 12 downloads uConsultaCNPJ.pas 3.7 kB · 13 downloads Muito obrigado, Sandro! Irei testar. No momento é o que está ao nosso alcance. Gratidão por ter compartilhado. Link para o comentário Compartilhar em outros sites More sharing options...
edsonvieira Postado 12 Setembro, 2023 Compartilhar Postado 12 Setembro, 2023 18 minutes ago, Sandro Felipe Adad said: Funciona na sua máquina acessar por algum browser o endereço abaixo? https://solucoes.receita.fazenda.gov.br/Servicos/cnpjreva/Cnpjreva_Solicitacao.asp O projeto foi construido no delphi 10.4.1 realmente deve ser algo aqui na minha instalação, nao consigo navegar... mas estou com uma dúvida, as vezes vc sabe me responder: este serviço que estávamos utilizando do TACBrConsultaCNPJ é o mesmo que eles estão utilizando no "Nuvem Fiscal"? Link para o comentário Compartilhar em outros sites More sharing options...
Atalias Postado 12 Setembro, 2023 Compartilhar Postado 12 Setembro, 2023 @edsonvieira verifique no seu Delphi essas configurações https://docwiki.embarcadero.com/RADStudio/Sydney/en/Using_TEdgeBrowser_Component_and_Changes_to_the_TWebBrowser_Component Link para o comentário Compartilhar em outros sites More sharing options...
Antonio Gomes Postado 12 Setembro, 2023 Compartilhar Postado 12 Setembro, 2023 1 hora atrás, Sandro Felipe Adad disse: Até que seja confirmada ou não a inviabilidade de uso da api pública pelo componente do ACBR, o que pode ser feito é usar usarmos a consulta pública como foi sugerido aqui no forum. Ou seja, um projeto que contenha um navegador (edge), possibilitando que o próprio usuário clique no botão (Sou Humano) e efetue a consulta manualmente. Após a consulta manual é possível extrair os dados do próprio html resultante. Fiz um protótipo funcional que efetua isso a quem interessar. ConsultaCNPJ.dpr 254 B · 23 downloads ConsultaCNPJ.dproj 48.64 kB · 23 downloads uConsultaCNPJ.dfm 2.3 kB · 25 downloads uConsultaCNPJ.pas 3.7 kB · 26 downloads no dpr, quem nao abrir, so trocar: // Application.CreateForm(TForm1, Form1); Application.CreateForm(TfrmConsulta, frmConsulta); 2 Link para o comentário Compartilhar em outros sites More sharing options...
Sandro Felipe Adad Postado 12 Setembro, 2023 Compartilhar Postado 12 Setembro, 2023 27 minutos atrás, Antonio Gomes disse: no dpr, quem nao abrir, so trocar: // Application.CreateForm(TForm1, Form1); Application.CreateForm(TfrmConsulta, frmConsulta); ops, postei antes de salvar. ConsultaCNPJ.dproj uConsultaCNPJ.dfm uConsultaCNPJ.pas ConsultaCNPJ.dpr 3 1 Link para o comentário Compartilhar em outros sites More sharing options...
AdmNet Sistemas Postado 12 Setembro, 2023 Compartilhar Postado 12 Setembro, 2023 Bom dia, Estamos com o mesmo problema, alguém consegue nos ajudar ? Link para o comentário Compartilhar em outros sites More sharing options...
Antonio Gomes Postado 12 Setembro, 2023 Compartilhar Postado 12 Setembro, 2023 DLL WebView2Loader.dll na pasta do sistema, importante, comigo, so abriu, com a primeira versao ali 1.0.1549.0 Link para o comentário Compartilhar em outros sites More sharing options...
Antonio Gomes Postado 12 Setembro, 2023 Compartilhar Postado 12 Setembro, 2023 32 minutos atrás, Antonio Gomes disse: DLL WebView2Loader.dll na pasta do sistema, importante, comigo, so abriu, com a primeira versao ali 1.0.1549.0 baixar dll WebView2 - Microsoft Edge Developer 1 Link para o comentário Compartilhar em outros sites More sharing options...
Antonio Gomes Postado 12 Setembro, 2023 Compartilhar Postado 12 Setembro, 2023 23 minutos atrás, Antonio Gomes disse: baixar dll WebView2 - Microsoft Edge Developer @Victor H. Gonzales - Panda pensa comigo agora, se criarmos um evento, no acbr cnpj, para poder cada um repassar a telinha ali para retonar o mesmo html que o componente usa? que vc acha? Tipo, OnSolicitarCaptcha, dai, repassa para o acbrcnpj o mHTML.text Link para o comentário Compartilhar em outros sites More sharing options...
Consultores Victor H. Gonzales - Panda Postado 12 Setembro, 2023 Consultores Compartilhar Postado 12 Setembro, 2023 39 minutos atrás, Antonio Gomes disse: @Victor H. Gonzales - Panda pensa comigo agora, se criarmos um evento, no acbr cnpj, para poder cada um repassar a telinha ali para retonar o mesmo html que o componente usa? que vc acha? Tipo, OnSolicitarCaptcha, dai, repassa para o acbrcnpj o mHTML.text o componente só fazer o parser do html e devolver nas propriedades que ele já tem? Victor H Gonzales - Pandaaa Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Discord Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !! "Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci "Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo" Link para o comentário Compartilhar em outros sites More sharing options...
Antonio Gomes Postado 12 Setembro, 2023 Compartilhar Postado 12 Setembro, 2023 17 minutos atrás, Victor H. Gonzales - Panda disse: o componente só fazer o parser do html e devolver nas propriedades que ele já tem? Sim, estou fazendo uma treta aqui, ja vou mandar para vc olhar Agora, Antonio Gomes disse: Sim, estou fazendo uma treta aqui, ja vou mandar para vc olhar tipo isso.. ACBrConsultaCNPJ.pas Link para o comentário Compartilhar em outros sites More sharing options...
Antonio Gomes Postado 12 Setembro, 2023 Compartilhar Postado 12 Setembro, 2023 1 hora atrás, Antonio Gomes disse: Sim, estou fazendo uma treta aqui, ja vou mandar para vc olhar tipo isso.. ACBrConsultaCNPJ.pas 17.2 kB · 8 downloads dá uma olhada @Victor H. Gonzales - Panda e @Sandro Felipe Adad zip cnpj_consulta.zip 1 Link para o comentário Compartilhar em outros sites More sharing options...
Membros Pro lucimauro Postado 13 Setembro, 2023 Membros Pro Compartilhar Postado 13 Setembro, 2023 Ola, Eu também uso https://cnpja.com/ e estou muito satisfeito Link para o comentário Compartilhar em outros sites More sharing options...
Sandro Felipe Adad Postado 13 Setembro, 2023 Compartilhar Postado 13 Setembro, 2023 16 horas atrás, Antonio Gomes disse: dá uma olhada @Victor H. Gonzales - Panda e @Sandro Felipe Adad zip cnpj_consulta.zip 153.26 kB · 32 downloads Achei interessante sua idéia de usar o componente do ACBR na solução do workaround, só teriamos de ver com algum membro do ACBR se incorporariam esta nossa solução. Ah, na minha contribuição de exemplo eu não capturei todos os campos do html, apenas os que utilizo em minhas aplicações, teria de completar pra ficar de acordo com a classe do componente. Só alteraria a propriedade do zoom no seu exemplo para: EdgeBrowser1.ZoomFactor := 0.7; Link para o comentário Compartilhar em outros sites More sharing options...
Antonio Gomes Postado 13 Setembro, 2023 Compartilhar Postado 13 Setembro, 2023 3 minutos atrás, Sandro Felipe Adad disse: Achei interessante sua idéia de usar o componente do ACBR na solução do workaround, só teriamos de ver com algum membro do ACBR se incorporariam esta nossa solução. Ah, na minha contribuição de exemplo eu não capturei todos os campos do html, apenas os que utilizo em minhas aplicações, teria de completar pra ficar de acordo com a classe do componente. Só alteraria a propriedade do zoom no seu exemplo para: EdgeBrowser1.ZoomFactor := 0.7; Sim, o html de saida, é o mesmo que tem hoje, e nada mudaria, apenas se usar o evento, estou catalogando, como criar essa tela, pq o acbr nao pode depender de objetos, devido ser lazarus e delphi, logo, eu iria mandar uma tela demo, para ser adaptado, repassando a ele, o resultado depois daquela confirmacao da consulta do "sou humano". Aquela tela onde aparece o logo da receita federal, que o componente pega os dados, tipo voce fez no seu exemplo. 2 Link para o comentário Compartilhar em outros sites More sharing options...
Consultores Victor H. Gonzales - Panda Postado 13 Setembro, 2023 Consultores Compartilhar Postado 13 Setembro, 2023 20 horas atrás, Antonio Gomes disse: DLL WebView2Loader.dll na pasta do sistema, importante, comigo, so abriu, com a primeira versao ali 1.0.1549.0 eu usei a 1.0.1938.49 Victor H Gonzales - Pandaaa Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Discord Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !! "Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci "Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo" Link para o comentário Compartilhar em outros sites More sharing options...
Consultores Victor H. Gonzales - Panda Postado 13 Setembro, 2023 Consultores Compartilhar Postado 13 Setembro, 2023 2 horas atrás, Antonio Gomes disse: Sim, o html de saida, é o mesmo que tem hoje, e nada mudaria, apenas se usar o evento, estou catalogando, como criar essa tela, pq o acbr nao pode depender de objetos, devido ser lazarus e delphi, logo, eu iria mandar uma tela demo, para ser adaptado, repassando a ele, o resultado depois daquela confirmacao da consulta do "sou humano". Aquela tela onde aparece o logo da receita federal, que o componente pega os dados, tipo voce fez no seu exemplo. esse loop pode ser prejudicial, tem que alterar isso para alguma forma de notificar, tu pode congelar a aplicação toda. mas a ideia em si parece válida, mas cada empresa irá ter que implementar sua tela, o componente só irá fazer o parser. precisamos ver como será a resposta em lazarus. talvez no lugar de Evento, fazer Método, para conseguir reaproveitação do parser na Lib / Monitor. 2 Victor H Gonzales - Pandaaa Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Discord Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !! "Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci "Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo" Link para o comentário Compartilhar em outros sites More sharing options...
aslsoftwareltda Postado 13 Setembro, 2023 Compartilhar Postado 13 Setembro, 2023 Boa tarde, Não sou muito bom em implementação de componentes, mas peguei o arquivo ACBrConsultaCNPJ.pas mudei o nome dele para ACBrConsultaCNPJws.pas e fiz algumas alterações pra fazer a busca utilizando a api do site https://www.receitaws.com.br/ que no gratuito permite 3 consultas por minutos, para os clientes que tenho atendeu bem. Na minha tela de consulta chamei ele da seguinte forma if ACBrConsultaCNPJ.Consulta(EditCNPJ.Text, 'https://receitaws.com.br/v1/cnpj/') then Lembrando que fiz apenas o básico pra funcionar e meus clientes parar de reclamar rsrsrsr. Coloquei as dll do OpenSSL versão 1.1.1.10 na pasta do executável, senão não funciona. ACBrConsultaCNPJws.pas 4 Link para o comentário Compartilhar em outros sites More sharing options...
Antonio Gomes Postado 13 Setembro, 2023 Compartilhar Postado 13 Setembro, 2023 2 horas atrás, Victor H. Gonzales - Panda disse: esse loop pode ser prejudicial, tem que alterar isso para alguma forma de notificar, tu pode congelar a aplicação toda. mas a ideia em si parece válida, mas cada empresa irá ter que implementar sua tela, o componente só irá fazer o parser. precisamos ver como será a resposta em lazarus. talvez no lugar de Evento, fazer Método, para conseguir reaproveitação do parser na Lib / Monitor. o loop tem que ficar no evento, na tela que tem que esperar a confirmacao, para depois, mandar o html retornado, estou mexendo aqui, na ancia de criar separado. 1 Link para o comentário Compartilhar em outros sites More sharing options...
aslsoftwareltda Postado 13 Setembro, 2023 Compartilhar Postado 13 Setembro, 2023 24 minutos atrás, aslsoftwareltda disse: Boa tarde, Não sou muito bom em implementação de componentes, mas peguei o arquivo ACBrConsultaCNPJ.pas mudei o nome dele para ACBrConsultaCNPJws.pas e fiz algumas alterações pra fazer a busca utilizando a api do site https://www.receitaws.com.br/ que no gratuito permite 3 consultas por minutos, para os clientes que tenho atendeu bem. Na minha tela de consulta chamei ele da seguinte forma if ACBrConsultaCNPJ.Consulta(EditCNPJ.Text, 'https://receitaws.com.br/v1/cnpj/') then Lembrando que fiz apenas o básico pra funcionar e meus clientes parar de reclamar rsrsrsr. Coloquei as dll do OpenSSL versão 1.1.1.10 na pasta do executável, senão não funciona. ACBrConsultaCNPJws.pas 13.44 kB · 4 downloads Esqueci e mencionar, segue detalhado a forma que chamo a classe em tempo de execução. Var ACBrConsultaCNPJ :TACBrConsultaCNPJws; begin ACBrConsultaCNPJ := TACBrConsultaCNPJws.Create(Self); if ACBrConsultaCNPJ.Consulta(EditCNPJ.Text, 'https://receitaws.com.br/v1/cnpj/') then begin ... end; ACBrConsultaCNPJ.Free; end; 7 Link para o comentário Compartilhar em outros sites More sharing options...
infomatte Postado 14 Setembro, 2023 Compartilhar Postado 14 Setembro, 2023 20 horas atrás, aslsoftwareltda disse: Esqueci e mencionar, segue detalhado a forma que chamo a classe em tempo de execução. Var ACBrConsultaCNPJ :TACBrConsultaCNPJws; begin ACBrConsultaCNPJ := TACBrConsultaCNPJws.Create(Self); if ACBrConsultaCNPJ.Consulta(EditCNPJ.Text, 'https://receitaws.com.br/v1/cnpj/') then begin ... end; ACBrConsultaCNPJ.Free; end; Teste aqui, funciona 100% para o que meus clientes querem... Obrigado 1 VANDERLEI MATTE INFOMATTE Sistemas e Consultoria Distrito de Castelo de Sonhos - Altamira / PA Whattzap: (66) 99695-4979 email: vanderleim[email protected] Link para o comentário Compartilhar em outros sites More sharing options...
Antonio Gomes Postado 14 Setembro, 2023 Compartilhar Postado 14 Setembro, 2023 32 minutos atrás, infomatte disse: Teste aqui, funciona 100% para o que meus clientes querem... Obrigado eu fiz tambem, mas esse tem uma adendo, que é a ultima sincronização, tipo, endereço, se nao tiver igual, como proceder? cliente aproveita muito é endereço... Link para o comentário Compartilhar em outros sites More sharing options...
Rodrigo Franca Postado 14 Setembro, 2023 Compartilhar Postado 14 Setembro, 2023 Também implementei no meu sistema deu tudo certo, Obrigado. Link para o comentário Compartilhar em outros sites More sharing options...
Antonio Gomes Postado 14 Setembro, 2023 Compartilhar Postado 14 Setembro, 2023 @Victor H. Gonzales - Panda e @Sandro Felipe Adad Dá uma olhada? cnpj_consulta_14 09 2023.zip A dll costuma o delphi criar uma pasta chamada debug, cola junto do exe. Link para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts