Certificado Digital Não Encontrado

[Wendel Fassarella]

Como eu retorno o erro de certificado não encontrado depois de executar o método VALIDA???

[Cleber Ferreira]

Bom dia

 

Já tentou usar um try...except utilizando uma variavel Exception?

[edsonjplima]

Bom dia senhores, vou utilizar esse post para tirar minha dúvida já que se trata de Certificado digital!

 

- Gostaria de saber se existe no ACBr um comando que me retorne uma resposta satisfatória confirmando ou não se o meu certificado A3 está espetado na maquina ?

 

Grato desde já !

 

 

Obs: já estou usando o try .. except .

 

 

Edson Lima

Editado 18 Novembro, 2014 por edsonjplima

[Juliomar Marchetti]

Bom dia senhores, vou utilizar esse post para tirar minha dúvida já que se trata de Certificado digital!

 

- Gostaria de saber se existe no ACBr um comando que me retorne uma resposta satisfatória confirmando ou não se o meu certificado A3 está espetado na maquina ?

 

Grato desde já !

 

 

Obs: já estou usando o try .. except .

 

 

Edson Lima

Bom dia

não

[jdazevedo]

Bom dia senhores, vou utilizar esse post para tirar minha dúvida já que se trata de Certificado digital!

 

- Gostaria de saber se existe no ACBr um comando que me retorne uma resposta satisfatória confirmando ou não se o meu certificado A3 está espetado na maquina ?

 

Grato desde já !

 

 

Obs: já estou usando o try .. except .

 

 

Edson Lima

Olá Edson, 

Eu fiz uma function que funciona quando já tenho o número de SERIE do certificado já registrado e só preciso saber se o certificado está ativo.

Com as informações obtidas é possível fazer outros testes. Mas, a E.Message, já traz tudo o que preciso. E quando não tem exception a resposta IsValid.Result também satisfaz.  

        

function CertificadoValido(Serie: string): Boolean;

var

  xCert : ICertificate2;

  DtVal: TdateTime;

  SerieEncontrada: string;

begin

  result := false;

  if trim(Serie) = '' then exit;

  try

    Form1.USNfe_Aux.Configuracoes.Certificados.NumeroSerie := Serie;

    try

      xCert := Form1.USNfe_Aux.Configuracoes.Certificados.GetCertificado;

      DtVal := xCert.ValidToDate;

      SerieEncontrada := xCert.SerialNumber;

      result := xCert.IsValid.Result;

    except

      on e: Exception do

        MessageDlg('Erro: '+e.Message, mtError, [mbOK], 0);

    end;

  finally

 

  end;

 ...