ЗаписатьБайт(<Значение>)
Записывает байт в текущее положение в потоке и перемещает позицию в потоке вперед на один байт.
Поток1.ЗаписатьБайт(33);
Копировать Выделить всёПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll"); Ф = Новый ФормыДляОдноСкрипта(); Форма1 = Ф.Форма(); Форма1.Отображать = Истина; Форма1.Показать(); Форма1.Активизировать(); Поток1 = Ф.Поток(); СтрБуфер = "Некоторый текст"; Поток1.УстановитьДлину(Ф.Кодировка().Юникод.ПолучитьБайты(СтрБуфер).Количество); Для А = 1 По СтрДлина(СтрБуфер) Цикл Символ = Сред(СтрБуфер, А, 1); МассивСписок22 = Ф.Кодировка().Юникод.ПолучитьБайты(Символ); Для А1 = 0 По МассивСписок22.Количество - 1 Цикл Поток1.ЗаписатьБайт(МассивСписок22.Элемент(А1)); КонецЦикла; КонецЦикла; Поток1.Позиция = 0; Поток1.ЗаписатьБайт(33); Поток1.Позиция = 1; Поток1.ЗаписатьБайт(0); Поток1.Позиция = 2; Поток1.ЗаписатьБайт(33); Поток1.Позиция = 3; Поток1.ЗаписатьБайт(0); МассивСписок21 = Ф.МассивСписок(); Поток1.Позиция = 0; Байт1 = Поток1.ЧитатьБайт(); Пока Байт1 >= 0 Цикл МассивСписок21.Добавить(Байт1); Байт1 = Поток1.ЧитатьБайт(); КонецЦикла; СтрокаИзПотока = Ф.Кодировка().Юникод.ПолучитьСтроку(МассивСписок21); Сообщить("СтрокаИзПотока = " + СтрокаИзПотока); // СтрокаИзПотока = !!который текст Ф.ЗапуститьОбработкуСобытий();
Копировать Выделить всёПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll"); Ф = Новый ФормыДляОдноСкрипта(); Форма1 = Ф.Форма(); Форма1.Отображать = Истина; Форма1.Показать(); Форма1.Активизировать(); Поток1 = Ф.Поток(); СтрБуфер = "Некоторый текст"; Поток1.УстановитьДлину(Ф.Кодировка().Юникод.ПолучитьБайты(СтрБуфер).Количество); Для А = 1 По СтрДлина(СтрБуфер) Цикл Символ = Сред(СтрБуфер, А, 1); МассивСписок22 = Ф.Кодировка().Юникод.ПолучитьБайты(Символ); Для А1 = 0 По МассивСписок22.Количество - 1 Цикл Поток1.ЗаписатьБайт(МассивСписок22.Элемент(А1)); КонецЦикла; КонецЦикла; Поток1.Позиция = 0; Поток1.ЗаписатьБайт(33); Поток1.Позиция = 1; Поток1.ЗаписатьБайт(0); Поток1.Позиция = 2; Поток1.ЗаписатьБайт(33); Поток1.Позиция = 3; Поток1.ЗаписатьБайт(0); МассивСписок21 = Ф.МассивСписок(); Поток1.Позиция = 0; Байт1 = Поток1.ЧитатьБайт(); Пока Байт1 >= 0 Цикл МассивСписок21.Добавить(Байт1); Байт1 = Поток1.ЧитатьБайт(); КонецЦикла; СтрокаИзПотока = Ф.Кодировка().Юникод.ПолучитьСтроку(МассивСписок21); Сообщить(?( СтрокаИзПотока = "!!который текст" , "", "!!! ") + "Поток.ЗаписатьБайт (Stream.WriteByte) Метод" + " " + ТекущаяДата());