0
nAPACEHAK
17.03.23
✎
21:13
|
Доброго
Подскажите, плз, куда копнуть
Подключение расширения
&НаКлиенте
Процедура АСинхронныйВызовПодключения()
Подключить(Истина);
КонецПроцедуры
&НаКлиенте
Процедура Подключить(УстановитьЕслиНеПодключено) Экспорт
НачатьПодключениеРасширенияРаботыСФайлами(
Новый ОписаниеОповещения( "ПослеПодключения", ЭтотОбъект, УстановитьЕслиНеПодключено));
КонецПроцедуры
&НаКлиенте
Процедура ПослеПодключения(Подключено,УстановитьЕслиНеПодключено) Экспорт
Если Подключено Тогда
Состояние("Идет чтение файла. Ждите….");
СохранитьФайл(); // Пользовательская служенная процедура
ИначеЕсли УстановитьЕслиНеПодключено Тогда
НачатьУстановкуРасширенияРаботыСФайлами(
Новый ОписаниеОповещения( "Подключить",ЭтотОбъект, Ложь));
Иначе
ВызватьИсключение "Не удалось подключить расширение работы с файлами!";
КонецЕсли;
КонецПроцедуры
Запись Файла
&НаКлиенте
Процедура ПослеСохраненияФайла(Результат, Адрес) Экспорт
Если Результат = Неопределено Тогда
Возврат;
КонецЕсли;
ПолноеИмяФайла = Результат[0];
Двоичные = ПолучитьИзВременногоХранилища(Адрес);
Если ТипЗнч(Двоичные) = Тип("ДвоичныеДанные") Тогда
//#Если ВебКлиент Тогда
Оповещение = Новый ОписаниеОповещения("ПослеПомещенияФайла", ЭтаФорма);
Двоичные.НачатьЗапись(Оповещение, ПолноеИмяФайла);
//#Иначе
// Двоичные.Записать(ПолноеИмяФайла);
//#КонецЕсли
Иначе
Сообщить("Данные файла не получены");
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПослеПомещенияФайла(Доп) Экспорт
Сообщить("Файл записан");
КонецПроцедуры
если это не веб клиент - то все записывается ок
если веб клиент - пишет файл, но.... размер ноль. Сообщает "Файл записан"
если закрыть браузер - то файл появляется с адекватным размером (хром, лиса) или файл записывается, но заблокирован и после закрытия браузера он удаляется (ИЕ)
что может блокировать файл? понять не могу.
на разных компах такая история
есть мысли?
Спасибо
|
|