|
v7: Как выгрузить файл на FTP. | ☑ | ||
---|---|---|---|---|
0
megabax
01.08.13
✎
13:48
|
Подскажите плз, как сделать сабж в семерине. Что то в хэлпе по v7plus этого не нашел.
|
|||
1
Ёпрст
01.08.13
✎
13:49
|
на "Я" справа красную нажми
|
|||
2
varelchik
01.08.13
✎
14:27
|
(0) а что она уже и с FTP могеть работать?
|
|||
3
andrewalexk
01.08.13
✎
14:29
|
:) вот пример через шелл
Процедура ЗагрузкаСФТП(ПН) Экспорт Перем каталог,файл,ПРефикс,порция,колво,Ч,М,С,МаскаМомента,док,ТЗ_Товаров,СЗ_Товаров; ФТПСервер=Константа.ФТПСерверРег; Если ПустоеЗначение(ФТПСервер)=1 Тогда Возврат; КонецЕсли; каталог=КаталогВременныхФайлов(); Батничег_Начало="quote pasv |open "+ФТПСервер+" |user "+всждавмтлмжжмьзвтмвваи+" "+цуждбмсвмждамэбаэиаэби+" |cd /out/bal/"+Лев(ПН,10)+" |binary |quote pasv"; ИмяФТПФайла=СокрЛП(ПН)+".txt"; Попытка Батничег_Тело="get "+ИмяФТПФайла+" "+каталог+ИмяФТПФайла; Исключение Сообщить(ОписаниеОшибки()+"("+ИмяФТПФайла+"):","!"); КонецПопытки; ЧМС=ТекущееВремя(); Батничег.Очистить(); Батничег.ДобавитьСтроку(Батничег_Начало); Батничег.ДобавитьСтроку(Батничег_Тело); Батничег.ДобавитьСтроку("quit"); Батничег.Записать(Каталог+"ftpgetparam_"+СтрЗаменить(ЧМС,":","")+".txt"); Рез1=ШелСкрипт.Run("ftp -s:"+Каталог+"ftpgetparam_"+СтрЗаменить(ЧМС,":","")+".txt -n",0,1); Если Рез1<>0 Тогда Сообщить("Код ошибки выгрузки "+Рез1); КонецЕсли; КонецПроцедуры // |
|||
4
Злопчинский
01.08.13
✎
15:08
|
// //****************************************************************************************************************************
// //БЛОК ВЫГРУЗКИ НА ФТП ******************************************************************************************************* // //**************************************************************************************************************************** // ТекстВыгрузки = СоздатьОбъект("Текст"); // ТекстВыгрузки.ДобавитьСтроку("open " + "тут ойпишнег"); // ТекстВыгрузки.ДобавитьСтроку("логин"); // ТекстВыгрузки.ДобавитьСтроку("пароль"); // ТекстВыгрузки.ДобавитьСтроку("cd office"); // ТекстВыгрузки.ДобавитьСтроку("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"); // Исключение // тПротокол = ТекущееВремя()+" ПРОИЗОШЛА ОШИБКА ВО ВРЕМЯ ЗАГРУЗКИ СФОРМИРОВАННОГО ФАЙЛА НА СЕРВЕР ИНЕТРНЕТ-МАГАЗИНА"+РазделительСтрок+тПротокол; // тПротокол = ТекущееВремя()+ИмяПрайса+РазделительСтрок+тПротокол; // Форма.Обновить(); // ТекстВыгрузки.Показать(); // ТекстВыгрузки = ""; // КонецПопытки; // //**************************************************************************************************************************** // //БЛОК ВЫГРУЗКИ НА ФТП ******************************************************************************************************* // //**************************************************************************************************************************** |
|||
5
ADirks
01.08.13
✎
15:09
|
||||
6
Os1obos1o
01.08.13
✎
15:10
|
с чем стандартная, виндовая ftp.exe не угодила ?
|
|||
7
Злопчинский
01.08.13
✎
15:13
|
угу, я им в староой конторе пользовался
|
|||
8
Эльниньо
01.08.13
✎
16:18
|
(6) Нарисовал батник из 5-ти строк.
КомандаСистемы("МойБатник.bat") и всё. Чё мудрить? |
|||
9
varelchik
01.08.13
✎
17:18
|
(5,6,8) Увы тем то и плоха, что немогеть работать в активном режиме.
а так в принципе пойдет. Если надо таковой использовать то выручит разве что dialmail.dll |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |