ЧитатьБайт()
Тип: Число.
Байт, приведенный к целому числу или -1, если достигнут конец потока.
Считывает байт из потока и перемещает позицию в потоке на один байт или возвращает -1, если достигнут конец потока.
Используйте свойство Поток.ВозможностьЧтения (Stream.CanRead), чтобы определить, поддерживает ли текущий экземпляр чтение.
Байт1 = Поток1.ЧитатьБайт();
Копировать Выделить всёПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll"); Ф = Новый ФормыДляОдноСкрипта(); Форма1 = Ф.Форма(); Форма1.Отображать = Истина; Форма1.Показать(); Форма1.Активизировать(); Поток1 = Ф.Поток(); СтрБуфер = "Съешь [же] ещё этих мягких французских булок да выпей чаю."; Буфер = Ф.Кодировка().ПолучитьБайты(СтрБуфер); Поток1.Записать(Буфер, 20, 18); Поток1.Позиция = 0; Байт1 = Поток1.ЧитатьБайт(); Сообщить("Байт " + Поток1.Позиция + " = " + Байт1); // Байт 1 = 236 Ф.ЗапуститьОбработкуСобытий();
Копировать Выделить всёПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll"); Ф = Новый ФормыДляОдноСкрипта(); Форма1 = Ф.Форма(); Форма1.Отображать = Истина; Форма1.Показать(); Форма1.Активизировать(); Поток1 = Ф.Поток(); СтрБуфер = "Съешь [же] ещё этих мягких французских булок да выпей чаю."; Буфер = Ф.Кодировка().ПолучитьБайты(СтрБуфер); Поток1.Записать(Буфер, 20, 18); Поток1.Позиция = 0; Байт1 = Поток1.ЧитатьБайт(); Если Ф.ПлатформаWin Тогда Сообщить(?( Байт1 = 236 , "", "!!! ") + "Поток.ЧитатьБайт (Stream.ReadByte) Метод" + " " + ТекущаяДата()); Иначе Сообщить(?( Байт1 > 0 , "", "!!! ") + "Поток.ЧитатьБайт (Stream.ReadByte) Метод" + " " + ТекущаяДата()); КонецЕсли;