Открытие файла для выполнения битовых операций
| 32-х | procedure OpenBitFile (Name: string; Mode: word; [BufSize: Integer] ); |
| 16-ти | function OpenBitFile (Name: string; Mode: word):word; |
Name - имя файла, с которым будут производиться операции обмена;
Mode - режим открытия файла. Возможно задание двух режимов:
- btOpenRead - битовая переменная связана счтением из файла . Возможен прямой
и последовательный доступ к битовым данным.
- btCreate - битовая переменная связана с записью в файл. Возможен только
последовательный вывод данных.
BufSize - pазмеp пpомежуточного буфеpа для записи (чтения) данных в (из) файл (а). Для
объекта TBitFile, открываемого на чтение данный параметр не задается.
Процедура выполняет открытие файла и инициализацию буферов для кэширования
обмена битовыми данными с файлом. После выполнения процедуры открытия файла
представление битовых данных в файле соответствует форматам, приведенным на
рисунке 1.
Внимание! В файл, открытый для чтения, нельзя осуществить запись данных. Также справедливо обратное: из файла, открытого для записи, нельзя считать данные.
| 32-х |
Var BitStr: TBitFile; {Объявление переменной}
…
BitStr := TBitFile.Create; {Выделение памяти}
Try
BitStr.OpenBitFile('a.d', btOpenRead); {Открытие файла “a.d”}
… {Обработка данных файла}
Exept on EfileBitError do { Выполнение при ошибке открытия файла}
ShowMessage(‘Файл не найден’); { Вывод сообщения об ошибке}
BitStr.CloseBitFile; { Закрытие обрабатываемого файла}
BitStr.Free; {Освобождение памяти} |
| 16-ти |
Var BitStr: PBitFile; {Объявление переменной}
…
BitStr := New(PBitFile,Init(38,512)); {Выделение памяти}
if BitStr^.OpenBitFile ('aa',btCreate) <> btOk {Открытие файла “aa”}
Then Writeln(‘Ошибка создания файла’); { Вывод сообщения}
… {Обработка данных файла}
BitStr^.CloseBitFile; { Закрытие обрабатываемого файла}
Dispose(BitStr,Done); {Освобождение памяти} |