Ошибка в работе с ReadDirectoryChangesW

← →
MAINUSER © (2004-11-30 18:38) [0]

Уважаемые Мастера киньте ссылочку на исходник работы ReadDirectoryChangesW или приведите пример использования. Я использовал этот код, но он выводил ошибку:

procedure WorkThread(LV : TListView);stdcall; var hDir : THandle; lpBuf : Pointer; Ptr : Pointer; cbReturn : Cardinal; FileName : PWideChar; Item : TListItem; sTime : _SYSTEMTIME; begin // Сначала нам надо получить описатель каталога, за которым мы будем следить // В данном примере это будет весь диск C: hDir := CreateFile ("C:\",GENERIC_READ,FILE_SHARE_READ or FILE_SHARE_WRITE or FILE_SHARE_DELETE,nil,OPEN_EXISTING,FILE_FLAG_BACKUP_SEMANTICS,0); // Если ошиблись... if hDir = INVALID_HANDLE_VALUE then begin ShowMessage(SysErrorMessage(GetLastError)); exit; end; // Выделяем память под буфер // const BUF_SIZE = 2048 - думаю вполне достаточно GetMem(lpBuf,BUF_SIZE); repeat // очищаем память перед записью в нее (на всякий случай) ZeroMemory(lpBuf,BUF_SIZE); // Теперь мы будем ждать пока чего-нибудь в интересующем нас каталоге // изменится или произойдет ошибка (и мы выйдем из цикла) // FILE_NOTIFY_CHANGE - это список флагов - о них ниже. if not ReadDirectoryChangesW(hDir,lpBuf,BUF_SIZE,true, FILE_NOTIFY_CHANGE_FILE_NAME(ну и так далее),@cbReturn,nil,nil) then Break; // Сюда мы попадаем, если функция выполнилась успешно // и lpBuf указывает на одну или несколько структур FILE_NOTIFY_INFORMATION Ptr:=lpBuf; repeat // Добавляем новый элемент в TListView (ViewStyle = vsReport ) Item := LV.Items.Add; // Выделяем память под имя файла GetMem(FileName,PFileNotifyInformation(Ptr).FileNameLength+2(ВОТ ЗДЕСЬ ПРОГА ВЫДАЁТ: НЕ ЗНАЮ НИКАКОЙ PFileNotifyInformation)); // Очищаем память - чтобы последним символом после копирования // был бы #0 нуль ZeroMemory(FileName,PFileNotifyInformation(Ptr).FileNameLength+2); // WinAPI функция для копирования Unicode строки lstrcpynW(FileName,PFileNotifyInformation(Ptr).FileName, PFileNotifyInformation(Ptr).FileNameLength div 2+1); // Имя файла у нас дается относительно папки // т.е.если изменится файл C:\File\test.dat, то FileName // будет равно File\test.dat Item.Caption:="C:\"+FileName; // Имя файла нам больше не нужно - очищаем память FreeMem(FileName); // Определяем тип произошедшего действия case PFileNotifyInformation(Ptr).Action of FILE_ACTION_ADDED : Item.SubItems.Add("Файл был создан"); FILE_ACTION_REMOVED : Item.SubItems.Add("Файл был удален"); FILE_ACTION_MODIFIED : Item.SubItems.Add("Файл был изменен"); FILE_ACTION_RENAMED_OLD_NAME : Item.SubItems.Add("Файл был переименован и в имени файла - предыдущее имя"); FILE_ACTION_RENAMED_NEW_NAME : Item.SubItems.Add("новое имя после переименования"); else Item.SubItems.Add("Произошло что-то странное"); end; // Время, когда произошло событие GetLocalTime(sTime); with sTime do Item.SubItems.Add(Format("%.2d:%.2d:%.2d",[wHour,wMinute,wSecond])); // 13:54:20 // Если эта запись не последняя (NextEntryOffset < > 0), то... if PFileNotifyInformation(Ptr).NextEntryOffset=0 then Break else begin // ... добавляем строку в примечания (если интересно посмотреть смещение) Item.SubItems.Add("Offset : "+ IntToStr(PFileNotifyInformation(Ptr).NextEntryOffset)); //Передвигаем указатель на NextEntryOffset байт вперед Inc(Cardinal(Ptr),PFileNotifyInformation(Ptr).NextEntryOffset); // Теперь Ptr указывает на следующую запись end; // Передвигать надо именно Ptr, а не lpBuf until false; until false; // Очищаем память FreeMem(lpBuf); end;
ЗАРАНЕЕ СПАСИБО!!!

← →
Yowl (2005-01-13 17:16) [1]

Добавь в описание типов вот это:

type FILE_NOTIFY_INFORMATION = packed record NextEntryOffset: DWORD; Action: DWORD; FileNameLength: DWORD; FileName: array[0..0] of WideChar; end; PFileNotifyInformation = ^FILE_NOTIFY_INFORMATION;

Ошибка в работе с ReadDirectoryChangesW Найти похожие ветки