Как передать файл на FTP при помощи 1с
Появилась задача выгружать, формируемый в 1с файл на FTP сайта.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 | Функция ПодключитьсяКFTPСерверу() Экспорт Попытка Соединение = Новый FTPСоединение( "ftp.domen.nichost.ru", // адрес ftp сервера 21, // порт сервера "user", // имя пользователя "parol", // пароль пользователя Неопределено, // прокси не используется Истина, // пассивный режим работы 0, // таймаут (0 - без ограничений) Неопределено // незащищенное соединение ); // Для случаев, когда у ftp сервера нет возможности // обращаться к нам (мы находимся за межсетевым экраном) // следует использовать пассивный режим работы. Возврат Соединение; исключение Сообщить("Не удалось подключиться к серверу"); Сообщить(ОписаниеОшибки()); КонецПопытки; КонецФункции ТД1 = Новый ТекстовыйДокумент(); ТД1.УстановитьТекст(Рез); ТД1.ИспользуемоеИмяФайла = КаталогВременныхФайлов() + "file.json"; ТД1.Записать(ТД1.ИспользуемоеИмяФайла, КодировкаТекста.UTF8); Соединение = ПодключитьсяКFTPСерверу(); попытка // Установим текущий каталог. Соединение.УстановитьТекущийКаталог("domen.ru/docs/path"); Папка =КаталогВременныхФайлов(); // Запишем этот файл на сервер по ftp в папку path Соединение.Записать( Папка + "/file.json", // что записываем "file.json" // куда записываем ); Сообщить("Передали файл по FTP."); исключение Сообщить("Не удалось скопировать файлы на FTP"); Сообщить(ОписаниеОшибки()); КонецПопытки; |
