| 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
| Ребят, никто вообщем не работал с этим? | |
Интернет-форум Краснодарского края и Краснодара |
