Por favor, uma duvida sobre certificado e Bye-Bye Capicom.

[Antonio Carlos L]

Amigos, com o ACBr setado desta forma :

SSLCryptLib := cryWinCrypt;
SSLHttpLib := httpWinHttp;
SSLXmlSignLib := xsMsXml;

E estando o ACBr.inc setado {$DEFINE DFE_SEM_CAPICOM}

Eu consigo acessar o certifiado A1 e A3 e não preciso distribuir a capicom.

Mas os certificado devem estar instalados no WINDOWS, correto ?

Sem a CAPICOM ( excluída so system ) quando se usa o metodo :

edtNumSerie.Text := ACBrNFe1.SSL.SelecionarCertificado;

Ocorre erro. 

Para pegar o número de série passa a ser necessário usar o metodo abaixo  :

Isso tudo é correto ou o erro foi mera coincidência ?

Obrigado.

 

// retirado parte do demo para exemplificar

    ACBrNFe1.SSL.LerCertificadosStore;

    For I := 0 to ACBrNFe1.SSL.ListaCertificados.Count-1 do
    begin
      with ACBrNFe1.SSL.ListaCertificados do
      begin
        ASerie := NumeroSerie;
        if (CNPJ <> '') then
        begin
          with frSelecionarCertificado.StringGrid1 do
          begin
            if Addrow then
              RowCount := RowCount + 1;
              
            Cells[ 0, RowCount-1] := NumeroSerie;
            Cells[ 1, RowCount-1] := RazaoSocial;
            Cells[ 2, RowCount-1] := CNPJ;
            Cells[ 3, RowCount-1] := FormatDateBr(DataVenc);
            Cells[ 4, RowCount-1] := Certificadora;
            AddRow := True;
          end;
        end;
      end;
    end;

   edtNumSerie.Text := frSelecionarCertificado.StringGrid1.Cells[ 0,
                            frSelecionarCertificado.StringGrid1.Row];