/* Использование: RecordAccess имя файла [количество записей]

Количество записей (nrec) можно не указывать, если файл с указанным именем уже существует. Если количество записей (nrec) задано, создается файл с указанным именем (если файл с таким именем существует, он уничтожается). При большом количестве записей (nrec) файлы рекомендуется создавать как разреженные. */

/* Программа иллюстрирует:

1. Произвольный доступ к файлам.

2. Арифметику данных типа LARGE_INTEGER и использование 64-битовых указателей файла.

3. Обновление записей на месте.

4. Запись в файл нулей во время инициализации (требует использования файловой системы NTFS).

*/

#include "EvryThng.h"

#define STRING_SIZE 256

typedef struct _RECORD { /* Структура записи в файле */

 DWORD ReferenceCount; /* 0 означает пустую запись. */

 SYSTEMTIME RecordCreationTime;

 SYSTEMTIME RecordLastReferenceTime;

 SYSTEMTIME RecordUpdateTime;

 TCHAR DataString[STRING_SIZE];

} RECORD;

typedef struct _HEADER { /* Дескриптор заголовка файла */

 DWORD NumRecords;

 DWORD NumNonEmptyRecords;

} HEADER;

int _tmain(int argc, LPTSTR argv[]) {

 HANDLE hFile;

 LARGE_INTEGER CurPtr;

 DWORD FPos, OpenOption, nXfer, RecNo;

 RECORD Record;

 TCHAR String[STRING_SIZE], Command, Extra;

 OVERLAPPED ov = {0, 0, 0, 0, NULL}, ovZero = {0, 0, 0, 0, NULL};

 HEADER Header = {0, 0};

 SYSTEMTIME CurrentTime;

 BOOLEAN HeaderChange, RecordChange;

 OpenOption = (argc == 2) ? OPEN_EXISTING : CREATE_ALWAYS;

 hFile = CreateFile(argv[1], GENERIC_READ | GENERIC_WRITE, 0, NULL, OpenOption, FILE_ATTRIBUTE_NORMAL, NULL);

 if (argc >= 3) { /* Записать заголовок и заранее установить размер нового файла */

Header.NumRecords = atoi(argv[2]);

WriteFile(hFile, &Header, sizeof(Header), &nXfer, &ovZero);

CurPtr.QuadPart = sizeof(RECORD)*atoi(argv[2])+sizeof(HEADER);

FPos = SetFilePointer(hFile, CurPtr.LowPart, &CurPtr.HighPart, FILE_BEGIN);

if (FPos == 0xFFFFFFFF && GetLastError != NO_ERROR) ReportError(_T("Ошибка указателя."), 4, TRUE);

SetEndOfFile(hFile);

 }

 /* Считать заголовок файла: определить количество записей и количество непустых записей. */

 ReadFile(hFile, &Header, sizeof(HEADER), &nXfer, &ovZero);

 /* Предложить пользователю считать или записать запись с определенным номером. */

 while(TRUE) {

HeaderChange = FALSE;

RecordChange = FALSE;

_tprintf(_Т("Введите r(ead)/w(rite)/d(elete)/q Запись#\n"));

_tscanf(_T("%c" "%d" "%c"), &Command, &RecNo, &Extra );

if (Command == 'q') break;

CurPtr.QuadPart = RecNo * sizeof(RECORD) + sizeof(HEADER);

ov.Offset = CurPtr.LowPart;

ov.OffsetHigh = CurPtr.HighPart;

ReadFile(hFile, &Record, sizeof(RECORD), &nXfer, &ov);

GetSystemTime(&CurrentTime); /* Обновить поля даты и времени в записи. */

Record.RecordLastRefernceTime = CurrentTime;

if (Command == 'r' || Command == 'd') { /*Вывести содержимое записи.*/

if (Record.ReferenceCount == 0) {

_tprintf(_T("Запись номер %d – пустая.\n"), RecNo);

continue;