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

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


cp:obx-read_file_bytes

Побайтное чтение файла

Программа на Компонентном Паскале для побайтного считывания файла и вывода содержимого в окно сообщений (лог).

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.

Автор: Кривохатько С.А. Правки: Ильин А.С., PGR, Рюмшин Б.В., Темиргалеев Е.Э., Губанов С.Ю.

cp/obx-read_file_bytes.txt · Последнее изменение: 2021/06/19 15:24 — rbv