Timer
 

Utilizo delphi6 y tengo un procedimiento que se ejecuta a través de un Timer(cada 5 segundos).
Lo que ocurre es que a la 4 o 5 vez que se ejecuta el procedimiento esto ya no funciona.

Sin embargo al cambiar el ejecutable el procedimiento se ejecuta perfectamente simplemente abriendo el programa.

El procedimiento lo que hace es coger un fichero txt e imprimir un albaran.

¿Pensais que el Timer este fastidiando la ejecución del programa?

Un saludo y gracias por leer mi problema

Hola,

Creo que podrías buscar otros posibles problemas antes de achacarlo al "TTimer". Personalmente, que yo recuerde, nunca he tenido ningún problema con este componente y pienso que está probado y más que probado. Por eso digo que tal vez deberías buscar otra causa del problema que te ocupa.

lo unico que se me ocurre es que el fichero viene de un equipo que esta en red y que eso pueda influir. O que incluso el antivirus que tiene (Panda) le este influyendo.

¿Voy a desactivar el panta a ver que pasa?

No es por el antivirus. Te comento lo que hago.

Coge el fichero txt y lo renombro. Luego vuelvo a renombrarlo y el muy... lanza el procedimiento. Puede ser que esto este fallando

AssignFile(Archivo,NombreArchivo);
Reset(Archivo);
while (not Eof(Archivo)) do
begin
Readln(Archivo,Buffer);
ImportarRegistro(buffer,bufdes);
end;
CloseFile(Archivo);


¿Supongo que habrá otra forma de poder un fichero txt?