Поток.Сбросить (Stream.Flush) Метод

Копировать     Выделить всё

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

Поток1 = Ф.Поток();
СтрБуфер = "Съешь [же] ещё этих мягких французских булок да выпей чаю.";
Буфер = Ф.Кодировка().ПолучитьБайты(СтрБуфер);

Поток1.Записать(Буфер, 20, 18);
Поток1.Позиция = 0;
МассивСписок1 = Ф.МассивСписок();

Байт1 = Поток1.ЧитатьБайт();
Пока Байт1 >= 0  Цикл
	МассивСписок1.Добавить(Байт1);
	Сообщить("Байт " + Поток1.Позиция + " = " + Байт1);
	Байт1 = Поток1.ЧитатьБайт();
КонецЦикла;
// Байт 1 = 236
// Байт 2 = 255
// Байт 3 = 227
// Байт 4 = 234
// Байт 5 = 232
// Байт 6 = 245
// Байт 7 = 32
// Байт 8 = 244
// Байт 9 = 240
// Байт 10 = 224
// Байт 11 = 237
// Байт 12 = 246
// Байт 13 = 243
// Байт 14 = 231
// Байт 15 = 241
// Байт 16 = 234
// Байт 17 = 232
// Байт 18 = 245

СтрокаИзПотока = Ф.Кодировка().ПолучитьСтроку(МассивСписок1);
Сообщить("СтрокаИзПотока = " + СтрокаИзПотока); // СтрокаИзПотока = мягких французских◦◦

Поток1.Сбросить();

МассивСписок1 = Ф.МассивСписок();

Байт1 = Поток1.ЧитатьБайт();
Пока Байт1 >= 0  Цикл
	МассивСписок1.Добавить(Байт1);
	Сообщить("2Байт " + Поток1.Позиция + " = " + Байт1);
	Байт1 = Поток1.ЧитатьБайт();
КонецЦикла;

СтрокаИзПотока = Ф.Кодировка().ПолучитьСтроку(МассивСписок1);
Сообщить("СтрокаИзПотока = " + СтрокаИзПотока); // ◦◦
Сообщить("Поток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 >= 0  Цикл
	МассивСписок1.Добавить(Байт1);
	// Сообщить("Байт " + Поток1.Позиция + " = " + Байт1);
	Байт1 = Поток1.ЧитатьБайт();
КонецЦикла;
// Байт 1 = 236
// Байт 2 = 255
// Байт 3 = 227
// Байт 4 = 234
// Байт 5 = 232
// Байт 6 = 245
// Байт 7 = 32
// Байт 8 = 244
// Байт 9 = 240
// Байт 10 = 224
// Байт 11 = 237
// Байт 12 = 246
// Байт 13 = 243
// Байт 14 = 231
// Байт 15 = 241
// Байт 16 = 234
// Байт 17 = 232
// Байт 18 = 245

СтрокаИзПотока = Ф.Кодировка().ПолучитьСтроку(МассивСписок1);
// Сообщить("СтрокаИзПотока = " + СтрокаИзПотока); // СтрокаИзПотока = мягких французских◦◦

Поток1.Сбросить();

МассивСписок1 = Ф.МассивСписок();

Байт1 = Поток1.ЧитатьБайт();
Пока Байт1 >= 0  Цикл
	МассивСписок1.Добавить(Байт1);
	// Сообщить("Байт " + Поток1.Позиция + " = " + Байт1);
	Байт1 = Поток1.ЧитатьБайт();
КонецЦикла;

СтрокаИзПотока = Ф.Кодировка().ПолучитьСтроку(МассивСписок1);
// Сообщить("СтрокаИзПотока = " + СтрокаИзПотока); // ◦◦
Поток1.Позиция = 0;

Если Ф.ПлатформаWin Тогда
	Сообщить(?(
	Поток1.ЧитатьБайт() = 236
	, "", "!!! ") + "Поток.Сбросить (Stream.Flush) Метод" + " " + ТекущаяДата());
Иначе
	Сообщить(?(
	Поток1.ЧитатьБайт() > 0
	, "", "!!! ") + "Поток.Сбросить (Stream.Flush) Метод" + " " + ТекущаяДата());
КонецЕсли;