Сегодня нам предстоит увидеть функции для работы с файлами. Хотя они немного устарели и Microsoft требует использования более новых, я всё же их опишу. А вдруг ты будешь читать старые исходники и наткнёшся на них. А если честно, я иногда использую эти функции, потому что они будут ещё долго существовать в Windows для совместимости со старыми прогами.

_lopen

Эта функция открывает существующий файл и устанавливает позицию чтения в самое начало. Функция устарела и вместо неё желательно использовать CreateFile (рассмотрим, но в другой раз).

Существует в: Win16, Win32, Win NT

Для С/С++ объявлена в winbase.h. Для Delphi в модуле windows.

Объявление:

Для С/С++

HFILE _lopen(
LPCSTR lpPathName, // Указатель на строку с именем файла
int iReadWrite // Тип доступа
);

Для Delphi

function _lopen(
const lpPathName: LPCSTR; // Указатель на строку с именем файла
iReadWrite: Integer // Тип доступа
): HFILE; stdcall;

Тип доступа может быть:

OF_READ - для чтения
OF_WRITE - для записи
OF_READWRITE - для чтения и записи

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

OF_SHARE_COMPAT - Открыть файл в разделяемом режиме. В этом случае любые процессы на компьютере смогут тоже открывать этот файл.
OF_SHARE_DENY_NONE - Открыть файл без запрещения доступа для других процессов. Если файл уже открыт другим процессом с параметром OF_SHARE_COMPAT, то функция вернёт ошибку.
OF_SHARE_DENY_READ - Открыть файл с запретом доступа для других процессов на чтение. Если файл уже открыт другим процессом с параметром OF_SHARE_COMPAT, то функция вернёт ошибку.
OF_SHARE_DENY_WRITE - Открыть файл с запретом доступа для других процессов на запись. Если файл уже открыт другим процессом с параметром OF_SHARE_COMPAT, то функция вернёт ошибку.
OF_SHARE_DENY_WRITE - Открыть файл с запретом доступа для других процессов на чтение и запись. Если файл уже открыт другим процессом с любым параметром, то функция вернёт ошибку.

Если функция выполнена успешно, то она возвращает указатель на открытый файл. Если произошла ошибка, то функция вернёт HFILE_ERROR. Для получения более полной информации о происшедшей ошибке нужно вызвать функцию GetLastError (вернуть последнюю ошибку).

Пример: _lopen('c:\Filename', OF_READWRITE);

_lcreat

Функция создаёт и сразу открывает новый файл. Функция устарела и вместо неё желательно использовать CreateFile (рассмотрим, но в другой раз).

Существует в: Win16, Win32, Win NT

Для С/С++ объявлена в winbase.h. Для Delphi в модуле windows.

Объявление:

Для С/С++

HFILE _lcreat(
LPCSTR lpPathName,// Указатель на имя создаваемого файла
int iAttribute // Атрибуты файла
);

Для Delphi

function _lcreat(
const lpPathName: LPCSTR;// Указатель на имя создаваемого файла
iAttribute: Integer // Атрибуты файла
): HFILE; stdcall;

Атрибуты файла могут быть:

0 - Нормальный
1 - Файл только для чтения
2 - Скрытый
4 - Системный

Если функция выполнена успешно, то она возвращает указатель на открытый файл. Если произошла ошибка, то функция вернёт HFILE_ERROR. Для получения более полной информации о происшедшей ошибке нужно вызвать функцию GetLastError (вернуть последнюю ошибку).

Пример: _creat('c:\Filename', 0);

_lread, _hread

Функция читает данные из открытого файла. Функция устарела и вместо неё желательно использовать ReadFile (рассмотрим, но в другой раз).

Существует в: Win16, Win32, Win NT

Для С/С++ объявлена в winbase.h. Для Delphi в модуле windows.

Объявление:

Для С/С++

long _hread(
HFILE hFile,// Указатель на открытый с помощью _lopen файл
LPVOID lpBuffer,// указатель на буфер, куда нужно прочитать
long lBytes // длина буфера в байтах
);
или
UINT _lread(
HFILE hFile,
LPVOID lpBuffer,
UINT uBytes
);

Для Delphi
function _hread(
hFile: HFILE; // Указатель на открытый с помощью _lopen файл
lpBuffer: Pointer; // указатель на буфер, куда нужно прочитать
lBytes: Longint // длина буфера в байтах
): Longint;
или
function _lread(
hFile: HFILE;
lpBuffer: Pointer;
uBytes: UINT
): UINT; stdcall;

Как видишь, объявлено две функции _lread и _hread. Отличаются они только размерностью параметров. Функция возвращает количество реально прочитанных из файла данных. Если произошла ошибка, то функция вернёт HFILE_ERROR. Для получения более полной информации о происшедшей ошибке нужно вызвать функцию GetLastError (вернуть последнюю ошибку).

Пример: _lread(f, buffer, sizeof(buffer));

_lwrite, _hwrite

Функция записывает данные в открытый файл. Функция устарела и вместо неё желательно использовать WriteFile (рассмотрим, но в другой раз).

Существует в: Win16, Win32, Win NT

Для С/С++ объявлена в winbase.h. Для Delphi в модуле windows.

Объявление:

Для С/С++

UINT _lread(
HFILE hFile,// Указатель на открытый с помощью _lopen файл
LPVOID lpBuffer,// указатель на буфер, который нужно записать
UINT uBytes // длина буфера в байтах
);
или
long _hwrite(
HFILE hFile,
LPCSTR lpBuffer,
long lBytes
);

Для Delphi

function _lwrite(
hFile: HFILE; // Указатель на открытый с помощью _lopen файл
const lpBuffer: LPCSTR; // указатель на буфер, который нужно записать
uBytes: UINT // длина буфера в байтах
): UINT;
или
function _hwrite(
hFile: HFILE;
lpBuffer: LPCSTR;
lBytes: Longint
): Longint;

Как видишь, объявлено две функции _lwrite и _hwrite. Отличаются они только размерностью параметров. Функция возвращает количество реально записанных в файл данных. Если произошла ошибка, то функция вернёт HFILE_ERROR. Для получения более полной информации о происшедшей ошибке нужно вызвать функцию GetLastError (вернуть последнюю ошибку).

Пример: _hwrite(f, buffer, sizeof(buffer));

_llseek

Функция перемещает позицию чтения/записи в открытом файле. Функция устарела и вместо неё желательно использовать SetFilePointer (рассмотрим, но в другой раз).

Существует в: Win16, Win32, Win NT

Для С/С++ объявлена в winbase.h. Для Delphi в модуле windows.

Объявление:

Для С/С++

LONG _llseek(
HFILE hFile,// Указатель на открытый с помощью _lopen файл
LONG lOffset,// Количество байт, на которые нужно передвинутся
int iOrigin // Позиция, от которой нужно двигаться.
);

Для Delphi

function _llseek(
hFile: HFILE; // Указатель на открытый с помощью _lopen файл
lOffset: Longint; // Количество байт, на которые нужно передвинутся
iOrigin: Integer // Позиция, от которой нужно двигаться.
): Longint; stdcall;

Функция возвращает новую позицию от начала файла. Если произошла ошибка, то функция вернёт HFILE_ERROR. Для получения более полной информации о происшедшей ошибке нужно вызвать функцию GetLastError (вернуть последнюю ошибку).

iOrigin может принимать значения:

FILE_BEGIN - двигаться от начала файла на указанное число байт.
FILE_CURRENT - двигатся от текущей позиции к концу файла на указанное число байт.
FILE_END - двигатся от конца файла к началу на указанное число байт.

Пример: _llseek(f, 10, FILE_END); В этом примере позиция будет установлена на десять байт до конца файла.

_lclose

Функция закрывает открытый ранее файл. Функция устарела и вместо неё желательно использовать CloseHandle (рассмотрим, но в другой раз).

Существует в: Win16, Win32, Win NT

Для С/С++ объявлена в winbase.h. Для Delphi в модуле windows.

Объявление:

Для С/С++

HFILE _lclose(
HFILE hFile,// Указатель на открытый с помощью _lopen файл
);

Для Delphi

function _lclose(
hFile: HFILE; // Указатель на открытый с помощью _lopen файл
): HFILE; stdcall;

Если файл закрылся, то возвращается ноль. Если произошла ошибка, то функция вернёт HFILE_ERROR. Для получения более полной информации о происшедшей ошибке нужно вызвать функцию GetLastError (вернуть последнюю ошибку).

Пример: _hclose(f);

Пример на Delphi с использованием сегодняшних функций.

var
f:HFILE;
a:array [0..5] of char; //массив из пяти символов
begin
f:=_lopen('c:\1.txt',OF_READWRITE);//Открыть файл
_lread(f,@a,5); //Прочитать пять символов
_llseek(f, 0, FILE_BEGIN);//Вернутся на начало файла
_lwrite(f,'VR-online',9); //Записать в файл 9 символов
_lClose(f); //Закрыть файл
end;