Ver Mensaje Individual
  #38  
Antiguo 18-09-2014
shoulder shoulder is offline
Miembro
 
Registrado: abr 2008
Posts: 441
Reputación: 17
shoulder Va por buen camino
El error da en cualquier version de w7. Jsingpdf 1.4.5 - capicom 1.0.1.32
Código Delphi [-]
function ExecuteProcess(ProcessName: String): Cardinal;
var
   StartInfo: TStartupInfo;
   ProcInfo: TProcessInformation;

begin
   Result := 0;

   FillChar(StartInfo, SizeOf(StartInfo), 0);
   StartInfo.cb := SizeOf(StartInfo);
   StartInfo.dwFlags := STARTF_USESHOWWINDOW;
   StartInfo.wShowWindow := SW_SHOWMINIMIZED;
   if CreateProcess(nil, PChar(ProcessName), nil, nil, false, 0, nil, nil, StartInfo, ProcInfo) then
      Result := ProcInfo.hProcess;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

   lsCertificados.Clear;

   carpetaAlmacen := CoStore.Create;
   carpetaAlmacen.Open(CAPICOM_CURRENT_USER_STORE,
                       CAPICOM_MY_STORE, CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED or
                       CAPICOM_STORE_OPEN_INCLUDE_ARCHIVED or
                       CAPICOM_STORE_OPEN_EXISTING_ONLY);

   certificadosAlmacen := carpetaAlmacen.Certificates as ICertificates2;

   // (chequeo datos de la tarjeta)
   // uso el jsign
   arch := ..nombre del archivo a firmar...
   //firma digital
   ejecuta := ' -jar  "C:\Archivos de programa\JSignPdf\JSignPdf.jar"  '
              + '"' + arch + '"' + ' --out-directory c:\firmar\ -a -kst  WINDOWS-MY '
              + ' --l2-text "Datos del firmante '+ firma + '"'
              + ' -urx 500 -ury 590 -llx 250 -lly 500 --visible-signature '
              + ' -pg 1 --render-mode SIGNAME_AND_DESCRIPTION --font-size 8 '
              + ' --out-suffix "_terminado" -pr  DISALLOW_PRINTING --quiet';


   Process := ExecuteProcess('C:\Archivos de programa\JSignPdf\jre\bin\javaw.exe' + pchar(ejecuta));
   if Process <> 0 then
      WaitForSingleObject(Process, INFINITE);

   MsgUser := 'PDF Firmado';
   MessageDlg(MsgUser,mtInformation,[mbOK],0);

end;

Última edición por nlsgarcia fecha: 18-09-2014 a las 19:16:12.
Responder Con Cita