Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Registros de Facturacion y Eventos (XML) (https://www.clubdelphi.com/foros/forumdisplay.php?f=67)
-   -   Como firmar con el certificado digital un XML (https://www.clubdelphi.com/foros/showthread.php?t=97451)

rafa1963 08-05-2025 09:38:29

Como firmar con el certificado digital un XML
 
Buenos dias compañeros/as. Estoy intentando firmar con mi certificado digital en Delphi en el registro <<signature>> de un XML y no soy capaz.
Alguien me puede echar una manita ???.

Gracias.

bmfranky 08-05-2025 09:49:39

Cita:

Empezado por rafa1963 (Mensaje 564352)
Buenos dias compañeros/as. Estoy intentando firmar con mi certificado digital en Delphi en el registro <<signature>> de un XML y no soy capaz.
Alguien me puede echar una manita ???.

Gracias.

Hola, deberías postear el código que llevas hasta el momento, para intentar la firma, para que los compañeros puedan echarte una mano, al respecto.

rafa1963 08-05-2025 11:53:29

Función firma y llamada
 
Esto es lo que tengo sacado del código del compañero seccion_31.

Código Delphi [-]
function autoFirmaPath:string;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_CLASSES_ROOT;
   // if OpenKey('\afirma\shell\open\command',false) then
  // if OpenKey('c:\Pruebas\AEAT\AutoFirmaCommandLine.exe\shell\open\command',false) then
    begin
      if ValueExists('') then
        Result := Readstring('')
      else
        ShowMessage('error');
    end
    else
      ShowMessage('Error 2');
    CloseKey;
  end;
end;

LLamada desde un botón

Código Delphi [-]
var
  error:string;
begin
    if not VeriFactuD7.autoFirmar(comboCertificados.Text,xmlEnvio,xmlEnvio_signed,error)  then
      showmessage('Error: '+error)
    else
      showmessage('Archivo Firmado En '+ xmlEnvio_signed );
end;

Neftali [Germán.Estévez] 08-05-2025 13:50:15

Por favor, utilizad TAGs cuando añadáis código.
Si haces una búsqueda en los foros (y subforos de SIF/Ley antifraude) verás que hay varios hilos sobre el tema.
En el mensaje de resumen de códigos (mensaje#2) también hay enlaces a ejemplos.

Por favor, revisad la guía de estilo

Gracias.

rafa1963 08-05-2025 13:53:41

Respuesta
 
Perdona Neftali, lo tendré presente para la próxima vez.

Gracias


La franja horaria es GMT +2. Ahora son las 15:58:52.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi