Примечание

Надеюсь все объяснил доступно =). А теперь приступим к делу и начнем мы с серверной части. Для этого создадим проект и скинем на форму компонент ServerSocket. В настройках компонента ServerSocket укажем следующее:

А также для удобства скинем компонент Memo, в который будем выводить всякую инфу. Дадим имя компоненту log.

Далее, для компонента ServerSocket определяем метод onClientConnect, чтобы определять момент подключения клиентов. Вставим следующий код:

procedure TForm1.ssClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
  myDate : TDateTime;
  formattedDateTime : string;
begin
  mydate:=Now;
  DateTimeToString(formattedDateTime, 'c', myDate);
  log.Lines.Add(formattedDateTime+': Есть коннект c '+Socket.RemoteAddress);
  { далее вы можете вставить свой код }
end;

А теперь определим метод onClientRead, в котором будем обрабатывать получаемые сообщения от клиентов:

procedure TForm1.ssClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  s:string;
begin
  s:=Socket.ReceiveText;
  log.Lines.Add(s);
end;

Определим метод onClientDisconnect, чтобы фиксировать факт отключения клиента:

procedure TForm1.ssClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
  myDate : TDateTime;
  formattedDateTime : string;
begin
  mydate:=Now;
  DateTimeToString(formattedDateTime, 'c', myDate);
  log.Lines.Add(formattedDateTime+': Клиент '+socket.RemoteAddress+' отключился.');
end;

На этом с серверной частью покончено =).

Приступим к клиентской части. Для этого создадим новый проект, скинем на форму компонент ClientSocket и таймер. В настройках компонента укажем следующее:

Для простоты пояснения я в Address указал «петлю». Но для гибкости приложения рекомендую это поле обрабатывать программно, во время CreateForm при обработке конфигурационного файла, в котором можно указывать нужный IP-адрес сервера.

Здесь также для удобства скинем на форму компонент Memo, в который будем выводить техническую инфу. Имя дадим соответствующее log.

Для компонента ClientSocket определяем метод onError для того, чтобы обрабатывать исключения, возникшие в момент подключения клиента к серверу. Вставим следующий код:

procedure TForm1.csError(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
var
  myDate : TDateTime;
  formattedDateTime : string;
begin
 if ErrorEvent= eeConnect  then
  begin
    cs.Active:=false;
      {добавить запись в журнал};
    mydate:=Now;
    DateTimeToString(formattedDateTime, 'c', myDate);
    log.lines.Add(formattedDateTime+': Невозможно установить соединение с сервером - '+cs.Address);
  end;
  ErrorCode:=0;
  { далее вы можете вставить свой код }
end;

Теперь определим метод onConnect. Вставим следующий код:

procedure TForm1.csConnect(Sender: TObject; Socket: TCustomWinSocket);
var
  myDate : TDateTime;
  formattedDateTime : string;
begin
  mydate:=Now;
  DateTimeToString(formattedDateTime, 'c', myDate);
  log.lines.Add(formattedDateTime+': Соединение с сервером - '+socket.RemoteAddress+' установлено.');
end;

И чтобы фиксировать момент потери связи с сервером, определим метод onDisconnect:

procedure TForm1.csDisconnect(Sender: TObject; Socket: TCustomWinSocket);
var
  myDate : TDateTime;
  formattedDateTime : string;
begin
  mydate:=Now; //получим текущее время
  DateTimeToString(formattedDateTime, 'c', myDate); //преобразуем в строку
  log.Lines.Add(formattedDateTime+': Соединение с сервером '+socket.RemoteAddress+' потеряно.');
end;

Таймер настроим так:

И определяем метод onTimer. Вставим следующий код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not cs.Active then
  begin
    cs.Active:=true;
  end;
  cs.Socket.SendText('ping client');
end;

Данный код проверяет наличие соединения с сервером и в случае его отсутствия пытается его установить.
И каждые 5 секунд отправляет серверу сообщение «ping client».

Вот примерно так выглядит типовой шаблон приложения «клиент-сервер».

Примечание

Рабочий пример можно скачать отсюда.

Если есть кому что добавить или задать вопрос по теме — прошу отписываться в комментах ;)

Такая ситуация с ошибкой c000021a возникает при завершении Winlogon.exe или сsrss.exe, а также при неудачном запуске smss.exe. Причиной тому может стать некорректное завершение работы операционной системы, некорректная установка софта или обновления, а также «трипачек» (то бишь вредоносные программы).

Для решения проблемы Вам потребуется загрузочный диск или Live CD/DVD и т.п., чтобы получить доступ к файлам Winlogon.exe, csrss.exe, smss.exe не блокируемым системой. Кроме того, потребуется скопировать данные файлы с работоспособной системы, которые лежат в C:\WINDOWS\system32. После того как Вы, например, загрузитесь с Live CD/DVD, просто замените данные файлы и будет Вам счастье.

Для этого понадобится либо установочный диск, либо Live CD/DVD, либо возможность подключения жесткого диска к другому компу. Рассматривать данный способ я буду на примере загрузочного диска, однако все описанные действия аналогичны и для Live CD/DVD или подключения к другому компу.

Приступим. Загружаемся с загрузочного (установочного) диска ОС Windows. Когда вам представится выбор действий, то нужно выбрать режим восстановления операционной системы с помощью консоли восстановления, нажатие кнопки «R». Далее выбираем раздел операционной системы – требуется ввести нужную цифру. Далее с вас спросят пароль. Если пароль при установке Windows вы не устанавливали, просто нажмите «Enter». После этого система восстановления переведет вас в папку Windows. Далее вам потребуются знания консольных команд ;).

С помощью команды cd переходим в папку repair:

В папке repair хранится «сырой» реестр(файлы: sam, system, software, default, security. Самыми важными файлами являются sam – в котором хранятся учетки пользователей, system – системный ключ для защиты файла sam, а так же настройки системы, software – содержит информацию об установленном ПО. Это тот самый реестр, который создался при установке операционной системы и он еще не знает ни об устройствах вашей системы, ни об установленных программах.

Действующий или «активный» реестр вашей системы лежит в Windows\system32\config. С помощью команды copy копируем необходимые файлы из папки repair в папку config:

Будет выведено сообщение что такой файл уже существует, заменить? Жмите «Y». Далее перезагружаем компьютер. В результате такой замены, может потребоваться замена еще пары файлов – не пугайтесь, просто проведите такую же манипуляцию с файлами.

Как только система соизволит загрузиться, начнется процесс установки драйверов (заново). Если этого не произойдет, придется системе помочь.

Если же вдруг при загрузке ОС выводится сообщение, что у вас битая какая то .dll-ка, то ее можно найти на загрузочном диске в папке «I386». При это расширение у искомой .dll-ки будет выглядеть как «.DL_». Если ваш CD-ROM под буквой D, то для того чтобы сменить диск надо написать:

После этого просто с помощью команды «copy» скопируйте в папку C:\Windows\system32 (возможно с заменой).

Описанные выше способы могут выручить вас в тот момент, когда нет возможности перенести данные с жесткого диска, на котором слетела ось, на другой диск или нет желания «опять» переустанавливать Windows.

1. CreateFile
2. OpenFile
3. ReadFile
4. WriteFile
5. CloseFile
6. DeleteFile
7. CopyFile
8. FindFirstFile
9. FindNextFile
10. GetFileSize

Замечание

Но прежде чем  приступить к делу, замечу для случая, когда действия над файлами происходят удаленно.  За счет реализации в ОС Windows механизма прозрачного доступа к файлам,  данные функции работают и с удаленными файлами, отличием является задание сетевого пути к файлу, а именно для С/С++ необходимо указывать путь в следующем формате:   «\\\\имя_удаленного_компа\\путь_к_ файлу\\ имя_файла».
Пример:

DeleteFile("\\\\comp1\\user1\\test\\test1.txt");

Для Delphi необходимо указывать путь в следующем формате:   «\\имя_удаленного_компа\путь_к_ файлу\имя_файла».

Пример:

DeleteFile('\\comp1\user1\test\test1.txt');

Функция CreateFile

Функция создаёт указатель на новое устройство типа:

• Файл
• Канал
• mailslot (почтовый канал)
• комуникационный ресурс (например COM порт)
• дисковые устройства (только для Windows NT)
• консоли
• директории (открывает их)

Все эти функции описаны в одном файле. Для С/С++ в хедере (заголовочный файл) winbase.h, для Delphi в модуле windows.pas.  Чтобы использовать в своей программе эти функции, достаточно подключить их к своему проекту и вперед. Замечу для тех, кто кодит на С/С++ — кроме winbase.h надо подключить еще windows.h.

Описание:
С/С++

HANDLE CreateFile(
   LPCTSTR lpFileName,        // Указатель на имя файла (устройства)
   DWORD dwDesiredAccess,  //Параметры доступа
   DWORD dwShareMode,        //Разделяемый доступ
   LPSECURITY_ATTRIBUTES lpSecurityAttributes,    //безопасность
   DWORD dwCreationDistribution,// Описание
   DWORD dwFlagsAndAttributes,     // Атрибуты файла
   HANDLE hTemplateFile      // Файл шаблона
);

Delphi

function CreateFile(
   lpFileName: PChar;   // Указатель на имя файла (устройства)
   dwDesiredAccess,     //Параметры доступа
   dwShareMode: DWORD;  //Разделяемый доступ
   lpSecurityAttributes: PSecurityAttributes; //безопасность
   dwCreationDisposition,       // Описание
   dwFlagsAndAttributes: DWORD; // Атрибуты файла
   hTemplateFile: THandle       // Файл шаблона
): THandle; stdcall;

Теперь к главному — как создать файл? Делается это так:
C/C++

{
   Handle FileHandle;
   FileHandle=CreateFile("file1.txt",GENERIC_READ |
      GENERIC_WRITE, FILE_SHARE_WRITE | FILE_SHARE_READ, NULL, CREATE_NEW,
      FILE_ATTRIBUTE_NORMAL | FILE_FLAG_OVERLAPPED, 0);
   CloseHandle(FileHandle);
}

Delphi

var
  FileHandle:THandle;
begin
   FileHandle:=CreateFile(PChar('file1.txt'),GENERIC_READ or
      GENERIC_WRITE, FILE_SHARE_WRITE or FILE_SHARE_READ, nil, CREATE_NEW,
      FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED, 0);
   CloseHandle(FileHandle);
end;

Теперь расмотрим используемые параметры:

• параметры GENERIC_READ и GENERIC_WRITE определяют доступ на чтение и запись. Однако, можно указать что то одно в зависимости от ваших потребностей. Если в качестве этого параметра указать 0, то в этом случае функция отработает успешно, однако никакого доступа к файлу не получит. Этот вариант удобно использовать для теста существования файла.
• параметры FILE_SHARE_WRITE or FILE_SHARE_READ — общий доступ на чтение и запись к данному файлу. То есть файл будет доступен при одновременном использовании несколькими процессами.
• следующий параметр — атрибут безопасности неопределен. То есть все дескрипторы будут доступны дочерним процессам вашего приложения.
• параметр CREATE_NEW указывает на создание нового файла. Если файл с заданным именем существует, то будет возвращен код ошибки. Если использовать параметр CREATE_ALWAYS, то в этом случае, если файл существует, то он будет перезаписан.
• параметр FILE_ATTRIBUTE_NORMAL определяет файлу стандартные атрибуты. А если указывать флаг FILE_FLAG_OVERLAPPED, то файл будет доступен в асинхронном режиме.
• так как мы не используем шаблоны, то в качестве этого параметра указываем ноль.

Функция OpenFile

Данная функция, по сути своей, предназначена для открытия файлов или устройств. Функция OpenFile в случае успеха возвращает дескриптор (указатель) открываемого файла. В случае неудачи мы получим в качестве дескриптора значение INVALID_HANDLE_VALUE.
C/C++

 HFILE WINAPI OpenFile(
  LPCSTR lpFileName,
  LPOFSTRUCT lpReOpenBuff,
  UINT uStyle
);

Delphi

function OpenFile(
   lpFileName: LPCSTR,   //имя файла (устройства)
   lpReOpenBuff: TOFStruct,  //специальная структура открываемого файла
   uStyle: UINT //флаги доступа к файлу
): HFILE; stdcall;

Теперь рассмотрим используемые параметры:

• в качестве первого параметра указывается имя открываемого файла.
• вторым параметром является специальная структура открываемого файла, в которую заносится полезная инфа о файле.
• 3 параметр представляет собой совокупность флагов для работы с файлом.

Собственно, как открыть файл:
C/C++

{
   Handle FileHandle;
   FileHandle= OpenFile("Settings.ini", Buf, OF_Create |
                            OF_READWRITE | OF_SHARE_EXCLUSIVE);
   CloseHandle(FileHandle);
}

Delphi

var
  FileHandle:THandle;
begin
   FileHandle:=OpenFile(PChar('Settings.ini'), Buf, OF_Create
                     Or OF_READWRITE Or OF_SHARE_EXCLUSIVE);
   CloseHandle(FileHandle);
end;

В данном примере стоит уделить внимание флагам. Первые 2 из которых определяют доступ к файлу, а флаг OF_SHARE_EXCLUSIVE сообщает системе, что доступ к этому файлу запрещен до тех пор, пока указатель на этот файл не освободится.

Функция ReadFile

Данная функция предназначена для чтения файлов или с устройств ввода/вывода. В случае успешного выполнения операции  чтения, возвращается логическое значение true, иначе false. А функция GetLastError вернет ERROR_HANDLE_EOF.
C/C++

BOOL ReadFile(HANDLE hFile, //собственно указатель на файл
         LPVOID lpBuffer,  // указатель на буфер - куда записываем считанные данные
         DWORD nNumberOfBytesToRead, //объем считываемых данных, не может превышать размер буфера
         LPDWORD lpNumberOfBytesRead, //фактический размер считанных данных
         LPOVERLAPPED lpOverlapped   // флаг режима доступа к файлу: асинхронный(FILE_FLAG_OVERLAPPED)
                                    //или синхронный(NULL)
);

Delphi

function ReadFile(
         hFile: THandle;   //собственно указатель на файл
         var Buffer;       // указатель на буфер - куда записываем считанные данные
         nNumberOfBytesToRead: DWORD;  //объем считываемых данных, не может превышать размер буфера
         var lpNumberOfBytesRead: DWORD; //фактический размер считанных данных
         lpOverlapped: POverlapped// флаг режима доступа к файлу: асинхронный(FILE_FLAG_OVERLAPPED)
                                    //или синхронный(nil)
): BOOL; stdcall;

Теперь поглядим рабочий пример:
C/C++

{
Handle FileHandle;
char Buf[1000];
...
     ReadFile(FileHandle, Buf, sizeof(buf),NULL);
...
}

Delphi

var
  FileHandle:THandle;
  Buf:array[1..1000] of char;
begin
...
   ReadFile(FileHandle, Buf, sizeof(buf),NULL);
...
end;

Функция WriteFile

Данная функция предназначена для записи в файл или устройство ввода/вывода. С ней все аналогично что и с функцией ReadFile(). В случае успешного выполнения операции  чтения, возвращается логическое значение true, иначе false. А функция GetLastError вернет ERROR_HANDLE_EOF.
C/C++

BOOL WriteFile(HANDLE hFile, //собственно указатель на файл
         LPVOID lpBuffer,  // указатель на буфер - откуда записываем данные в  файл
         DWORD nNumberOfBytesToWrite, //объем записываемых данных
         LPDWORD lpNumberOfBytesWrite, //фактический размер записанных данных
         LPOVERLAPPED lpOverlapped   // флаг режима доступа к файлу: асинхронный(FILE_FLAG_OVERLAPPED)
                                    //или синхронный(NULL)
);

Delphi

function WriteFile(
         hFile: THandle;   //собственно указатель на файл
         var Buffer;       // указатель на буфер - откуда записываем данные в  файл
         nNumberOfBytesToWrite: DWORD;  //объем записываемых данных
         var lpNumberOfBytesWrite: DWORD; //фактический размер записанных данных
         lpOverlapped: POverlapped// флаг режима доступа к файлу: асинхронный(FILE_FLAG_OVERLAPPED)
                                    //или синхронный(nil)
): BOOL; stdcall;

Теперь поглядим рабочий пример:
C/C++

{
Handle FileHandle;
char Buf[1000];
...
     ReadFile(FileHandle, Buf, sizeof(buf),NULL);
...
}

Delphi

var
  FileHandle:THandle;
  Buf:array[1..1000] of char;
begin
...
   ReadFile(FileHandle, Buf, sizeof(buf),NULL);
...
end;

Функция CloseFile

Эта функция достаточно проста. Выполняет действия по освобождению указателя на файл. Ее необходимость очевидна — чтобы не засорять память ненужными указателями и позволять работу с файлами другим процессам. В качестве ее единственного параметра передается указатель на ранее открытый файл.

Теперь поглядим рабочий пример:
C/C++

{
   Handle FileHandle;
   FileHandle= OpenFile("Settings.ini", Buf, OF_Create |
                            OF_READWRITE | OF_SHARE_EXCLUSIVE);
...
   CloseHandle(FileHandle);
}

Delphi

var
  FileHandle:THandle;
begin
   FileHandle:=OpenFile(PChar('Settings.ini'), Buf, OF_Create
                     Or OF_READWRITE Or OF_SHARE_EXCLUSIVE);
...
   CloseHandle(FileHandle);
end;

Функция DeleteFile

Эта функция так же не отличается особой сложностью. Данная функция удаляет файл, который указан в параметре.  Функция возвращает значение true если выполняется успешно. Иначе возвращает false, а код ошибки можно получить с помощью GetLastError.
C/C++

BOOL WINAPI DeleteFile(
      LPCTSTR lpFileName // имя файла, который надо удалить
);

Delphi

function DeleteFile(
      lpFileName: PChar; // имя файла, который надо удалить
 ): BOOL; stdcall;

Теперь поглядим рабочий пример:
C/C++

{
...
     DeleteFile("C:\Temp\test.txt");// если указать только
// имя файла, то будет осуществлена попытка удалить файл из папки, откуда была запущена программа

...
}

Delphi

begin
...
     DeleteFile('C:\Temp\test.txt');// если указать только
// имя файла, то будет осуществлена попытка удалить файл из папки, откуда была запущена программа
...
end;

Функция CopyFile

Основное назначение этой функции — копирование файла. В случае успеха возвращает true, иначе — false. Код ошибки можно получить с помощью GetLastError.
C/C++

BOOL CopyFile(
     LPCTSTR lpExistingFileName,// Указатель на файл, который надо копировать
     LPCTSTR lpNewFileName, // Указатель на имя файла, куда надо копировать
     BOOL bFailIfExists //если указать true, то в случае существования такого файла,
      // произойдет ошибка, если false - то существующий файл будет перезаписан.
);

Delphi

function CopyFile(
     lpExistingFileName, // Указатель на файл, который надо копировать
     lpNewFileName: PChar; // Указатель на имя файла, куда надо копировать
     bFailIfExists: BOOL //если указать true, то в случае существования такого файла,
      // он будет перезаписан, если false - то произойдет ошибка.
): BOOL; stdcall;

Теперь поглядим рабочий пример:
C/C++

{
...
     CopyFile("C:\Temp\test1.txt","C:\Temp\test2.txt", true); // если указать только
// имя файла, то все действия будут выполнены в папке из которой запущена прога
...
}

Delphi

begin
...
     CopyFile('C:\Temp\test1.txt','C:\Temp\test2.txt', false);// если указать только
// имя файла, то все действия будут выполнены в папке из которой запущена прога...
end;

Функция FindFirstFile

Данная функция запускает поиск в указанной директории. Функция возвращает указатель на найденный файл, если нет, то возврат будет типа ERROR_NO_MORE_FILES.
C/C++

HANDLE FindFirstFile(
    LPCTSTR lpFileName,	// Строка, содержащая путь для поиска файлов.
    LPWIN32_FIND_DATA lpFindFileData // Информация о найденном файле
);

Delphi

function FindFirstFile(
   lpFileName: PChar; // Строка, содержащая путь для поиска файлов.
   var lpFindFileData: TWIN32FindData // Информация о найденном файле
): THandle; stdcall;

Теперь рассмотрим параметры подробней:

• lpFileName — строка, содержащая путь для поиска файла. Эта строка может указывать наконкретный файл типа ‘c:\filename.txt’ или может хранить шаблон ‘c:\*.*’. Если указывать шаблон, то это даёт возможность перечислить все файлы удовлетворяющие шаблону.

• lpFindFileData — структура WIN32_FIND_DATA, в которую будет записана инфа о найденом файле.

Расмотрим структуру WIN32_FIND_DATA немного подробнее:

typedef struct _WIN32_FIND_DATA {
          DWORD dwFileAttributes;  // Атрибуты файла
          FILETIME ftCreationTime; // Время создания
          FILETIME ftLastAccessTime;  //Время последнего доступа
          FILETIME ftLastWriteTime;   //Время последней записи в файл
          DWORD    nFileSizeHigh;     //Верхний байт размера файла
          DWORD    nFileSizeLow;      //Нижний байт размера файла
          DWORD    dwReserved0;       //Зарезервировано
          DWORD    dwReserved1;       //Зарезервировано
          TCHAR    cFileName[ MAX_PATH ];    //Имя файла
          TCHAR    cAlternateFileName[ 14 ]; //Имя файла для отображения в DOS (8:3)
} WIN32_FIND_DATA;

Атрибутами файла может быть комбинация из флагов:

• FILE_ATTRIBUTE_ARCHIVE — архивный

• FILE_ATTRIBUTE_COMPRESSED — сжатый

• FILE_ATTRIBUTE_HIDDEN — скрытый

• FILE_ATTRIBUTE_NORMAL — нормальный

• FILE_ATTRIBUTE_OFFLINE — данные файла недоступны

• FILE_ATTRIBUTE_READONLY — только для чтения

• FILE_ATTRIBUTE_SYSTEM — системный

• FILE_ATTRIBUTE_TEMPORARY — временный

Размер файла разложен на два байта. Чтоб получить полный размер файла нужно выполнить действие (FInfo.nFileSizeHigh * MAXDWORD) + FInfo.nFileSizeLow. Это не самый эффективный (эффективнее сдвигать), но самый понятный способ.

Теперь поглядим рабочий пример:
C/C++

{
   WIN32_FIND_DATA sss;
   HANDLE f;
   f = FindFirstFile("C:\*.*", &sss);
...
   FindClose(f);
}

Delphi

var
  sss: TWIN32FindData;
  f:THandle;
begin
...
  f:=FindFirstFile(PChar('C:\*.*'), sss);
...
  Windows.FindClose(f);
end;

Функция FindNextFile

Данная функция продолжает поиск начатый функцией FindFirstFile(). Если очередной файл найден, то функция возвращает значение true, иначе  возврат будет типа ERROR_NO_MORE_FILES.
C/C++

BOOL FindNextFile(
    HANDLE hFindFile,	// Указатель на файл из предыдущего поиска
    LPWIN32_FIND_DATA lpFindFileData // Информация об очередном найденном файле
);

Delphi

function FindNextFile(
    hFindFile: THandle; // Указатель на файл из предыдущего поиска
    var lpFindFileData: TWIN32FindData // Информация об очередном найденном файле
): BOOL; stdcall;

Со вторым параметром всё ясно, из описания функции FindFirstFile. А вот первый — это указатель на файл из предыдущего поиска. Он нужен, чтобы функция FindNextFile знала на каком файле был остановлен поиск и какой надо найти следующим.

Теперь поглядим рабочий пример:
C/C++

{
   WIN32_FIND_DATA sss;
   HANDLE f;
   f = FindFirstFile("C:\*.*", &sss);
   if(f != INVALID_HANDLE_VALUE)
      do{
         ...
      }while(FindNextFile(f,&sss));
   FindClose(f);
}

А теперь пример рекурсивного поиска файлов:
Delphi

function find(put: string):integer;
var
  sss: TWIN32FindData;
  f:THandle;
  result:Boolean;
begin
...
  f:=FindFirstFile(PChar('C:\*.*'), sss);
  if f<>INVALID_HANDLE_VALUE then
  begin
    result:=true;
    while(result)do
    begin
      if not((sss.cFileName = '.')or(sss.cFileName = '..')) then
        if (sss.dwFileAttributes and faDirectory) > 0  then
          find(put+'\'+sss.cFileName)
        else
          writeln(sss.cFileName);
       ...
      result:=FindNextFile(f,sss);
    end;
  end;
  Windows.FindClose(f);
end;

Функция GetFileSize

Данная функция определяет размер файла, на который ссылается переданный указатель. Если размер файла меньше 4 Гб, то функция возвращает размер файла. Если размер файла больше 4Гб, то размер файла записан во втором параметре. В случае возникновения исключения будет возвращено значение типа INVALID_FILE_SIZE.
C/C++

DWORD GetFileSize(
   HANDLE hFile,	   // Указатель на файл
   LPDWORD lpFileSizeHigh // старший байт размера файла, в качестве
            // этого парамметра можно указать NULL
);

Delphi

function GetFileSize(
    hFile: THandle;         // Указатель на файл
    lpFileSizeHigh: Pointer //старший байт размера файла, в качестве
             // этого парамметра можно указать nil
): DWORD; stdcall;

Теперь поглядим рабочий пример:
C/C++

{
DWORD FileSize;
Handle f;
...
FileSize=GetFileSize(f,NULL);
...
}

Delphi

var
  FileSize:DWORD;
  f:THandle;
begin
  ...
  FileSize:=GetFileSize(f,nil);
  ...
end

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

После недолгих эпических отступлений, вы уж простите меня, без лишних слов приступаем к реализации нашего стражника «Инспектора». В первую очередь нам необходимо поставить задачу. Ей будет:
- реализовать поиск файлов
- проверку файлов на наличие их в банке данных, по соответствующим признакам(путь к файлу, дата создания, изменения и контрольная сумма)
- добавление в новых кандидатов на прописку в банк данных
- реализация интерфейса, связывающего предыдущие описанные задачи и действия пользователя.

В целом, получается вот такое тех. задание. А теперь от слов к делу. Для начала определимся с дизайном формы. Здесь я полагаюсь на ваш вкус, но потребуется нам две кнопки и поле вывода информации(Memo или ListBox).
Однуиз кнопок определим под выбор папки — «Обзор», и для нее напишем следующий код

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  Path := GetPath('Выберите папку');
  if Path <> ''
     then Label4.Caption := Path;
end;

А теперь опишем используемую функцию GetPath():

Delphi

function GetPath(mes: string):string;
var
  Root: string;      // корневой каталог
  pwRoot : PWideChar;
  Dir: string;
begin
  Root := ''; // по умолчанию корневой каталог - рабочий стол
  GetMem(pwRoot, (Length(Root)+1) * 2);
  pwRoot := StringToWideChar(Root,pwRoot,MAX_PATH*2);
  if SelectDirectory(mes, pwRoot, Dir)
     then
          if length(Dir) = 2  // пользователь выбрал корневой каталог
              then GetPath := Dir+'\'
              else GetPath := Dir
     else
          GetPath := '';
end;

Итак, процедура выбора каталога для проверки реализована. Теперь приступим к реализации проверки файлов. Но сначала для второй кнопки опишем следующий код:

Delphi

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form1.ListBox1.Items.Add(TimeToStr(Time)+' :> Сканирование началось.');
  ListFiles.Clear;
  FindF(Path);
  Scan_File;
  Form1.ListBox1.Items.Add('===================================================');
  Form1.ListBox1.Items.Add(TimeToStr(Time)+' :> Сканирование завершено.');
end;

А теперь последовательно опишем используемые функции и первой будет процедура FindF(). Эта процедура осуществляет рекурсивный поиск файлов относительно выбранного корневого каталога и добавляет их в список для проверки. Смотрим листинг:

Delphi

procedure FindF(path_f:string);
begin
//Инициируем поиск
  if(FindFirst(path_f+'\*.*',faAnyFile,SearchRec) = 0) then
  begin
    repeat
      if not((SearchRec.name = '.')or(SearchRec.name = '..')) then
      begin
        if SearchRec.Attr <> faDirectory then
        begin
          ListFiles.Add(path_f+'\'+SearchRec.Name); //если файл, добавляем в список
          Inc(Count_file);
        end
        else
          FindF(path_f+'\'+SearchRec.Name); //если папка, запускаем рекурсию

      end;
    until (FindNext(SearchRec)<>0);
    FindClose(SearchRec);
  end;
end;

Далее рассмотрим процедуру Scan_File(). Ее задача проверить каждый найденный файл на наличие в своей базе данных, сверить контрольную сумму, дату создания и дату последнего изменения файла. В случае если будут обнаружены какие-либо несоответсвия, немедля бьет тревогу. Смотрим:

Delphi

procedure Scan_File;
var
  crc32T,dataCT,dataMT:Cardinal;
  i:integer;
  f: THandle;
  SearchF:TWIN32FindData;
  temp:boolean;
begin
  i:=0;
//проверка на первый запуск, а точнее была база только что создана или нет.
  if newBase = true then
  //если да, то заносим список найденых файлов с их
  //параметрами(путь, контрольная сумма, дата создания, дата изменения) в базу
    while i <= Count_file-1 do
    begin
      WriteIB(ListFiles.Strings[i]);
      Inc(i);
    end;
//далее производим проверку
  i:=0;
  while i <= Count_file-1 do
  begin
    try
        //проверяем наличие файла
      FS:=TFileStream.Create(ListFiles.Strings[i],fmOpenRead or fmShareDenyNone);
    except
      on Exception do
      begin
        Form1.ListBox1.Items.Add('не открывается '+ListFiles.Strings[i]);
        break;
      end;
    end;
        //Вычисляем контрольную сумму
    crc32T:=CRC32Stream(FS,0);
    FS.Free;
    f:=FindFirstFile(PChar(ListFiles.Strings[i]),SearchF);
    if f <> INVALID_HANDLE_VALUE then
    begin
        //определяем дату создания и дату изменения файла
      dataCT:=SearchF.ftCreationTime.dwLowDateTime;
      dataMT:=SearchF.ftLastWriteTime.dwLowDateTime;
    end;
        //запускаем процедуру поиска файла с найденными параметрами
        //по базе
    temp:=FindIB(ListFiles.Strings[i],crc32T,dataCT,dataMT);
    if (Not temp and (FindFlagB=0)) then
    begin
        //если файл отсутсвует то выводим тревожное сообщение
      Form1.ListBox1.Items.Add('ВНИМАНИЕ! Данный файл в базе отсутствует: '+ListFiles.Strings[i]);
    end;
        //Если файл в наличии то выводим результат проверки
    if temp and (FindFlagB=1) then
      Form1.ListBox1.Items.Add(ListFiles.Strings[i]+' - файл проверен. ОК.')
    else
      if (not temp) and (FindFlagB=1) then
      Form1.ListBox1.Items.Add(ListFiles.Strings[i]+' - файл был изменен.');
    Inc(i);
    Form1.Update;
  end;
end;

Далее опишем функции для работы с базой. И первая функция FindIB(). Она осуществляет проверку наличия интересующего файла в базе и сверку переданных параметров искомого файла с теми, что соответствуют ему.

Delphi

function FindIB(strS:string;crc32,dataC,dataM:Cardinal):Boolean;
var
  fileS:TextFile;
  nameD,fn:string;
  crc32D,dataCD,dataMD:Cardinal;
  i,it:integer;
begin
  FindFlagB:=0;
  AssignFile(fileS,'IFdb.db');
  Reset(fileS);
  While Not EOF(fileS) do
  begin
  //считываем данные из базы
    ReadLn(fileS,nameD);
  // получаем имя файла
    it:=Pos('$',nameD);
    fn:=copy(nameD,1,it-1);
    Delete(nameD,1,it);
  //получаем контрольную сумму
    it:=Pos('$',nameD);
    crc32D:=StrToInt64(copy(nameD,1,it-1));
    Delete(nameD,1,it);
  //получаем дату создания файла
    it:=Pos('$',nameD);
    dataCD:=StrToInt64(copy(nameD,1,it-1));
    Delete(nameD,1,it);
  //получаем дату последнего изменения
    dataMD:=StrToInt64(copy(nameD,1,length(nameD)));
    if strS = fn then
    begin
      FindFlagB:=1;
        if crc32 = crc32D then
          if dataC = dataCD then
            if dataM = dataMD then
            begin
              FindIB:=true;
              CloseFile(fileS);
              exit;
            end;
    end;
  end;
  FindIB:=false;
  CloseFile(fileS);
end;

Теперь рассмотрим функцию WriteIB(). Которая заносит в базу путь к файлу, его контрольную сумму, дату создания и дату последнего изменения.

Delphi

procedure WriteIB(name:string);
var
  dbf:TextFile;
  i:Cardinal;
  s:string;
  f: THandle;
  SearchF:TWIN32FindData;
begin
//открываем базу
  AssignFile(dbf,'IFdb.db');
  Append(dbf);
  //инициализируем переменные
  s:=name+'$';
  try
  //проверяем наличие добавляемого файла
    FS:=TFileStream.Create(name,fmOpenRead or fmShareDenyNone);
  except
    on Exception do
    begin
      Form1.ListBox1.Items.Add('не открывается '+name);
      exit;
    end;
  end;
  //вычисляем контрольную сумму
  i:=CRC32Stream(FS,0);
  s:=s+IntToStr(i);
  f:=FindFirstFile(PChar(name),SearchF);
  if f <> INVALID_HANDLE_VALUE then
   //определяем дату создания и дату изменения файла s:=s+'$'+IntToStr(SearchF.ftCreationTime.dwLowDateTime)+'$'+IntToStr(SearchF.ftLastWriteTime.dwLowDateTime);
  writeln(dbf,s);
  CloseFile(dbf);
  FS.Free;
end;

Далее надо объявить необходимые глобальные переменные:

Delphi

var
  SearchRec: TSearchRec;
  Count_file,FindFlagB,step: integer;
  Path: string;
  ListFiles: TStrings;
  FS:TFileStream;
  newBase:boolean;

Теперь необходимо для события onCreate написать следующее:

Delphi

procedure TForm1.FormCreate(Sender: TObject);
var
  f: THandle;
  SearchF:TWIN32FindData;
begin
  SendMessage(ListBox1.Handle,LB_SetHorizontalExtent,1000,0);
  newBase:= false;
  ListFiles:=TStringList.Create;
  Path:='*.*';
  f:=FindFirstFile('IFdb.db',SearchF);
  if f = INVALID_HANDLE_VALUE then
  begin
    f:=CreateFile('IFdb.db', GENERIC_READ or GENERIC_WRITE, FILE_SHARE_WRITE or FILE_SHARE_READ, nil, CREATE_NEW, FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED, 0);
    if f <> INVALID_HANDLE_VALUE then
    begin
      CloseHandle(f);
      newBase:= true;
    end;
  end;
end;

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

Необходимые файлы:
- модуль для вычисления CRC32. Скачать

Рабочий пример скачать здесь.