ТекстовыйДокумент.НачатьЧтение

Записать и прочитать свой временный текст callback-цепочкой

Полный Windows-модуль демонстрирует различие сигнатур: ПослеЗаписи(Результат, Состояние), ПослеЧтения(Состояние). Содержимое проверяется до удаления своего файла.

Подготовка

1. Создайте учебную внешнюю обработку с пустой управляемой основной формой. Создайте команду УчебныйПример и кнопку этой команды.

2. В свойстве команды Действие выберите процедуру УчебныйПример. Вставьте полный приведённый модуль формы.

3. Откройте EPF в тонком или толстом клиенте Windows и нажмите кнопку. Не переносите Ждать и Асинх в серверный общий модуль.

4. Пример работает только со своими данными в памяти; записи в базу, файлы и сеть нет.

5. ТОЛЬКО Windows-клиент с доступом к собственному временному каталогу. Веб-клиент этим примером не проверяется.

6. Создаётся и удаляется один уникальный txt. Не подставляйте путь к рабочему файлу; удалённый учебный файл кодом не восстанавливается.

Перем Выполняется;

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

&НаКлиенте
Функция ОповещениеДля(ИмяПроцедуры, Состояние)
    Возврат Новый ОписаниеОповещения(ИмяПроцедуры, ЭтотОбъект, Состояние, "ОшибкаОперации", ЭтотОбъект);
КонецФункции

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

&НаКлиенте
Процедура ПослеЧтения(Состояние) Экспорт
    Попытка
        Сообщить(Состояние.Копия.КоличествоСтрок() = Состояние.Исходный.КоличествоСтрок());
        Сообщить(Состояние.Копия.ПолучитьСтроку(1) = "Книга");
        Сообщить(Состояние.Копия.ПолучитьСтроку(2) = "Ручка");
        УдалитьФайлы(Состояние.ИмяФайла);
        ПроверкаФайла = Новый Файл(Состояние.ИмяФайла);
        Сообщить(Не ПроверкаФайла.Существует());
    Исключение
        УдалитьСвойФайл(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
    Выполняется = Ложь;
КонецПроцедуры

&НаКлиенте
Процедура ОшибкаОперации(Ошибка, СтандартнаяОбработка, Состояние) Экспорт
    УдалитьСвойФайл(Состояние);
    Выполняется = Ложь;
    СтандартнаяОбработка = Истина;
КонецПроцедуры

&НаКлиенте
Процедура УдалитьСвойФайл(Состояние)
    Попытка
        СвойФайл = Новый Файл(Состояние.ИмяФайла);
        Если СвойФайл.Существует() Тогда
            УдалитьФайлы(Состояние.ИмяФайла);
        КонецЕсли;
    Исключение
        // Первичная ошибка должна оставаться видимой, даже если уборка не удалась.
    КонецПопытки;
КонецПроцедуры

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

1. Проверяем отсутствие по уникальному имени до записи. Состояние удерживает источник и отдельный объект Копия.

2. Callback записи получает Результат и Состояние, но успех для данного Windows-примера проверяется по существованию/размеру файла.

3. НачатьЧтение заполняет Состояние.Копия. У его callback только Состояние, не выдуманный новый ТекстовыйДокумент в аргументе Результат.

4. Обе стороны явно используют UTF-8 и разделитель ПС.

5. Проверяем обе восстановленные строки и только затем удаляем собственный временный файл.

6. В случае асинхронной ошибки отдельный обработчик пытается удалить только этот файл и оставляет стандартное отображение первичной ошибки.

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

1. Пять сообщений Истина: файл непустой, число строк совпало, Книга/Ручка восстановлены, свой файл удалён.

2. Новый запуск создаёт новое имя, а перекрывающийся запуск отклоняется до завершения.

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

Закончен конкретный файловый roundtrip с правильными callback-сигнатурами записи и чтения.

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

1. Прочитать/НачатьЧтение меняют существующий объект Копия; не надо заменять его неизвестным результатом callback.

2. Отсутствие файла после callback не означает успех, даже если Результат не равен Ложь.

3. Аварийное завершение клиента или ошибка уборки могут оставить свой временный txt. Не удаляйте весь временный каталог.

4. Это собственный учебный txt, не проверка чтения пользовательского выбранного файла через браузер.

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