Como listar os certificados A1 instalados na máquina utilizando SSL

[Gilvan Marinho]

Utilizava capicom para listar a lista dos certificados instalados na máquina, mas com a descontinuação, como faço para listar os certificados utilizando SSL?

[Ronaldo.Bispo]

Olá...

Costumava usar algo parecido com:
 

var
  nfe: TACBrNFe;

  numero_serie: string;
  vencimento: TDateTime;
begin
  nfe := TACBrNFe.Create(nil);
  try
    nfe.SSL.SSLCryptLib := cryWinCrypt;

    numero_serie := nfe.SSL.SelecionarCertificado;
    vencimento := nfe.SSL.CertDataVenc;
  finally
    FreeAndNil(nfe);
  end;

end;

 

espero ter ajudado

[Juliomar Marchetti]

1 hora atrás, Gilvan Marinho disse:

Utilizava capicom para listar a lista dos certificados instalados na máquina, mas com a descontinuação, como faço para listar os certificados utilizando SSL?

WinCrypt

olha no exemplo do ACBrNFe que tem lá até tela pra exibir

[Gilvan Marinho]

Obrigado, utilizei as propriedades seguintes:

 ACBrNFe.Configuracoes.Geral.SSLLib        := libWinCrypt;
 ACBrNFe.Configuracoes.Geral.SSLCryptLib   := cryWinCrypt;
 ACBrNFe.Configuracoes.Geral.SSLHttpLib    := httpWinHttp;
 ACBrNFe.Configuracoes.Geral.SSLXmlSignLib := xsLibxml2;

 

E utilizei o método:

Lê os certificados que estão instalado na máquina.

ACBrNFe.SSL.LerCertificadosStore;

Retorna a Lista de Certificados

ACBrNFe1.SSL.ListaCertificados;

[Juliomar Marchetti]

1 minuto atrás, Gilvan Marinho disse:

ACBrNFe.Configuracoes.Geral.SSLLib        := libWinCrypt;

só precisa setar essa propriedade.

e a SSLType que fica em Webservices para TLS 1.2

as demais o componente se vira a colocar a correta