Имя: Пароль:
1C
1C 7.7
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
лучше ncftpput / ncftpget нет ничего!

http://www.ncftp.com/ncftp/
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
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой