К списку форумов К списку тем
Регистрация    Правила    Главная форума    Поиск   
Имя: Пароль:
Рекомендовать в новости

Как работать с sftp сервером из 7.7?

Гость
0 - 05.12.2012 - 16:17
Ребят, подскажите, был у кого опыт? Как можно проще реализовать закачку файлов на sftp, какую-то компоненту м/б, где будут четкие процедуры, такая то процедура задает параметры подключения, такая то заливает файл с указанным именем ну и т.п. А то, что нахожу в инете, как-то сложновато в понимании, на инфостарте пример нашел, но он под "восьмерку" http://infostart.ru/public/145717/, в семерку что-то не переделывается..Спасибо


1 - 05.12.2012 - 20:02
будь мужиком, откажись от ВК!
2 - 05.12.2012 - 20:05
ТекстВыгрузки.Записать(КаталогПользователя()+(ИмяП райса+".csv"));
ТекстВыгрузки = "";

//************************************************** ************************************************** ************************
//БЛОК ВЫГРУЗКИ НА ФТП ************************************************** ************************************************** ***
//************************************************** ************************************************** ************************
ТекстВыгрузки = СоздатьОбъект("Текст");
ТекстВыгрузки.ДобавитьСтроку("open " + "90.156.149.200");
ТекстВыгрузки.ДобавитьСтроку("тутлогин");
ТекстВыгрузки.ДобавитьСтроку("тутпароль");
ТекстВыгрузки.ДобавитьСтроку("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");
Исключение
тПротокол = ТекущееВремя()+" ПРОИЗОШЛА ОШИБКА ВО ВРЕМЯ ЗАГРУЗКИ СФОРМИРОВАННОГО ФАЙЛА НА СЕРВЕР ИНЕТРНЕТ-МАГАЗИНА"+РазделительСтрок+тПротокол;
тПротокол = ТекущееВремя()+ИмяПрайса+РазделительСтрок+тПротоко л;
Форма.Обновить();
ТекстВыгрузки.Показать();
ТекстВыгрузки = "";
КонецПопытки;
//************************************************** ************************************************** ************************
//БЛОК ВЫГРУЗКИ НА ФТП ************************************************** ************************************************** ***
//************************************************** ************************************************** ************************
Гость
3 - 05.12.2012 - 21:14
Я извиняюсь, это именно для Sftp?
4 - 05.12.2012 - 21:24
(3) Нет, это для мужиков!
5 - 05.12.2012 - 23:37
(2) это не работает на SFTP
Гость
6 - 06.12.2012 - 01:17
(5)спасибо ,(2) тоже спасибо,а вот мысль - если в команду системы написать, не ftp , а приложение, которое работает с sftp.
Гость
7 - 07.12.2012 - 21:33
Ребят, никто вообщем не работал с этим?


К списку вопросов
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск




Copyright ©, Все права защищены