Версия для печати темы (https://pro1c.org.ua/index.php?s=8bbfba339206b44d24c3893c841d7d4e&showtopic=8165)

Автор: Mikst 16.07.12, 14:59

Добрый день.

На платформе 7.7.025, конфигурация не важна. Нужно написать обработку которая бы выкладывала XML файл на SFTP сервер.

У меня получился такой код:

Процедура Сформировать()
    Если ЗагрузитьВнешнююКомпоненту("DialMail.dll") = 0 Тогда
        Сообщить("Не удалось загрузить внешнюю компоненту DialMail.dll");
        Возврат;
    Конецесли;     
    ИмяФайла = "asda";
    SystComm = СоздатьОбъект("AddIn.SystComm"); 
      Сообщить(SystComm.Версия);
      FTP = СоздатьОбъект("AddIn.FTP");
      FTP.ИмяЛогФайла = "";
      FTP.ВестиЛогФайл = 0;              
      FTP.ИспользоватьSSL = 0;
      FTPСервер = "Сервер";      
      FTPПользователь = "Логин";
      FTPПароль = "Пароль";
      FTPПорт = "22";
      FTPПассивныйРежим = 0;
      Если FTP.Подключиться(FTPСервер, FTPПорт, FTPПользователь, FTPПароль, FTPПассивныйРежим) = 0 тогда
            Сообщить("соединение c " + FTPСервер + " не установлено...", "!");
      Иначе
            Сообщить("соединение c " + FTPСервер + " прошло успешно!");
            Если FTP.ОтправитьФайл(КаталогИБ()+ "111.xml", ИмяФайла, 0) = 1 Тогда 
                        тЧас = 0;
                        тМинута = 0;
                        тСекунда = 0;
                        ТекущееВремя(тЧас, тМинута, тСекунда);
                  Сообщить("Успешно!");
            Иначе
                  Сообщить("Ошибка!");
            КонецЕсли;            
            FTP.Отключиться();
      КонецЕсли;
КонецПроцедуры

Автор: logist 16.07.12, 15:08

      FTP.ИспользоватьSSL = 1;

Автор: DartRomanius 16.07.12, 15:11

Ага, FTP порт 22?

Автор: logist 16.07.12, 15:16

Цитата(DartRomanius @ 16.07.12, 16:11)

Автор: DartRomanius 16.07.12, 15:17

Сорри не досмотрел на SFTP.

Второе, DialMail умеет SFTP?

Автор: Mikst 16.07.12, 15:21

Цитата(DartRomanius @ 16.07.12, 16:17)

Автор: logist 16.07.12, 15:29

Автор: logist 16.07.12, 15:36

Цитата(Mikst @ 16.07.12, 16:35)

А как эту беду потом связать с 1С 7.7?

Средствами 77 сохранить файл на диске, потом командной строкой передать куда надо. Это не аддон к 77, а приложение для виндовс.

Автор: Mikst 16.07.12, 15:47

Цитата(logist @ 16.07.12, 16:36)

командной строкой передать куда надо. Это не аддон к 77, а приложение для виндовс.

Так не подходит, нужно что бы файл сам выгружался автоматически в определенное время, без какого либо вмешательства пользователя.

Автор: logist 16.07.12, 15:52

Цитата(Mikst @ 16.07.12, 16:47)

Так не подходит, нужно что бы файл сам выгружался автоматически в определенное время, без какого либо вмешательства пользователя.

А где я написал что пользователь должен вмешиваться? Работать с командной строкой надо из 1С.

Автор: -=VJ=- 07.08.12, 16:36

Цитата(Mikst @ 07.08.12, 16:43)

Создал я bat файл.

А зачем? КомандаСистемы(<?>) есть

Раз не запускается - проверьте, нормальный ли путь к файлу. Возможно 1С просто не может его обработать.

Автор: Mikst 07.08.12, 16:54

Цитата(-=VJ=- @ 07.08.12, 17:36)

А зачем? КомандаСистемы(<?>) есть

Раз не запускается - проверьте, нормальный ли путь к файлу. Возможно 1С просто не может его обработать.

код пишу такой:

КомандаСистемы(КаталогИБ() + "WinSCP\sftp.bat");

В файле sftp.bat такой код:

winscp.exe /console /script=script.ini

В файле script.ini такой код:

# Вывод лога на экран
option echo on
# Автоматическое подтверждение действия по умолчанию
option confirm off
# Соединяемся с сервером
open sftp://логин:пароль@сервер
# Загружаем файл обмена на сервер
put I:\База\WinSCP\11.xml /11.xml 
# Отсоединяемся от сервера
close
# Закрываем WinSCP
exit

Путь находит, сам файл запускается но не отрабатывает. Может как то можно это все вызвать сразу из 1с но я не знаю как.

Автор: logist 07.08.12, 17:46

КомандаСистемы(КаталогИБ() + "WinSCP\winscp.exe /console /script=script.ini");

bat файл не нужен.

Цитата(Mikst @ 07.08.12, 17:54)

файл запускается но не отрабатывает

Возможно нет исходного файла, или файл назначения уже есть, у вас же включено автоподтверждение поэтому вы не видите результата работы.

Автор: logist 08.08.12, 9:22

Цитата(Mikst @ 08.08.12, 10:06)

если без bat файла а так как Вы написали, то выдает сообщение: "Системе не удается найти указанный путь".
Хотя все ведь лежит на своих местах.

Вместо "КомандаСистемы" используйте "ЗапуститьПриложение"

Автор: Vofka 08.08.12, 9:29

Цитата(Mikst @ 08.08.12, 10:28)

Почему так?

Наверное в правах доступа дело.

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua