Erro ao selecionar certificado

[Rodrigo Mattos]

A partir da versão 1803 do Windows, ao acessar a rotina CryptUIDlgSelectCertificateFromStore na unit ACBrDFeWinCrypt dá um access violation para abertura da seleção do certificado.

Alguem mais com este problema?

Alguma possível solução?

 

 

att,

Rodrigo

[neto233]

Estava com o mesmo Problema, resolvi assim, 

usando o código do Demo:

========================

VAR
  I: Integer;
  ASerie: STRING;
  AddRow: Boolean;
BEGIN

    frSelecionarCertificado := TfrSelecionarCertificado.Create(Self);
    TRY
      DmNFe.ACBrNFe.SSL.LerCertificadosStore;
      AddRow := False;

      WITH frSelecionarCertificado.StringGrid1 DO
      BEGIN
        ColWidths[0] := 220;
        ColWidths[1] := 250;
        ColWidths[2] := 120;
        ColWidths[3] := 80;
        ColWidths[4] := 130;
        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 DmNFe.ACBrNFe.SSL.ListaCertificados.Count - 1 DO
      BEGIN
        WITH DmNFe.ACBrNFe.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] := FormatDateTime('dd/mm/yyyy', DataVenc);
              Cells[4, RowCount - 1] := Certificadora;
              AddRow := True;
            END;
          END;
        END;
      END;

      frSelecionarCertificado.ShowModal;

      IF frSelecionarCertificado.ModalResult = mrOK THEN
        Result := frSelecionarCertificado.StringGrid1.Cells[0, frSelecionarCertificado.StringGrid1.Row];

    FINALLY
      frSelecionarCertificado.Free;
    END;

================