Dados Do Certificado

[SAOliveira]

É possível pegar os dados como mostra no IE pasta pessoal do certificado.

 

1 - Emitido para.

2 - Emitido por.

3 - Nome amigável.

 

Grato.

[ricardo_casc]

Desconheço, sei que retorna a data de vencimento e etc, conforme o código abaixo, vamos ver se alguém mais pode responder com certeza, mais acredito que você teria implementar
 

  TCertificadosConf = class(TComponent)
  private
    FSenhaCert: AnsiString;
    {$IFDEF ACBrNFeOpenSSL}
       FCertificado: AnsiString;
    {$ELSE}
       FNumeroSerie: AnsiString;
       FDataVenc: TDateTime;
       procedure SetNumeroSerie(const Value: AnsiString);
       function GetNumeroSerie: AnsiString;
    function GetDataVenc: TDateTime;
    {$ENDIF}
  public
    {$IFNDEF ACBrNFeOpenSSL}
       function SelecionarCertificado:AnsiString;
       function GetCertificado: ICertificate2;
    {$ENDIF}
  published
    {$IFDEF ACBrNFeOpenSSL}
       property Certificado: AnsiString read FCertificado write FCertificado;
    {$ELSE}
       property NumeroSerie: AnsiString read GetNumeroSerie write SetNumeroSerie;
       property DataVenc: TDateTime read GetDataVenc;
    {$ENDIF}
       property Senha: AnsiString read FSenhaCert write FSenhaCert;    
  end;