Как передать файл с сервера на клиент?

 &НаСервере

Функция ПолучитьФайл()

Двоичное=Новый ДвоичныеДанные("C:\файл.bmp");

Адрес=ПоместитьВоВременноеХранилище(Двоичное,ЭтаФорма.УникальныйИдентификатор);

Возврат Адрес

КонецФункции



&НаКлиенте

Процедура Получить()

Адрес=ПолучитьФайл();

Двоичное=ПолучитьИзВременногоХранилища(Адрес);

КонецПроцедуры   

 

&НаСервере

Функция ПолучитьФайл()

Двоичное=Новый ДвоичныеДанные("C:\файл.bmp");

Адрес=ПоместитьВоВременноеХранилище(Двоичное,ЭтаФорма.УникальныйИдентификатор);

Возврат Адрес

КонецФункции



&НаКлиенте

Процедура Получить()

Адрес=ПолучитьФайл();

Описание=Новый ОписаниеПередаваемогоФайла("C:\FromServer.bmp",Адрес);

МассивОписаний=Новый Массив;

МассивОписаний.Добавить(Описание);

ПолучитьФайлы(МассивОписаний,,,Ложь);

КонецПроцедуры