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'