peredacha_fajla_s_klenta_na_server [wiki.hostingcloud.com.ua]

Эта страница только для чтения. Вы можете посмотреть её исходный текст, но не можете его изменить. Сообщите администратору, если считаете, что это неправильно.

**Передача файла с клиента на сервер**

<code>
&НаКлиенте
Процедура ОткрытьФайл(Команда)
	
	Если ВсеНастройкиЗаполнены() Тогда 
		
		ОчиститьДанныеДляНовойЗагрузки();
		
		СтандартнаяОбработка	=	Ложь;
		
		ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
		ДиалогОткрытияФайла.ПолноеИмяФайла		= "";
		ДиалогОткрытияФайла.МножественныйВыбор	= Ложь;
		ДиалогОткрытияФайла.Заголовок			= НСтр("ru = 'Выберите файл'; uk = 'Виберіть файл'");
		ДиалогОткрытияФайла.Фильтр				= "Файлы MS Excel|*.xls;*.xlsx";
		ДиалогОткрытияФайла.Показать(Новый ОписаниеОповещения("ПоказатьДиалогВыбораФайлаЗавершение", ЭтотОбъект, Новый Структура("ДиалогОткрытияФайла", ДиалогОткрытияФайла)));
		
	КонецЕсли;
	
КонецПроцедуры

</code>

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

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

    //Теперь файл с полнім путем "ИмяФайла" скопирован на сервер и можно с ним работть на сервере

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

</code>