[ACBRConsultaCNPJ]

Em 12/09/2023 at 09:11, 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 · 119 downloads ConsultaCNPJ.dproj 48.64 kB · 118 downloads uConsultaCNPJ.dfm 2.3 kB · 118 downloads uConsultaCNPJ.pas 3.7 kB · 118 downloads

Essa estratégia porém nem todos estão rodando delvi compatível com o novo navegador da Microsoft então estou postando aqui este codigo adptado para o TwebBroweser que tem no delphi antigo

anexe este formulario no projeto e chame assim:
procedure TFRMCRUD_PES.alCNPJExecute(Sender: TObject);
Var
  SL:TStringList;
begin
  inherited;
  TFWebBrowser.GetEstabelecimento(DM_PES.QCadPess0Documento.Value, SL);
  freeandnil(SL);
end;
 

UWebBrowser.dfm UWebBrowser.pas