7.7 ftp и 1С

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 7.7"", создана пользователем aksenov_as, 8 окт 2007.

  1. TopicStarter Overlay
    aksenov_as
    Offline

    aksenov_as

    Регистрация:
    6 июн 2007
    Сообщения:
    30
    Симпатии:
    0
    Баллы:
    1
    Функция ВыгрузитьВФТП()
    //подготавливаем файл с командами ftp
    ВременныйСкриптФайл="InetFTP.tmp";
    Т=СоздатьОбъект("Текст");
    Т.ДобавитьСтроку("open "+Сокрлп(База.АдресСервера));
    Т.ДобавитьСтроку(Сокрлп(База.Логин));
    Т.ДобавитьСтроку(Сокрлп(База.Пароль));
    // sg
    Т.ДобавитьСтроку("passive");
    // sg
    Т.ДобавитьСтроку("prompt");
    Т.ДобавитьСтроку("binary");
    Т.ДобавитьСтроку("mkdir "+Сокрлп(База.КаталогВыгрузки));
    Т.ДобавитьСтроку("cd "+Сокрлп(База.КаталогВыгрузки));
    Т.ДобавитьСтроку("put flag.mod"); //посылаем проверочный флаг
    Т.ДобавитьСтроку("mput *.mod");//get
    Т.ДобавитьСтроку("mput *.a??");//get
    Т.ДобавитьСтроку("get flag.mod flag2.mod");//считываем - его
    Т.ДобавитьСтроку("quit");//выход

    Т.Записать(ПутьКБазеПриВыгрузке+"\"+ВременныйСкриптФайл);

    ФайлФлага=ПутьКБазеПриВыгрузке+"\flag.mod";
    ФайлФлага2=ПутьКБазеПриВыгрузке+"\flag2.mod";
    Т=СоздатьОбъект("Текст");
    Т.ДобавитьСтроку("=Проверка связи=");
    Т.Записать(ФайлФлага);
    Если ФС.СУществуетФайл(ФайлФлага2)=1 Тогда
    ФС.УдалитьФайл(ФайлФлага2);
    КонецЕсли;

    Фс.УстТекКаталог(ПутьКБазеПриВыгрузке);
    // sg
    //Команда="ftp -d -s:"""+ВременныйСкриптФайл+""">ftp_out.log";
    Команда="ftps -d -s:"""+ВременныйСкриптФайл+""">ftp_out.log";
    // sg

    КомандаСистемы(Команда);
    Фс.УдалитьФайл(ПутьКБазеПриВыгрузке+"\"+ВременныйСкриптФайл);
    Рез=ФС.СУществуетФайл(ФайлФлага2); //если файл существует, то соединение было успешное
    ФС.УстТекКаталог(КаталогИБ());
    Возврат Рез;
    КонецФункции





    ftp_in.log:

    ftp> 220 Microsoft FTP Service
    Connected to ***.234.27.174.
    User: 331 Password required for test.
    Password: 230 User test logged in.
    ftp> Passive mode On .
    ftp> Interactive mode Off .
    ftp> 200 Type set to I.
    ftp> 550 OUT_1010***: Невозможно создать файл, так как он уже существует.
    ftp> 250 CWD command successful.
    ftp> 227 Entering Passive Mode (***,234,27,174,4,47).
    125 Data connection already open; Transfer starting.
    226 Transfer complete.
    ftp: 16 bytes sent in 0.28Seconds 0.06Kbytes/sec.
    ftp> 227 Entering Passive Mode (***,234,27,174,4,48).
    125 Data connection already open; Transfer starting.
    226 Transfer complete.
    ftp: 16 bytes received in 0.23Seconds 0.07Kbytes/sec.
    ftp> 200 Type set to A.
    227 Entering Passive Mode (***,234,27,174,4,49).
    125 Data connection already open; Transfer starting.
    ftp: 11 bytes received in 0.06Seconds 0.17Kbytes/sec.
    226 Transfer complete.
    200 Type set to I.
    227 Entering Passive Mode (***,234,27,174,4,50).
    125 Data connection already open; Transfer starting.
    226 Transfer complete.
    ftp> 221



    Рез у меня возвращается отрицательное.
    Подскажите плз, почему нет соединения? Через Total захожу на ftp свободно.

Поделиться этой страницей