FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Gestionar archivos temporales que se abren con terceros programas
Hola a tod@s.
Desde mi programa, como desde tantos imagino, existe la opción de abrir informes con el visor PDF que tenga instalado el ordenador en cuestión. Para esto lo que hago es crear un archivo llamado "DOCUMENTO.PDF" en el directorio temporal de windows y lanzo el programa predeterminado que tenga para abrirlo. Esto lo hago con un nombre de documento genérico porque ahora mismo no se me ocurre cómo podría detectar que se ha cerrado el visor de pdf para poder borrarlo, de esta manera siempre se usa el mismo archivo y no se satura la carpeta temporal de windows. Ahora me encuentro con un cliente que quiere poder abrir varios documentos de forma simultanea y, claro, no se lo permite porque el anterior está en uso. ¿A alguien se le ocurre la forma de solucionar esto? porque en el momento en el que se abre el visor mi programa no se entera cuando se cierra para poder eliminar el documento temporal, si pudiera encontrar la forma crearía un documento distinto para cada exportación borrandolo posteriormente. Gracias y un saludo
__________________
Be water my friend. |
#2
|
||||
|
||||
En cierta ocasión me encontré con ese problema y buscando información encontré una forma de hacerlo que en principio me pareció un poco "bruta" y que iba a ser lento, pero una vez probado funcionó bien y rápido.
Se trata de crear un bucle y comprobar si ya existe, algo así como: Código:
for i=1 to 100 if not fileexists("documento"+inttostr(i)+".pdf") then begin tratarpdf(i) break/exists end; Código:
tratarpdf( i :int ) begin // aquí se crea, se abre y cuando termina se borra. end; |
#3
|
||||
|
||||
Cita:
Gracias Antonio pero no entiendo la idea. Yo genero un archivo llamado "ARCHIVO1.PDF", lanzo el visor PDF y ¿qué tendría que hacer? ¿un bucle intentando borrarlo hasta que lo permita? Saludos
__________________
Be water my friend. |
#4
|
|||
|
|||
No lo permite porque el anterior está en uso
Cita:
cuando el usuario termine de ver el pdf borra el archivo o usas un proceso en batch para borrar todos los df en la carpeta en la noche |
#5
|
||||
|
||||
En "TratarPDF" se ejecuta una llamada para abrirlo y se espera a que lo cierre.
Una vez devuelto el control al programa delphi, se borrar el pdf. Código:
TratarPDF( i ) RunAndWaitShell( ficheropdf ... ) // Creo que tienes también en tu código la función para ejecutar y esperar a que termine borrar ficheropdf end;
__________________
La otra guía de estilo | Búsquedas avanzadas | Etiquetas para código Únete al grupo Teaming clubdelphi | Colabora mediante Paypal Última edición por Casimiro Notevi fecha: 20-08-2018 a las 16:28:14. |
#6
|
||||
|
||||
Aunque si lo que se quiere es que abra múltiples pdfs "independientes" y los tenga abierto cuanto quiera y seguir trabajando con el programa y "pasando" totalmente de los pdf abiertos, lo mismo puede ser una solución el crear una lista donde se van añadiendo los nombres de los pdfs abiertos y cada cierto tiempo intentar borrarlos. Si están en uso dará error y en caso contrario se borrarán.
También sin listas ni nada, a lo bruto, ejecutar el bucle e intentar borrar los que estén "libres". Código:
procedure timercadaxminutos for i=1 to 100 try borrar( 'documento.'+i+'.pdf' catch end end |
#7
|
||||
|
||||
Cita:
Ya, eso sería una solución aunque la verdad no me resulta muy elegante. ¿No hay forma de saber cuando se cierra el visor pdf para acto seguido borrar el fichero que ha abierto? Saludos
__________________
Be water my friend. |
#8
|
||||
|
||||
Depende, si los abres mediante RunAndWaitShell(....,sw_showmodal), justo al cerrar el pdf se podrá borrar por su nombre.
Código:
Tratarpdf( i ) cFicheroPdf = 'documento'+inttostr(i)+'.pdf'; RunAndWaitShell( cFicheroPdf, ... ..., sw_showmodal) borrar( cFicheroPdf) De otra forma no sé, porque imagino que se tendrá que estar verificando si todavía existe. Algo como lo que comenté antes, mantener una lista de los pdfs que se han abierto y cada cierto tiempo hay que comprobar si está todavía la ventana abierta, en caso contrario se podrá borrar. A ver si encuentras algo sobre windows.findwindow
__________________
La otra guía de estilo | Búsquedas avanzadas | Etiquetas para código Únete al grupo Teaming clubdelphi | Colabora mediante Paypal Última edición por Casimiro Notevi fecha: 20-08-2018 a las 19:33:57. |
#9
|
||||
|
||||
No puedo usar RunAndWaitShell porque son procesos no modales, buscaré lo que me comentas de windows.findwindowa ver qué veo.
Gracias Casimiro y ASAPLTDA. Saludos
__________________
Be water my friend. |
#11
|
||||
|
||||
Parece que el problema que tiene es saber cuándo ha cerrado el usuario el fichero pdf, para proceder a eliminarlo.
No creo que haya forma de saberlo mediante el nombre de la ventana tampoco porque cada uno puede usar un visor de pdfs distinto y el nombre también será distinto. Creo que la solución pasa por saber qué pdfs se han abierto y luego intentar borrarlos, pero ¿cuándo lo ha cerrado el usuario? Me parece que no va a quedar otra que el bucle: Código:
for i=1 to 100 if fileexists('documento'+inttostr(i)+'.pdf') then deletefile('documento'+inttostr(i)+'.pdf') |
#12
|
||||
|
||||
Andalaleche.... pensaba que esto del "RunAndWaitShell" dejaba "pillado" al programa hasta que no cerrara el visor.
Gracias y un saludo
__________________
Be water my friend. |
#13
|
||||
|
||||
No, por eso decía que podías borrarlo al "regresar".
|
#14
|
||||
|
||||
He visto alguna implementacion de RunAndWaitShell y personalemnte no me gustan mucho. Para no bloquear la app usan la chapuza de ProcessMessages y el flujo de la app puede quedar descontrolado. Prefiero que ShellExecuteEx sea bloqueante hasta terminar la ejecución, pero en un Thread. Tras terminar, el hilo envía un mensaje a la ventana que indicará el fin de la ejecución.
Un ejemplo:
El sistema puede complicarse un poco más si queremos ejecutar varios Trheads al mismo tiempo para identificar cual de ellos se cierra y así controlar que visor se cerró. Saludos. Última edición por escafandra fecha: 21-08-2018 a las 12:40:47. |
#15
|
||||
|
||||
Como me parece que newtron comentaba que le pedían varios visores a la vez, ha modifocado un poquito el código para que RunAndWaitShell devuelva el ThreadId que ejecuta cada vez que será enviado de vuelta mediante el mensaje de finalizacion del vosor concreto. De esta forma tenemos identificado el proceso que se cierra cuyo ThreadId corresponde al que obtuvimos al iniciarlo.
Pongo Un ejemplo con las modificaciones:
Espero que con esto quede soluicionada la duda. Saludos. Última edición por escafandra fecha: 21-08-2018 a las 12:50:45. |
#16
|
||||
|
||||
Muy bueno. Me lo copio
Lo del processmessages es un poco chapucilla, sí. |
#17
|
||||
|
||||
Solo para el registro... si quisiera comprobar si un archivo se encuentra en uso, podrías probar con el código:
|
#18
|
||||
|
||||
Me lo copio también
Excelente utilidad. |
#19
|
||||
|
||||
Ese código se puede resumir puesot que no es necesario comprobar si el fichero existe. CreateFile ya lo hace:
Saludos. |
#20
|
||||
|
||||
Muchas gracias a todos por vuestras aportaciones, efectivamente esto es lo que necesitaba.
Saludos
__________________
Be water my friend. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Gestionar archivos adjuntos | Delphitest | Varios | 6 | 22-12-2014 21:20:43 |
Archivos Temporales al usar un Query | mrmanuel | Conexión con bases de datos | 3 | 05-09-2005 18:33:42 |
Archivos temporales generados por TQuerys | Balda | Conexión con bases de datos | 0 | 14-04-2005 14:18:29 |
Como Creo Archivos Temporales en un programa hecho en red | jorge restrepo | Firebird e Interbase | 3 | 23-12-2003 18:02:23 |
|