"LerCertificadosSotre" não suprtado em : TDFeOpenSSL

[Leao]

Olá, depois que atualizei via Tortoise, na sexta, ao clicar no botão Selecionar Certificado(Número de Série), a mensagem de erro:

"LerCertificadosSotre" não suprtado em : TDFeOpenSSL

Antes estava normal, abria a tela depois selecionava o certificado desejado;

SSLLib = libWinCrypt

CrypLib = cryWinCrypt

HttpLib = httpWinHttp

XMLSignLib = xsLibXml2

Meu fonte estar igual ao do ACBrNFe_demoexe, E no mesmo funciona normalmente

Veja no meu fonte:

procedure TFormConf_nfe.sbtnGetCertClick(Sender: TObject);
var
  I: Integer;
  ASerie: String;
  AddRow: Boolean;
begin
  frSelecionarCertificado := TfrSelecionarCertificado.Create(Self);
  try

    ACBrNFe1.SSL.LerCertificadosStore;
    AddRow := False;

    with frSelecionarCertificado.StringGrid1 do
    begin
      ColWidths[0] := 220;
      ColWidths[1] := 250;
      ColWidths[2] := 120;
      ColWidths[3] := 80;
      ColWidths[4] := 150;
      Cells[ 0, 0 ] := 'Num.Série';
      Cells[ 1, 0 ] := 'Razão Social';
      Cells[ 2, 0 ] := 'CNPJ';
      Cells[ 3, 0 ] := 'Validade';
      Cells[ 4, 0 ] := 'Certificadora';
    end;

    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;

    frSelecionarCertificado.ShowModal;

    if frSelecionarCertificado.ModalResult = mrOK then
      TabGlobal.DConf_NFe.CERTIFICADO_SERIE.Conteudo :=
      frSelecionarCertificado.StringGrid1.Cells[ 0,frSelecionarCertificado.StringGrid1.Row];

  finally
     frSelecionarCertificado.Free;
  end;
end;
 

Já registrei novamente as dlls, necessárias.

Alguém já passou por isso?

Obrigado,

Leão

 

[Leao]

Olá, corrigido era só mandar ler primeiro as:

SSLLib = libWinCrypt

CrypLib = cryWinCrypt

HttpLib = httpWinHttp

XMLSignLib = xsLibXml2

Obrigado,

Leão

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.