Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #29  
Antiguo 18-09-2014
shoulder shoulder is offline
Miembro
 
Registrado: abr 2008
Posts: 441
Poder: 19
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
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
cronometro minimizado kurono Varios 3 22-01-2009 06:42:14
Arranque minimizado Dado de baja Varios 2 25-06-2008 11:54:59
Minimizado de Formularios Michel Varios 0 16-08-2003 00:00:16
Restaurar un report minimizado MANU1102 Impresión 4 04-08-2003 14:41:27


La franja horaria es GMT +2. Ahora son las 14:41:24.


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
Copyright 1996-2007 Club Delphi