|
В этом разделе я начну описывать все известные мне
WinAPI функции. Возможно, эти статьи у тебя будут лежать в компьютере вместо
хелпа.
Сегодня нам предстоит увидеть функции для работы с
файлами. Хотя они немного устарели и 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;
| 
