Cita:
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)));
Cita:
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
Cita:
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.