Передача файла на сервер

Материал из system.c
Перейти к навигации Перейти к поиску

Простейший набор процедур для передачи файла с клиента на сервер

 &НаСервере
 Процедура ЗагрузитьДанные(Адрес)
   ДвоичныеДанные = ПолучитьИзВременногоХранилища(Адрес);
   ИмяВременногоФайла = ПолучитьИмяВременногоФайла(".xlsx");
   ДвоичныеДанные.Записать(ИмяВременногоФайла);
   ...	
   УдалитьФайлы(ИмяВременногоФайла);
 КонецПроцедуры
 &НаКлиенте
 Процедура ФайлПомещен(ОписаниеПомещенногоФайла, ДополнительныеПараметры) Экспорт
   Если ОписаниеПомещенногоФайла <> Неопределено Тогда
     ЗагрузитьДанные(ОписаниеПомещенногоФайла.Адрес);
   КонецЕсли;
 КонецПроцедуры
 &НаКлиенте
 Процедура КомандаЗагрузить(Команда)
   НачатьПомещениеФайлаНаСервер(Новый ОписаниеОповещения("ФайлПомещен", ЭтаФорма),,,, Объект.ИмяФайла);
 КонецПроцедуры