ACBR NFE Nota fiscal eletronica AJUDA POR FAVOR "Cannot Find

[seleuza]

Amigos ao verificar o certificado ou coisa parecida nas linhas:

Certs := Store.Certificates as ICertificates2;

for i:= 1 to Certs.Count do

begin

Cert := IInterface(Certs.Item) as ICertificate2;

if Cert.SerialNumber = FNumeroSerie then

begin

if NotaUtil.EstaVazio(NumCertCarregado) then

NumCertCarregado := Cert.SerialNumber;

if CertStoreMem = nil then

begin

CertStoreMem := CoStore.Create;

CertStoreMem.Open(CAPICOM_MEMORY_STORE, 'Memoria', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED);

CertStoreMem.Add(Cert);

end;

PrivateKey := Cert.PrivateKey;

ele retorna

"Cannot Find Object or Property"

como faço para proceder? MUITO OBRIGADO

[rodnei]

existe uma funcao chamada GetCertificado

ela retorna a classe ICertificates2

tem varios exemplos como pegar o certificado

olhe em ACBrNFeConfiguracoes.pas

que vc vai ver e entender melhor.

OBS:

embora não entendi para que vc quer pegar os dados do certificado !!!