Loop entre os certificados

[marcosnt]

Bom dia pessoal!

 

 Estou com um problema em minha aplicação, preciso fazer um loop entre os certificados e colher o cnpj de cada um, fiz o seguinte código:

 

var I: integer;
begin
For I := 0 to ACBrNFe1.SSL.ListaCertificados.Count-1 do
    begin
      LOG.Lines.Add('Encontrado!');
      LOG.Lines.Add(ACBrMDFe1.SSL.ListaCertificados[I].CNPJ);
    end;
end;

Porém, Se faço um showmessage com o Count ele está retornando 0 certificados. Porque isso ocorre, tem alguma alternativa? Tenho 3 certificados aqui, 2 A1 instalados e 1 A3.

Muito obrigado!

[everson.turossi]

Tenta assim:

var I: integer;
begin
    ACBrNFe1.SSL.ListaCertificados.Clear;
    ACBrNFe1.SSL.LerCertificadosStore;
    For I := 0 to ACBrNFe1.SSL.ListaCertificados.Count-1 do
    begin
      LOG.Lines.Add('Encontrado!');
      LOG.Lines.Add(ACBrMDFe1.SSL.ListaCertificados[I].CNPJ);
    end;
end;

 

[marcosnt]

Muito Obrigado Everson! Resolvido!!

[Felipe E. Resende Mesquita]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.