Инструменты пользователя

Инструменты сайта


cp:obx-read_file_bytes

Различия

Показаны различия между двумя версиями страницы.

Ссылка на это сравнение

cp:obx-read_file_bytes [2021/06/19 15:24] (текущий)
rbv создано
Строка 1: Строка 1:
 +====== Побайтное чтение файла ======
  
 +Программа на Компонентном Паскале для побайтного считывания файла и вывода содержимого в окно сообщений (лог).
 +
 +<code componentpascal>
 +MODULE ExamplesReadFile;
 +
 + IMPORT Log, Files;
 + 
 + PROCEDURE ReadFileBytes*;
 +  VAR file: Files.File; reader: Files.Reader; b: BYTE;
 + BEGIN
 +   file := Files.dir.Old(Files.dir.This("c:\"), "file.txt", FALSE);
 +   IF file # NIL THEN
 +     reader := file.NewReader(NIL);
 +     IF reader # NIL THEN
 +       (* ASSERT(~reader.eof); *)
 +       reader.ReadByte(b); 
 +       WHILE ~reader.eof DO
 +         Log.Int(b); Log.Ln;
 +         reader.ReadByte(b)
 +       END;
 +       (* ASSERT(reader.eof) *)
 +     ELSE
 +       Log.String("Error on open file reader."); Log.Ln
 +     END;
 +     file.Close
 +   ELSE
 +     Log.String("File open error."); Log.Ln
 +   END
 + END ReadFileBytes;
 + 
 +END ExamplesReadFile.
 +</code>
 +
 +//Автор: Кривохатько С.А. Правки: Ильин А.С., PGR, Рюмшин Б.В., Темиргалеев Е.Э., Губанов С.Ю.//
cp/obx-read_file_bytes.txt · Последнее изменение: 2021/06/19 15:24 — rbv