VR on-line #HOME

WinAPI. Функции работы с файлами. Часть 1:

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

Пример: _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;