chequeo de Firma de un Registro

[Sandy656]

Hola. Este es el código que uso.

Código PHP:

    Entrada:=DirAplicacion+'Copias\VerifactuEntrada.xml';
      Salida:=DirAplicacion+'Copias\VerifactuSalidaSigned.xml';
      MemoXML.Lines.SaveToFile(Entrada); //guardo el xml inicial
      MemoXML.Lines.SaveToFile(Salida);//guardo el xml inicial
      aliascertificado:=P_DataVarios.QSala.FieldByName('ultima_firma').AsString; // tomo la firma
      ACardinal:=-1;
      if not FileExists(Salida )  then showmessage('Error Firmando')
      else
      begin
        ACardinal:=ShellExecute(Handle,
        PWideChar('open'),
        PWideChar('autofirmacommandline'),
        PWideChar('sign -i "'+Entrada+'" -o "'+Salida+'" -format xades'+' -store windows -alias "'+aliascertificado+'"'),
        nil,
        SW_SHOWNORMAL);
      end; 


[[newtron]]

Empezado por Sandy656

Hola. Este es el código que uso.

Código PHP:

    Entrada:=DirAplicacion+'Copias\VerifactuEntrada.xml';
      Salida:=DirAplicacion+'Copias\VerifactuSalidaSigned.xml';
      MemoXML.Lines.SaveToFile(Entrada); //guardo el xml inicial
      MemoXML.Lines.SaveToFile(Salida);//guardo el xml inicial
      aliascertificado:=P_DataVarios.QSala.FieldByName('ultima_firma').AsString; // tomo la firma
      ACardinal:=-1;
      if not FileExists(Salida )  then showmessage('Error Firmando')
      else
      begin
        ACardinal:=ShellExecute(Handle,
        PWideChar('open'),
        PWideChar('autofirmacommandline'),
        PWideChar('sign -i "'+Entrada+'" -o "'+Salida+'" -format xades'+' -store windows -alias "'+aliascertificado+'"'),
        nil,
        SW_SHOWNORMAL);
       end; 


</div>

Yo la verdad es que con autofirma no he probado pero podrías probar con la sintaxis que tienes en este mismo hilo un poco más arriba.

[Sandy656]

He intentado con el código que me has indicado pero al llamar a la función autoFirmaPath me da el mensaje 'Error 2'. He buscado en el registro y esa cadena está vacía.

Código PHP:

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
    begin
      if ValueExists('') then
        Result := Readstring('')
      else
        ShowMessage('error');
    end
    else
      ShowMessage('Error 2');
    CloseKey;
  end;
end;