Qué mensajes lanza internamente MessageDlg?

[[cHackAll]]

Al titulo del hilo; utiliza la API CreateMessageDialog... pero por que no pruebas tambien con un Application.MessageBox

Y finalmente antes de imprimir por que no pruebas con hacer un Sleep?

Saludos

[cestradar]

Empezado por cHackAll

Al titulo del hilo; utiliza la API CreateMessageDialog...

Perdón por tardar en contestarte, pero queria probar tus sugerencias primero.
Pues por alguna razón que aún no entiendo, ¡ya funcionó!, agregué el CreateMessageDialog dentro de la función que revisa que el trabajo haya llegado a la cola y ya manda siempre esos pdf's problemáticos, no se que haya internamente el MessageDlg, parece que es solo la creación dinámica de una forma y un release implícito.

Código Delphi [-]
                  repeat
                      Application.ProcessMessages;
                      myDLG := CreateMessageDialog('Revise que el certificado se haya impreso correctamente: '+#10+#13+
                                 'Inspect: '+Inspec+#10+#13+
                                 'Remisión: '+NoRemision, mtWarning, [mbOk]);
                      Pausa(500);
                      BanImpresion := EncuentraTrabajo(Certificado.Name);
                      myDLG.Release;
                  until BanImpresion or (now >= xInicio + (5000/(1000*60*60*24)));

Empezado por cHackAll

pero por que no pruebas tambien con un Application.MessageBox

Lo que necesitaba era ya no mandar ningún mensaje como medio de aseguramiento del envío del archivo a la cola

Empezado por cHackAll

Y finalmente antes de imprimir por que no pruebas con hacer un Sleep?

Hago una especie de sleep en mi rutina Pausa, en realidad es:

Código Delphi [-]
procedure Pausa(MiliSegundos: SmallInt);
var
  vTime: TDateTime;
begin
  vTime := now;
  repeat until (now >= vTime + (Milisegundos/(1000*60*60*24)));
end;

¿acaso sleep hace algo diferente?

Muchas gracias, voy a hacer más pruebas, pero aparentemente ya funciona bien.

[fide]

Eso esta buenisimo amigos!