Имя: Пароль:
1C
1C 7.7
v7: Как скачать архив по sftp есть библиотека?
0 sysadminlk
 
08.01.14
15:32
Хочу средствами 1с скачивать архивы по sftp
1 NS
 
08.01.14
15:48
2 sysadminlk
 
08.01.14
16:08
(1) и как его подключить как объект?
3 ДенисЧ
 
08.01.14
16:14
(2) вызывай по КомандаСистемы()
4 NS
 
08.01.14
16:16
(2) Зачем? С ним работать как с Ftp.exe
5 Дык ё
 
08.01.14
16:18
6 sysadminlk
 
08.01.14
18:09
помогите переделать на язык 1с 7.7

http://winscp.net/eng/docs/library
7 sysadminlk
 
08.01.14
18:11
есть аналог на 1с 8
//СОЕДИНЕНИЕ
    Попытка
        
        //Задаем параметры подключения
        sessionOptions = Новый COMОбъект("WinSCP.SessionOptions"); //Создаем объект SessionOptions
        sessionOptions.HostName = "example.com";
        sessionOptions.UserName = "user";
        sessionOptions.Password = "mypassword";
        sessionOptions.SshHostKeyFingerprint = "ssh-rsa 1024 xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx";
        
        
        session = Новый COMОбъект("WinSCP.Session"); //Создаем объект Session
        
        //параметр необходимо использовать если пути регистрации DLL и исполняемого файла различны
        session.ExecutablePath = "C:\Program Files (x86)\WinSCP\winscp.exe";
        
        // Подключаемся
        session.Open(sessionOptions);
    Исключение
        Сообщить(ОписаниеОшибки());
        Возврат;
    КонецПопытки;
    
    //ВЫГРУЗКА
    Попытка
        ПутьВыгрузки = Объект.КаталогВыгрузки+"*";
        ПутьЗагрузкиНаФТП = Объект.КаталогЗагрузкиНаФТПСервере;
        
        //Выгружаем файлы
        transferResult = session.PutFiles(ПутьВыгрузки, ПутьЗагрузкиНаФТП);
        
        //Проверяем результат на возможные ошибки
        transferResult.Check();
        
        //Обрабатываем результат выгрузки
        Для каждого ВыгруженныйФайл Из transferResult.Transfers Цикл
            Сообщить("Выгружен файл: "+ВыгруженныйФайл.FileName);
            ПереместитьФайл(ВыгруженныйФайл.FileName, ХранилищеВыгруженныхФайлов);
        КонецЦикла;    
    Исключение
        Сообщить(ОписаниеОшибки());
    КонецПопытки;
    
    //ЗАГРУЗКА
    Попытка
        ПутьЗагрузки = Объект.КаталогЗагрузки+"\*";
        ПутьВыгрузкиНаФТП = Объект.КаталогВыгрузкиНаФТПСервере;
        
        //Загружаем файлы с удаленного сервера
        transferResult = session.GetFiles(ПутьВыгрузкиНаФТП, ПутьЗагрузки);
        
        //Проверяем возможные ошибки
        transferResult.Check();
        
        //Обрабатываем результат
        Для каждого ЗагруженныйФайл Из transferResult.Transfers Цикл
            Сообщить("Загружен файл: "+ЗагруженныйФайл.FileName);
            session.RemoveFiles(ЗагруженныйФайл.FileName); //Удаляем уже скаченные файлы
        КонецЦикла;
        
    Исключение
        Сообщить(ОписаниеОшибки());
    КонецПопытки;        
    
    //Разрываем соединение
    session.Dispose();
8 sysadminlk
 
08.01.14
18:12
Но его я тоже не могу переделать под семерку
9 sysadminlk
 
09.01.14
07:04
help!...