Delphi wait until a file copy process is complete

Question

I have a thread that uses ReadDirectoryChangesW to notify me when a file is added or deleted in a folder.

For each new image, I open the file and create a thumbnail of the image. It would seem however that I receive the notification before the file is completely copied to the destination folder, in which case I only get a partial thumbnail. (Files are copied from remote locations onto a central server and the network can get slow in peak times.)

I do check if the file is in use, but this does not seem to work with image files.

HFileRes := CreateFile(pchar(Filename), GENERIC_READ or GENERIC_WRITE, 0, nil,   OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0) ;
Result := (HFileRes = INVALID_HANDLE_VALUE);
if (not Result) then
  CloseHandle(HFileRes) ;

My question is this: Is there a way to detect when a file is completely copied or do I just wait until the file size or last modification time has not changed since the last time I checked?

score 3 · Accepted Answer · edited May 30 '18 at 10:50

3

To be sure if file transfer is finished check first if you can get exclusive access.

  FileHandle := FileOpen(FileName, fmOpenRead or fmShareExclusive);
  if FileHandle > 0 then
    {valid file handle}

edited May 30 '18 at 10:50

Cœur

37,241
25
195
267

answered Jun 30 '11 at 17:11

GJ.

10,810
2
45
62

"If the return value is 0 or greater, the function was successful and the value is the file handle of the opened file." – Premature Optimization Jul 01 '11 at 06:21
Thank you. Simple and effective. – Pieter van Wyk Jul 01 '11 at 09:29
@GJ, that implies false positive, should be >= 0 – Premature Optimization Jul 01 '11 at 09:59
FileHandle number 0 is reserved for system. Actualy the best way is to call GetLastError to get right info about file status. – GJ. Jul 01 '11 at 12:20

Delphi wait until a file copy process is complete

1 Answers1