Problema con ciclo DeleFile/CopyFile en Delphi
 

Prefije como autosave el pdcreator y un nombre fictisio que despues lo cambia el sistema, pero una cosa rara en Delphi si yo hago un ciclo de DeleteFile y copy file sin un showmessage no copia ni borra ningun archivo si escribo el showmessage lo hace, el tema es que por el scanner por la bandeja meto 20 hojas y hace 20 pdfs.
1. genera el archivo ficticio.
2. hace un copy con el verdadero nombre.
3. Borra el archivo ficticio.
El tema que el operador debe dar 20 enter con el cartel Bien Grabado. Es asi o estoy haciendo mal. A continuacion escribo la forma que no funciona y despues la que funciona.

Código Delphi [-]

If FileExists('C:\carpeta\'+'a.pdf') then
    BorrarArchivo('C:\carpeta\'+'a.pdf');

If copyfile(PChar('C:\carpeta\a.pdf'),PChar(filename), True) then
     statusbar1.SimpleText := 'Grabado'

Ahora la forma que me funciona

Código Delphi [-]
showmessage('Genera Archivo');
If FileExists('C:\carpeta\'+'a.pdf') then
    DeleteFile('C:\carpeta\'+'a.pdf');

showmessage(' Archivo Enviado');

If copyfile(PChar('C:\carpeta\a.pdf'),PChar(filename), True) then
     statusbar1.SimpleText := 'Grabado'

Creo que tenes un problema de sincronizacion de threads, el showmessage le da "tiempo" a que se sincronicen, y por eso "te anda"

Copy
 

Gracias Agustin quiere decir que mediante delphi no se puede armar un proceso de Copy, delete, rename todos seguidos sin un mensaje o tal vez pienso poner una opcion de espera entre sentencias....

VCL o FMX?

En realidad lo mas indicado es utilizar las API del sistema operativo para tales menesteres

Revisa esto

Tambien busca en google "Delphi SHFileOperation" para mas ejemplos, o en este mismo foro

shoulder,

:rolleyes:

Revisa esta información:
Espero sea útil :)

Nelson.