Showmessage minimizado

[[nlsgarcia]]

shoulder,

Empezado por shoulder

...hay algo entre Delphi 7 y Windows 7 que con el uso de CAPICOM, JSignPdf o librerías de Word o Excel es como que lo desconfiguran...

Empezado por shoulder

...te aseguro que pasa esto cuando lee el token de firma digital después del java donde te sale para poner clave de firma digital ahí comienza el Delphi a hacer estas cosas extrañas...En forma aleatoria a veces pasa también me parece que es después de usar los Active del Word...no encuentro manera después de la ventana propia del Token o firma digital como recomponer esto...Me comenzó esto con Windows 7...

Pregunto:

1- ¿Con que versión de Windows, no se presento el problema descrito?.

2- ¿El problema descrito, se presenta en todas las máquinas que utilizan la aplicación de Delphi en cuestión?.

3- ¿Todas las máquinas en donde se presenta el problema, usan la aplicaciones CAPICOM, JSignPdf, Word y/o Excel?.

Espero sea útil

Nelson.

[shoulder]

Hola la implementacion la hice con windows 7, antes programe con XP y en mi PC no me pasaba ahora si me pasa con W7.
Todos tienen Windows 7
Todos usan capicom y Jsingn.

[[nlsgarcia]]

shoulder,

Empezado por shoulder

...antes programe con Windows XP y en mi PC no me pasaba ahora si me pasa con Windows 7...Todos tienen Windows 7, CAPICOM y JSignPdf...

Pregunto:

1- ¿El programa en Delphi en cuestión, es exactamente el mismo que en Windows XP o a sido modificado en Windows 7?, ¿Cual es la función del programa en Delphi?.

2- ¿La versión de CAPICOM y JSignPdf, es las misma que en Windows XP o es una nueva versión?.

3- ¿Cual es la versión de CAPICOM y JSignPdf que usan actualmente?, ¿Es la misma en todas las máquinas?.

4- ¿Todas las máquinas que usan el programa en Delphi, CAPICOM y JSignPdf fallan aleatoriamente?.

Espero sea útil

Nelson.

[shoulder]

1) El programa es el mismo, nada mas que la implementacion la hice sobre W7, antes en mi pc tenia xp y me migraron tambien a w7 32 bits, pero los usuarios trabajan en w7 64 bits.
2) el programa en una parte firma documentaciones varias.
3)las versiones son siempre las mismas
4) Fallan aleatoriamente todas

Ejemplo : secuencia Normal: Menu - Form1 -ventana Java de pedido de clave - showmessage o msg.
La primera vez lo hace bien, cuando firmo un segundo documento el showmessage me lo muestra asi.
secuencia : Form1 - Menu -Showmessage o directamente el showmessage o form1 minimizado.

[[nlsgarcia]]

shoulder,

Empezado por shoulder

...las versiones son siempre las mismas (CAPICOM y JSignPdf)...

Pregunto:

1- ¿Cual es la versión de CAPICOM y JSignPdf que usan actualmente?, ¿Estos programas se usan en conjunto?.

2- ¿Has probado usar una versión diferente de CAPICOM y JSignPdf para verificar si el error persiste?.

3- ¿El error ocurre por igual en Windows 7 x32 y x64?.

4- ¿El programa de firmas digitales JSignPdf, es llamado desde el programa en Delphi?, ¿Puedes publicar el código?.

Espero sea útil

Nelson.

[shoulder]

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;

[Casimiro Noteví]

Empezado por gdlrinfo

...

Por favor, crea un hilo nuevo sobre ese tema, ya que no es ningún aporte para solucionar el problema que inició este hilo.
Gracias.