Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 06:51

Выгрузка файла на WEB-сервере

Автор yesmax7, 19 мар 2018, 07:08

0 Пользователей и 1 гость просматривают эту тему.

yesmax7

Здравствуйте!
    Написал код, который выгружает файл. Открывается окно выбора места сохранения, указываешь путь, туда сохраняется файл. На файловой базе все выполняется нормально.
    Если база на WEB-сервере, то когда выбираешь путь, там ничего не появляется. Видимо сформированный файл появляется на самом WEB-сервере. Как исправить?

Код:

&НаКлиенте
Процедура ВыгрузитьXMLСхему(Команда)
   
   РежимДиалога = РежимДиалогаВыбораФайла.ВыборКаталога;
   ДиалогВыбораКаталога = Новый ДиалогВыбораФайла(РежимДиалога);
   ДиалогВыбораКаталога.МножественныйВыбор = Ложь;
   ДиалогВыбораКаталога.Заголовок = "Выберите путь для сохранения файла";
   Если ДиалогВыбораКаталога.Выбрать() Тогда
      КаталогДляПолученияФайлов = ДиалогВыбораКаталога.Каталог;
      Каталог = ДиалогВыбораКаталога.Каталог;
   КонецЕсли;
   ВыгрузитьXMLСхемуНаСервере(Каталог);

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

&НаСервере
Процедура ВыгрузитьXMLСхемуНаСервере(Каталог)
....
   Файл = Новый ЗаписьXML;   
   НазваниеФайла = "123";
   ПутьКФайлуПолное = "" + Каталог + "\" + НазваниеФайла;
   Файл.ОткрытьФайл(ПутьКФайлуПолное);
   Файл.ЗаписатьОбъявлениеXML();

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

sertak

Ну вот типа черновик такой для анализа:


&НаКлиенте
Процедура СохранитьФайлНаКлиенте()


АдресФайла = СформироватьФайлНаСервере();

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

ДиалогСохраненияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
ДиалогСохраненияФайла.Заголовок = "Выберите каталог";

Если ДиалогСохраненияФайла.Выбрать() Тогда

Данные.Записать(ДиалогСохраненияФайла.ПолноеИмяФайла);

КонецЕсли;

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

&НаСервере
Функция СформироватьФайлНаСервере()

/////////
//здесь должен быть собственно код создания и заполнения файла
ПолноеИмяФайлаНаСервере = ПолучитьИмяВременногоФайла();
/////////

Данные = Новый ДвоичныеДанные(ПолноеИмяФайлаНаСервере);
АдресФайла = ПоместитьВоВременноеХранилище(Данные);
УдалитьФайлы(ПолноеИмяФайлаНаСервере);

Возврат АдресФайла;

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

Теги: web-сервер файл 

Похожие темы (5)

Рейтинг@Mail.ru

Поиск