Assinar usando Certificado A3

[Gamarra]

Senhores, atualmente utilizo o certificado do tipo A1 e abaixo segue o modo como configuro o uso do mesmo,

como seria um exemplo para usar o certificado do tipo A3?

Grato a todos.

  with NFeACBr.Configuracoes do
  begin
    Geral.SSLLib             := TSSLLib(libOpenSSL);
    Certificados.ArquivoPFX  := DiretorioAplicacao + 'Certificados\'+ qryNFeSefazEmit.FieldByName('CNPJCPF').AsString +'.pfx';
    Certificados.Senha       := qryNFeSefazEmit.FieldByName('CERT_SENHA').AsString;
    Certificados.NumeroSerie := qryNFeSefazEmit.FieldByName('CERT_NUMERO_SERIE').AsString;
 

[BigWings]

32 minutos atrás, Gamarra disse:

Senhores, atualmente utilizo o certificado do tipo A1 e abaixo segue o modo como configuro o uso do mesmo,

como seria um exemplo para usar o certificado do tipo A3?

Grato a todos.

  with NFeACBr.Configuracoes do
  begin
    Geral.SSLLib             := TSSLLib(libOpenSSL);
    Certificados.ArquivoPFX  := DiretorioAplicacao + 'Certificados\'+ qryNFeSefazEmit.FieldByName('CNPJCPF').AsString +'.pfx';
    Certificados.Senha       := qryNFeSefazEmit.FieldByName('CERT_SENHA').AsString;
    Certificados.NumeroSerie := qryNFeSefazEmit.FieldByName('CERT_NUMERO_SERIE').AsString;
 

No A3 você usa SSLLib como libWincrypt, libCapicom ou libCapicomDelphiSoap, e informa a propriedade NumeroSerie.

No caso da CAPICOM precisa registrar as DLLs. Veja o .bat na pasta ACBr\DLLs\CAPICOM.

[Gamarra]

1 hora atrás, BigWings disse:

No A3 você usa SSLLib como libWincrypt, libCapicom ou libCapicomDelphiSoap, e informa a propriedade NumeroSerie.

No caso da CAPICOM precisa registrar as DLLs. Veja o .bat na pasta ACBr\DLLs\CAPICOM.

BigWings, obrigado pela atenção.

No caso, será necessário instalar o certificado A3, ou há uma forma de fazer isto sem instalar o A3?  e fazer a alteração conforme abaixo:

with NFeACBr.Configuracoes do
  begin
    Geral.SSLLib             := TSSLLib(libWincrypt);
    Certificados.Senha       := qryNFeSefazEmit.FieldByName('CERT_SENHA').AsString;
    Certificados.NumeroSerie := qryNFeSefazEmit.FieldByName('CERT_NUMERO_SERIE').AsString;

[BigWings]

5 minutos atrás, Gamarra disse:

No caso, será necessário instalar o certificado A3, ou há uma forma de fazer isto sem instalar o A3?  e fazer a alteração conforme abaixo:

Precisa instalar.