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.
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;
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.
ACBRConsultaCNPJ
em ACBrTCP
Postado
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