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
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.