Проверить запрет записи и изменения размера readonly-потока

Пробуем только два намеренно запрещённых действия со своим файлом. Исключения учитываем, затем проверяем неизменность данных.

Подготовка

1. Каждый фрагмент запускайте отдельно в серверной процедуре своей учебной базы. Файл создаётся во временном каталоге сервера, не на компьютере клиента.

2. Пример получает новое временное имя и использует СоздатьНовый, не Создать. Чужой существующий файл никогда не открывается для перезаписи.

3. После завершения/ошибки закрываются только созданные потоки и удаляется только точное собственное имя. Это не резервная копия и не операция над вашими XML.

ИмяФайла = ПолучитьИмяВременногоФайла("bin");
УчебныйФайл = Новый Файл(ИмяФайла);
Если УчебныйФайл.Существует() Тогда
    ВызватьИсключение "Временное имя уже занято: чужой файл не открываем";
КонецЕсли;
Поток = Неопределено;
Вид = Неопределено;
Копия = Неопределено;
СозданСвойФайл = Ложь;
Попытка
    Поток = Новый ФайловыйПоток(ИмяФайла, РежимОткрытияФайла.СоздатьНовый, ДоступКФайлу.ЧтениеИЗапись);
    СозданСвойФайл = Истина;
    Буфер = ПолучитьБуферДвоичныхДанныхИзСтроки("ABC123", КодировкаТекста.UTF8, Ложь);
    Поток.Записать(Буфер, 0, Буфер.Размер);
    Вид = Поток.ПолучитьПотокТолькоДляЧтения();
    Отказов = 0;
    Попытка
        Вид.Записать(Буфер, 0, 1);
    Исключение
        Отказов = Отказов + 1;
        Сообщить("Ожидаемый запрет записи: " + ОписаниеОшибки());
    КонецПопытки;
    Попытка
        Вид.УстановитьРазмер(2);
    Исключение
        Отказов = Отказов + 1;
        Сообщить("Ожидаемый запрет размера: " + ОписаниеОшибки());
    КонецПопытки;
    Сообщить(Отказов = 2);
    Сообщить(Вид.Размер() = 6);
    Вид.Перейти(0, ПозицияВПотоке.Начало);
    Проверка = Новый БуферДвоичныхДанных(6);
    Сообщить(Вид.Прочитать(Проверка, 0, 6) = 6);
    Сообщить(ПолучитьСтрокуИзБуфераДвоичныхДанных(Проверка, КодировкаТекста.UTF8) = "ABC123");
Исключение
    Если Вид <> Неопределено Тогда
        Вид.Закрыть();
    КонецЕсли;
    Если Копия <> Неопределено Тогда
        Копия.Закрыть();
    КонецЕсли;
    Если Поток <> Неопределено Тогда
        Поток.Закрыть();
    КонецЕсли;
    Если СозданСвойФайл И УчебныйФайл.Существует() Тогда
        УдалитьФайлы(ИмяФайла);
    КонецЕсли;
    ВызватьИсключение;
КонецПопытки;
Если Вид <> Неопределено Тогда
    Вид.Закрыть();
КонецЕсли;
Если Копия <> Неопределено Тогда
    Копия.Закрыть();
КонецЕсли;
Если Поток <> Неопределено Тогда
    Поток.Закрыть();
КонецЕсли;
Если СозданСвойФайл Тогда
    УдалитьФайлы(ИмяФайла);
КонецЕсли;
Сообщить(Не УчебныйФайл.Существует());

Разбор по шагам

1. Получаем readonly-вид только уже созданного собственным уроком файла.

2. Записать и УстановитьРазмер оборачиваем по отдельности, чтобы проверить оба отказа.

3. Счётчик сравниваем после блоков перехвата; затем читаем фактический размер и весь исходный текст.

Как проверить результат

1. Два сообщения об ожидаемых запретах; четыре финальных сравнения Истина.

2. Размер 6 и содержимое ABC123 не изменились. Пойманная ошибка не называется успешной записью.

3. Последнее сообщение Истина: точный собственный временный файл удалён после закрытия ресурсов.

Ожидаемый результат

На настоящем readonly-виде проверены два запрета изменения.

На что обратить внимание

1. В рабочем коде сначала проверяйте ДоступнаЗапись, а не используйте исключение для обычного управления потоком.

2. Readonly-вид не превращает изменяемые исходные данные в резервную копию.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.