Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Saber si un fichero de texto esta en uso (https://www.clubdelphi.com/foros/showthread.php?t=47415)

jhges 27-08-2007 19:45:20

Saber si un fichero de texto esta en uso
 
Buenas tardes,

Mi duda es la siguiente
- hay alguna manera de saber si otra aplicación tiene en uso un determinado fichero de texto ( es una pda que envia un txt al pc)
- ya que tengo que hacer una aplicación en delphi 6 que recoja la información de ese fichero de texto y traspasarlo a la base de datos, pero el problema que se me plantea es saber si el proceso de envio por parte de la pda ya acabó antes de hacer la recogida

- Hay alguna manera de hacer una apertura en exclusiva del fichero de texto ? y asi saber sí puedo hacer la apertura entonces porde realizar la captura sino es qué todavía la pda esta pasando información

Saludos y disculpen las molestias

cHackAll 27-08-2007 19:52:07

Me parece que lo puedes solucionar de dos formas, la primera es comprobar la fecha de útimo acceso o escritura del archivo, eso con la API GetFileTime, para abrirlo usas CreateFile.

La segunda es ver si puedes mover el archivo, si NO lo puedes mover significa que algun archivo esta accediendo al mismo.

Personalmente me quedo con la primera, y para mayor seguridad puedes cambiar la fecha del archivo con SetFileTime para sabes exactamente el momento en que el archivo es modificado.

ArdiIIa 27-08-2007 20:00:28

Con el permiso de cHackAll y citando tus palabras, puedes tratar de abrirlo en modo exclusivo.

Para ello mira los parámetros
OF_SHARE_DENY_NONE
OF_SHARE_DENY_READ
OF_SHARE_DENY_WRITE
OF_SHARE_EXCLUSIVE
de las funciones OpenFile y CreateFile

jhges 28-08-2007 11:56:00

Gracias a los dos, voy a investigar sobre el uso del CreateFile.

Ya os comentaré como ha ido.

Saludos y gracias


La franja horaria es GMT +2. Ahora son las 22:51:34.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi