1С 8.2 УП : Выгрузка форматированного документа 1С на свой сайт

 &НаСервере

Функция ВыгрузитьОбъект(ТекОбъект)  Экспорт

    РезультатВыгрузки = "";



    //проверим есть ли описание объекта в базе

    ФорматированныйДокумент = ТекОбъект.Описание.Получить();

    Если ФорматированныйДокумент = Неопределено Тогда

        РезультатВыгрузки = "   У данного объекта не определено описание. Выгрузка объекта остановлена";

        Возврат РезультатВыгрузки;

    КонецЕсли;



    //Определяем настройки подключения к фтп

    Сервер = ХранилищеНастроек.ФТПСервер;

    Порт = ХранилищеНастроек.ФТПпорт;

    ИмяПользователяФТП = ХранилищеНастроек.ФТПИмяПользователя;

    ПарольПользователяФТП = ХранилищеНастроек.ФТППароль;

    ТекущийКаталогFTP = ХранилищеНастроек.ФТПТекущийКаталог;



    ФТП = Новый FTPСоединение(Сервер,,ИмяПользователяФТП,ПарольПользователяФТП);



    Попытка

        ФТП.УстановитьТекущийКаталог(ТекущийКаталогFTP);

    Исключение

        РезультатВыгрузки = "Невозможно подключиться к фтп";

        Возврат РезультатВыгрузки;

    КонецПопытки;



    ИмяКаталогаОбъекта = Формат(ТекОбъект.Ссылка.Код, "ЧЦ=5; ЧВН=; ЧГ=");



    //Каталог для элемента

    Попытка

        ФТП.УстановитьТекущийКаталог(ТекущийКаталогFTP + "/" + ИмяКаталогаОбъекта);

    Исключение

        ФТП.СоздатьКаталог(ИмяКаталогаОбъекта);

        ФТП.УстановитьТекущийКаталог(ТекущийКаталогFTP + "/" + ИмяКаталогаОбъекта);

        РезультатВыгрузки = РезультатВыгрузки + Символы.ПС + "   Создан каталог " + ТекущийКаталогFTP + "/" + ИмяКаталогаОбъекта;

    КонецПопытки;



    //Чистка имеющихся элементов в каталоге элемента

    ФТП.Удалить(ТекущийКаталогFTP + "/" + ИмяКаталогаОбъекта,"*.*");



    ТекстХТМЛ = "";

    СтруктураКартинок = Новый Структура;

    ФорматированныйДокумент.ПолучитьHTML(ТекстХТМЛ, СтруктураКартинок);



    //Выгрузка картинок и корректировка ХТМЛ

    Для Каждого ТекКартинка Из СтруктураКартинок Цикл

        ИмяТемпФайла = ПолучитьИмяВременногоФайла();

        ТекКартинка.Значение.Записать(ИмяТемпФайла);

        ФорматТекущейКартинки = Строка(ТекКартинка.Значение.Формат());

        Если Не ФорматТекущейКартинки = ФорматКартинки.НеизвестныйФормат Тогда

            ФорматТекущейКартинкиСтрока = Строка(ФорматТекущейКартинки);

            ТекстХТМЛ = СтрЗаменить(ТекстХТМЛ,ТекКартинка.Ключ,ТекКартинка.Ключ+ "." + ФорматТекущейКартинкиСтрока);

            ФТП.Записать(ИмяТемпФайла, ТекКартинка.Ключ+ "." + ФорматТекущейКартинкиСтрока);

            РезультатВыгрузки = РезультатВыгрузки + Символы.ПС + "   Записан файл " + ТекКартинка.Ключ+ "." + ФорматТекущейКартинкиСтрока;

        Иначе

            ФТП.Записать(ИмяТемпФайла, ТекКартинка.Ключ);

            РезультатВыгрузки = РезультатВыгрузки + Символы.ПС + "   Записан файл " + ТекКартинка.Ключ;

        КонецЕсли;

    КонецЦикла;



    //ВыгрузкаХТМЛ

    ИмяТемпФайла = ПолучитьИмяВременногоФайла("html");

    ФайлHТМЛ = Новый ТекстовыйДокумент;

    ФайлHТМЛ.ДобавитьСтроку(ТекстХТМЛ);

    ФайлHТМЛ.Записать(ИмяТемпФайла);



    //Собственно запись хтмл

    ФТП.Записать(ИмяТемпФайла, ИмяКаталогаОбъекта + ".html");

    РезультатВыгрузки = РезультатВыгрузки + Символы.ПС + "   Записан файл " + ИмяКаталогаОбъекта + ".html";



    Возврат РезультатВыгрузки;

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