найтипервыйфайл » Поиск

Результаты по ключевому слову: найтипервыйфайл

Как удалить Файл, Каталог? Категория: Работа с Файлами и Каталогами

Обмен файлами с FTP сервером средствами Windows

Код 1C v 8.х

  // Передать файл по FTP

Процедура ПередатьПоFTP(ИмяФайла,ПутьФТП=Неопределено) Экспорт

    Если ПутьФТП = Неопределено Тогда

        ТекПутьФТП = ПараметрыСеанса.FTPПуть;

    Иначе

        ТекПутьФТП = ПутьФТП;

    КонецЕсли;    

    

    //создаем скрипт для соединения и отправки

    Скрипт=Новый ТекстовыйДокумент;

    Скрипт.ДобавитьСтроку("open "+ПараметрыСеанса.FTP);

    Скрипт.ДобавитьСтроку("user");

    Скрипт.ДобавитьСтроку(ПараметрыСеанса.FTPЛогин);

    Скрипт.ДобавитьСтроку(ПараметрыСеанса.FTPПароль);

    Скрипт.ДобавитьСтроку("binary");

    

   //при необходимости входим в каталог, возможно, таких команд будет несколько

    Скрипт.ДобавитьСтроку("cd "+ТекПутьФТП);

    Скрипт.ДобавитьСтроку("put "+ПараметрыСеанса.ПутьКФайлуОбраза+"\"+ИмяФайла);

    Скрипт.ДобавитьСтроку("bye");

    

    //записываем скрипт на диск

    Файл = Новый Файл(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+"ftp.txt");

    Скрипт.Записать(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+"ftp.txt", "windows-1251");



    //а теперь запускаем его выполнение

    КомандаСистемы("ftp -n -s:"+ПараметрыСеанса.ПутьКФайлуОбраза+"\ftp.txt");

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



// Получить файл по FTP

Процедура ПолучитьПоFTP(ИмяФайла,ПутьФТП=Неопределено) Экспорт

    Если ПутьФТП = Неопределено Тогда

        ТекПутьФТП = ПараметрыСеанса.FTPПуть;

    Иначе

        ТекПутьФТП = ПутьФТП;

    КонецЕсли;    

    

    //создаем скрипт для соединения и отправки

    Скрипт=Новый ТекстовыйДокумент;

    Скрипт.ДобавитьСтроку("open "+ПараметрыСеанса.FTP);

    Скрипт.ДобавитьСтроку("user");

    Скрипт.ДобавитьСтроку(ПараметрыСеанса.FTPЛогин);

    Скрипт.ДобавитьСтроку(ПараметрыСеанса.FTPПароль);

    Скрипт.ДобавитьСтроку("binary");



    //при необходимости входим в каталог, возможно, таких команд будет несколько

    Скрипт.ДобавитьСтроку("cd "+ТекПутьФТП);

    Скрипт.ДобавитьСтроку("get");

    Скрипт.ДобавитьСтроку(ИмяФайла);

    Скрипт.ДобавитьСтроку(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+ИмяФайла);

    Скрипт.ДобавитьСтроку("bye");

 

   //записываем скрипт на диск

    Файл = Новый Файл(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+"ftp.txt");

    Скрипт.Записать(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+"ftp.txt", "windows-1251");



    //а теперь запускаем его выполнение

    КомандаСистемы("ftp -n -s:"+ПараметрыСеанса.ПутьКФайлуОбраза+"\ftp.txt");

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

Код 1C v 7.x

 // Пример от 0xFFFFFF

// Может быть проблема в том, что 1С естественно не дожидается окончания перемещения файлов (movehere) 

// и пока копируются файлы, код продолжает выполняться далее.



Функция ОтправитьФайлыЧерезFTP()          

    //подключаемся, отправляем

    Попытка

        Шел=СоздатьОбъект("shell.application");

        ПапкаФТП=Шел.namespace("ftp://" +СокрЛП(ФТП_Пользователь)+ ":" +СокрЛП(ФТП_Пароль)+ "@" + СокрЛП(ФТП_УРЛ) + "/" +СокрЛП(ФТП_ПутьИсходящих));

         ПапкаИсточник=Шел.namespace(КаталогИсходящих);

        ПапкаЗагруженных = Шел.namespace(КаталогЗагруженных);

        Предупреждение("Подключение к FTP серверу...",1);    

        Темы=ПапкаИсточник.items();

        ПапкаЗагруженных.copyhere(Темы);

        //Темы.filter(64,"*.txt"); 

         ПапкаФТП.movehere(Темы);

    Исключение                  

        Предупреждение("Внимание! Не удалось передать файлы адресату через FTP! Возможно, параметры FTP заданы неверно, либо отсутствует связь.");

        Возврат 0;

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

    

    //проверяем

     ФС.УстТекКаталог(КаталогИсходящих);

    ПопытокПроверки = 3;

    Для Сч = 1 По ПопытокПроверки Цикл

        Если НЕ ((СокрЛП(ФС.НайтиПервыйФайл("*.*"))="") или (СокрЛП(ФС.НайтиПервыйФайл("*.*"))=".")) Тогда

            Если Сч = ПопытокПроверки Тогда

                Предупреждение("Внимание! Не удалось передать файлы адресату через FTP! Попробуйте совершить обмен позже.");

                Возврат 0;

            КонецЕсли;

            Предупреждение("Передача файлов....", 3);

        КонецЕсли;

    КонецЦикла;

    

    Возврат 1;

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



Функция ПолучитьФайлыЧерезFTP()          

    //подключаемся

     Попытка

        Шел=СоздатьОбъект("shell.application");

        ПапкаФТП=Шел.namespace("ftp://" +СокрЛП(ФТП_Пользователь)+ ":" +СокрЛП(ФТП_Пароль)+ "@" + СокрЛП(ФТП_УРЛ) + "/" +СокрЛП(ФТП_ПутьВходящих));

 

        ПапкаПриемник=Шел.namespace(КаталогВходящих);   

        ПапкаЗагруженных = Шел.namespace(КаталогЗагруженных);

        Предупреждение("Подключение к FTP серверу...",1);

        Темы=ПапкаФТП.items();

        ПапкаЗагруженных.copyhere(Темы);

        //Темы.filter(64,"*.txt");                             

         ПапкаПриемник.movehere(Темы);

    Исключение                  

        Предупреждение("Внимание! Не удалось получить файлы через FTP! Возможно, параметры FTP заданы неверно, либо отсутствует связь.");

        Возврат 0;

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

    

    //проверяем

    ПопытокПроверки = 3;

    Для Сч = 1 По ПопытокПроверки Цикл

        Если ПапкаФТП.items().count>0 Тогда

            Если Сч = ПопытокПроверки Тогда

                Предупреждение("Внимание! Не удалось получить файлы через FTP! Попробуйте совершить обмен позже.");

                Возврат 0;

            КонецЕсли;

            Предупреждение("Получение файлов....", 3);

        КонецЕсли;

    КонецЦикла;

    

    Возврат 1;             

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

Код 1C v 7.x

  //БЛОК ВЫГРУЗКИ НА ФТП 

    ТекстВыгрузки.Записать(КаталогПользователя()+(ИмяПрайса+".csv"));

    ТекстВыгрузки = "";

    ТекстВыгрузки = СоздатьОбъект("Текст");

    ТекстВыгрузки.ДобавитьСтроку("open " + "192.168.0.1"); //адрес

    ТекстВыгрузки.ДобавитьСтроку("****"); //логин

    ТекстВыгрузки.ДобавитьСтроку("*****"); //пароль

    ТекстВыгрузки.ДобавитьСтроку("put " + КаталогПользователя() + (ИмяПрайса+".csv"));

    ТекстВыгрузки.ДобавитьСтроку("bye");

    ТекстВыгрузки.Записать(КаталогПользователя() + "ftp.txt");

    ТекстВыгрузки = "";

    

    КомандаСистемы("ftp -s:" + КаталогПользователя() + "Ftp.txt>> " + (КаталогПользователя() + "report.txt"));

    ФС.УдалитьФайл(КаталогПользователя() + "ftp.txt");

    

    ТекстВыгрузки = СоздатьОбъект("Текст");

    ТекстВыгрузки.Открыть(КаталогПользователя() + "report.txt");

    КС = ТекстВыгрузки.КоличествоСтрок()-4; //если все нормально - то в этой строке файла должно быть соотв.сообщение

 

   //проверим его 

    Попытка 

        строкаКомплете = ТекстВыгрузки.ПолучитьСтроку(КС);

        Если  Найти(Нрег(строкаКомплете),"226 transfer complete") = 0

        Тогда а=1; а=а/0;

        КонецЕсли;

        тПротокол = ТекущееВремя()+" файл данных успешно отправлен на сервер интернет-магазина"+РазделительСтрок+тПротокол;

        Форма.Обновить();

        ТекстВыгрузки = "";

        ФС.УдалитьФайл(КаталогПользователя() + (ИмяПрайса+".csv"));

        ФС.УдалитьФайл(КаталогПользователя() + "report.txt");

    Исключение

        тПротокол = ТекущееВремя()+" ПРОИЗОШЛА ОШИБКА ВО ВРЕМЯ ЗАГРУЗКИ СФОРМИРОВАННОГО ФАЙЛА НА СЕРВЕР ИНЕТРНЕТ-МАГАЗИНА"+РазделительСтрок+тПротокол;

        тПротокол = ТекущееВремя()+ИмяПрайса+РазделительСтрок+тПротокол;

        Форма.Обновить();

        ТекстВыгрузки.Показать();

        ТекстВыгрузки = "";

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

Категория: Работа с Интернет, Почтой (Mail), FTP

Вывод картинки (изображения) на печать, в макет (табличный документ)

Код 1C v 8.х

 // 1-й вариант

//Как вывести картинку в табличный документ?



ТабДок = Новый ТабличныйДокумент; 

Макет = ОбработкаОбъект.ПолучитьМакет("Макет"); 

ОбластьКартинки = Макет.ПолучитьОбласть("ОбластьСКартинкой"); 

Картинка = Новый Картинка(ПутьККартинке); 



// Элемент управления "Логотип" входит в коллекцию картинок области. 

ОбластьКартинки.Рисунки.Логотип.Картинка = Картинка; 

ТабДок.Вывести(ОбластьКартинки); 



ТабДок.Показать(); 



// 2-й вариант

//Как вывести картинку в табличный документ без изменения макета?



Область = Макет.ПолучитьОбласть("Шапка"); 

Рисунок = Область.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка); 

Рисунок.Верх = 5; 

Рисунок.Высота = 10; 

Рисунок.Ширина = 10; 

Рисунок.Лево = 5; 

Рисунок.Картинка = Новый Картинка(ПутьККартинке); 

Рисунок.РазмерКартинки = РазмерКартинки.РеальныйРазмер; 



ТабДок.Вывести(Область); 



//3-й вариант

//ПечатьОрганизации , добавляем в макет картинку с именем Картинка1 в самую нижнюю

//область с именем ОбластьПечатьОрганизации

ОбластьПечатьОрганизации = Макет.ПолучитьОбласть("ПечатьОрганизации");

Картинка= Новый Картинка("C:\files\img\печатьОрганизации.gif") ;

ОбластьПечатьОрганизации.Рисунки.Картинка1.Картинка = картинка;

ТабДок.Вывести(ОбластьПечатьОрганизации);



// 4-й вариант динамически

ОбластьПечатьОрганизации = Макет.ПолучитьОбласть("ПечатьОрганизации");

КартинкаПечатьОрганизации = ОбластьПечатьОрганизации.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);

КартинкаПечатьОрганизации.Картинка = БиблиотекаКартинок.ОбщаяКартинка1;

КартинкаПечатьОрганизации.Верх = 0;

КартинкаПечатьОрганизации.Высота = 80;

КартинкаПечатьОрганизации.Ширина = 80;

КартинкаПечатьОрганизации.Лево = 50;

КартинкаПечатьОрганизации.ГраницаСверху = Ложь;

КартинкаПечатьОрганизации.ГраницаСлева = Ложь;

КартинкаПечатьОрганизации.ГраницаСправа = Ложь;

КартинкаПечатьОрганизации.ГраницаСнизу = Ложь;

КартинкаПечатьОрганизации.РазмерКартинки = РазмерКартинки.АвтоРазмер;

ТабДок.Вывести(ОбластьПечатьОрганизации);



//5-й вариант получение картинки из хранилища значений

// Выборка.Изображение - выборка из запроса, Изображение реквизит -хранил. значений  

Попытка

    Путь = КаталогВременныхФайлов()+ "\1С_Картинка_"+Формат(ТекущаяДата(),"ДФ=yyyyMMddЧЧммсс")+".bmp";

    КартинкаВПамяти = Выборка.Изображение.Получить();

    КартинкаВПамяти.Записать(Путь);

    ОбластьСостав.Рисунки.D1.Картинка = Новый Картинка(Путь);

Исключение

    ОбластьСостав.Рисунки.D1.Картинка = Новый Картинка;

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

Для 7.7 пример обработки, которая выводит все картинки (.jpg) из выбранного каталога (и подкаталогов) в печатную форму Скачивать файлы может только зарегистрированный пользователь!

Вот ее код:

Код 1C v 7.x

 Перем Картинка, ТЗКаталога, ПутьКаталогаРисунков;

//******************************************************************************

Процедура Сформировать1()

    Таб = СоздатьОбъект("Таблица");

    Таб.ИсходнаяТаблица("Сформировать");

    Картинка = СоздатьОбъект("Картинка");

    т=1;

    ТЗКаталога.ВыбратьСтроки();

    Пока ТЗКаталога.ПолучитьСтроку() = 1 Цикл

        Картинка.Загрузить(ТЗКаталога.Путь);

        Сформировать = т; 

        Таб.ВывестиСекцию("Заголовок");

        т = т+1;

    КонецЦикла;

    Таб.Опции(0,0,0,0);

    Таб.Показать("Сформировать","");

    ТЗКаталога = "";

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

//******************************************************************************

Процедура карт(карт)     //Вызывается из объекта картинка на печатной форме

    карт.РежимРисования(3);

    карт.УстановитьКартинку(Картинка);

КонецПроцедуры      //карт(карт)     Вызывается из объекта картинка на печатной форме

//******************************************************************************

Процедура СканироватьКаталог(Каталог)    

    Перем А;

    ФСО=СоздатьОбъект("ФС");

    Ф=ФСО.НайтиПервыйФайл(Каталог+"*");

    Пока Ф<>"" Цикл

        Если (Ф<>".")И(Ф<>"..") Тогда

            ФС.АтрибутыФайла(Каталог+Ф,,А);

            Если Сред(А,4,1)="1" Тогда 

                СканироватьКаталог(Каталог+Ф+"\");

            Иначе 

                Если (Прав(Ф,4)=".jpg") или (Прав(Ф,4)=".wmf") или (Прав(Ф,4)=".emf") или (Прав(Ф,4)=".ico") или (Прав(Ф,4)=".bmp") или (Прав(Ф,4)=".dib") или (Прав(Ф,4)=".rle") Тогда

                    ТЗКаталога.НоваяСтрока();

                    ТЗКаталога.Путь = Каталог+Ф;

                    ТЗКаталога.Файл = Ф;        //Для поиска файла по имени (исп в другой обработке)

                КонецЕсли;

            КонецЕсли;

        КонецЕсли;

        //Сообщить(Каталог+Ф);

        Ф=ФСО.НайтиСледующийФайл();

    КонецЦикла;

КонецПроцедуры  //СканироватьКаталог(Каталог)   

//******************************************************************************

Процедура Сформировать()  

    Если ФС.ВыбратьКаталог(ПутьКаталогаРисунков,"Выберете папку с рисунками .jpg...",60) <> 1 Тогда

        Предупреждение("Рисунки не покажу!"); 

        Возврат;

    Иначе 

        ТЗКаталога = СоздатьОбъект("ТаблицаЗначений");

        ТЗКаталога.НоваяКолонка("Путь",,,,,,,);

        ТЗКаталога.НоваяКолонка("Файл",,,,,,,);

        СканироватьКаталог(ПутьКаталогаРисунков+"\");

    КонецЕсли;

    Сформировать1(); 

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

Категория: Табличный документ

Пример реализации контроля ошибок при сохранение данных на дискету Категория: Полезные, Универсальные Функции