Como verificar a validade do Certificado no Trunk2 do ACBr?
Oi pessoal, está é uma dúvida muito recorrente para o pessoal que está
migrando do trunk para o Trunk2 do ACBr.
No tunk, para verificar a validade do certificado com a versão capicom
era usado o seguinte código, por exemplo:
1
2
3
4
| procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(FormatDateTime('dd/mm/yyyy', ACBrNFe1.Configuracoes.Certificados.DataVenc));
end; |
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(FormatDateTime('dd/mm/yyyy', ACBrNFe1.Configuracoes.Certificados.DataVenc));
end;
Lembrando que só funcionava para a versão Capicom.
Agora no Trunk2, podemos usar o seguinte código:
1
2
3
4
| procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(FormatDateTime('dd/mm/yyyy', ACBrNFe1.SSL.CertDataVenc));
end; |
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(FormatDateTime('dd/mm/yyyy', ACBrNFe1.SSL.CertDataVenc));
end;
E funciona com qualquer SSLLib que você apontar para o componente!
Para mais detalhes, você pode dar uma conferida nos exemplos
que acompanham os fontes do componente.
Dúvidas ou sugestões deixe nos comentários do post.
-
InfusTec
-
7.919 views
- 0 comentários
- 23 de outubro de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo