[keys]

Empezado por Neftali [Germán.Estévez]

Yo estoy usandolo de esta forma y tampoco me da problemas.

Código Delphi [-]
WinStorage.SystemStores.BeginUpdate;
  try
    WinStorage.SystemStores.Clear;
    WinStorage.SystemStores.Add('MY');
    WinStorage.AccessType := aAccessType;
  finally
    WinStorage.SystemStores.EndUpdate;
  end;

SecureBlackbox 16.0.326

SecureBlackbox 16.0.326

Lo primero gracias a todos. Lo de ejecutar como administrador ya lo había probado, aunque estoy con el usuario administrador.

Para neftali. si accedes asi ¿como le dices luego al componente de firma cual es el certificado? yo lo hago asi.

Código Delphi [-]
if CertificateStorage.Opened then
     CertificateStorage.Close(True);

  //Este es el punto donde el programa se cierra
  CertificateStorage.Open('system://currentuser@localhost/?store=MY');

  encontrado := False;

 //Aqui busco el certificado con el que firmar
  for i := 0 to CertificateStorage.Certificates.Count - 1 do
  begin
    cert := CertificateStorage.Certificates[i];
    if bintostr(cert.SerialNumber) = el_firmante.r_Nombre_firma then
     begin
       sbxXAdESSigner1.SigningCertificate := cert;
       encontrado := True;
       Break;
     end;
  end;


  if not Encontrado then
   begin //mostrar error
      Mensaje(nil, 'No se encuentra la firma');
      exit;
   end;

  sbxXAdESSigner1.SigningCertificate := cert;

 //Continuo con el resto de la firma

Solo me queda probar el programa que indica juramisa, aunque el autofirmacommanline funciona bien y probar como solo lectura como dice HerensugeBeltz. Esto lo haré a lo largo de la mañana cuando pueda conectarme con el cliente.

Esta claro que es un problema de su ordenador ya que el programa esta corriendo en mas de 100 usuarios y esta funcionando correctamente.

Pasar un buen día TicketBAI.