FTP и 1С

Добавить свою публикацию

для этого требуется регистрация

Романов Василий Сергеевич

04.11.2014

Начинающему > Введение в 1С

Первым делом создал вот такую вот обработку с именем "Выгрузка на сайт"

Сделал форму

На форме видно две команды, первая формирует список для выгрузки, вторая делает ее, в закладке настройки прописаны настройки для соединения с фтп сервером:

А теперь про сам код:

&НаСервере
Процедура ВыгрузитьНаСервере()
АдресФайла = "D:\Выгрузка.csv";
Текст = Новый ТекстовыйДокумент;
ТЧ = Объект.Выгрузка;
Для каждого Стр из ТЧ Цикл
Имей = Строка(Стр.Имей);
Статус = Строка(Стр.Статус);
Текст.ДобавитьСтроку(Имей + ";" + Статус);
КонецЦикла;
Текст.Записать(АдресФайла, "cp-1251");
Попытка 
FTPСоединение=Новый FTPСоединение(Объект.АдресФТПСервера,Объект.Порт,Объект.Логин,Объект.Пароль);
Каталог = "/www/***.ru";
Попытка
FTPСоединение.УстановитьТекущийКаталог(Каталог);
Попытка 
FTPСоединение.Записать(АдресФайла,"file_upload.csv");
Сообщить("Выгрузка успешно завершена");
Исключение
Сообщить("Не удалось записать файл на сервер");
КонецПопытки;
Исключение
Сообщить("Не удалось перейти в каталог");
КонецПопытки;
Исключение
Сообщить("Не удалось соединиться с фтп сервером");
КонецПопытки;
КонецПроцедуры

Расскажем всю обработку построчно,

АдресФайла = Это место на диске, ведь прежде, чем выгрузить что то на сервер, мы должны изначально создать файл на самом диске компьютера. Далее идет работа с текстовым документом, ее рассмотрим позже и отдельно.

ФТПСоединение = Создаем коннект с серваком, где есть адрес, порт, логин и пароль

ФТПСоединение.УстановитьТекущийКаталог = Переходим в нужную папку на сервере чтобы именно туда и залить наш файлик.

ФТПСоединение.Записать = АдресФайла, это откуда мы берем файл, а вторым параметром передаем, имя файла как он сохраниться на сервере.

Ну и все это дело у нас в обработке ошибок, ПОПЫТКА,ИСКЛЮЧЕНИЕ,КОНЕЦПОПЫТКИ.

Все понятно и как видно ничего трудного! Спасибо))

предыдущие ()все

Еще от автора

≡ к списку статей