как определить- закончена перекачка файла или нет?

← →
Юрий Зотов (2002-03-12 22:50) [25]

Перевел, а заодно убрал лишнее. Вот код для желающих:

Монитор:

program Project1;
{$APPTYPE CONSOLE}

uses
Windows;

var
dwChangeHandle: THandle;

begin
dwChangeHandle := FindFirstChangeNotification("D:\Temp", False, FILE_NOTIFY_CHANGE_SIZE);
if dwChangeHandle <> INVALID_HANDLE_VALUE then
try
while WaitForSingleObject(dwChangeHandle, INFINITE) = WAIT_OBJECT_0 do
begin
WriteLn("Notification!");
FindNextChangeNotification(dwChangeHandle)
end
finally
FindCloseChangeNotification(dwChangeHandle)
end
end.

Пишущая программа:

procedure TForm1.FormCreate(Sender: TObject);
begin
WinExec("..\SMonitor\Project1.exe", SW_SHOWNORMAL)
end;

procedure TForm1.Button1Click(Sender: TObject);
var
H: THandle;
begin
H := CreateFile("D:\Temp\TestFile.tst", GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL or FILE_FLAG_RANDOM_ACCESS, 0);
try
SetFilePointer(H, 1048576, nil, FILE_BEGIN);
SetEndOfFile(H)
finally
CloseHandle(H)
end
end;

Запустил под W2K. Действительно, все работает так, как Вы сказали. Но есть одно маленькое "но".

После выпонения SetEndOfFile файл на диске УЖЕ реально существует и его размер равен заказанному - а это значит, что система УЖЕ сбросила его на диск.

О чем я и говорил - уведомление приходит В МОМЕНТ РЕАЛЬНОЙ ЗАПИСИ ФАЙЛА. Не записи в файл, а записи САМОГО файла.

То же самое сказано и в хелпе. Расшифровка простая:
"For operating systems that use extensive caching, detection occurs only when the cache is sufficiently flushed".

Просто после выполнения SetEndOfFile система решила, что пора сбрасывать кэш - вот уведомление и возникло.

В прежних моих программах эта ситуация возникала в момент закрытия файла. Хотя, конечно, очевидно, что система может сбросить кэш не только при закрытии - что мы и видели.

как определить- закончена перекачка файла или нет? Найти похожие ветки