агент для закачки файлов с фтп

Тема в разделе "Lotus - Программирование", создана пользователем johny, 16 май 2007.

  1. johny

    johny Гость

    помогите люди добрые!
     
  2. Ronchik

    Ronchik Гость

    Предлагаю на винде создать сетевой диск с подключением на нужный ресурс, а уже потом писать агента
     
  3. Fossil Code

    Fossil Code Гость

    Гораздо приятнее (и надежнее) качать другими средствами, автоматизирующими доступ к фтп, помещать файлы в место, доступное Лотусу, а оттуда уже забирать агентом.
     
  4. johny

    johny Гость

    это не подходит....
    надо чтоб агент выполнял команду list "*.txt"
    потом dirlist
    а потом сохранял в нужном каталоге с оригинальными именами

    может у кого есть инфа по работе с фтп в lotus script'e?
     
  5. Ronchik

    Ronchik Гость

    Поиск файла по указаному пути
    Код (Text):
    Function FBool(FilePath As String) As Boolean 'для поика файла
    Dim fileNameArray As String
    FBool=False
    fileNameArray = Dir$(FilePath, 0)
    Do While fileNameArray <> ""
    If fileNameArray = FileName Then FBool=True
    fileNameArray = Dir$()
    Loop
    End Function
    может это поможет
     
  6. Fossil Code

    Fossil Code Гость

    Самостоятельно писать TCP/IP - приложение через WinAPI на лотусовом скрипте настоятельно не рекомендовал бы, но на вкус и цвет... Есть (был) в Дельфи компонент, представляющий как раз сравнительно высокоуровневый интерфейс к функциям обмена по фтп. Если это DLL, или если встроить требуемый Вами функционал в DLL, то обращаться к ней из агента будет намного проще. Но это уже к Дельфийским гуру :)
     
  7. Constantin A Chervonenko

    Constantin A Chervonenko Well-Known Member

    Регистрация:
    30 май 2006
    Сообщения:
    1.288
    Симпатии:
    0
    Аналогично.
    TCP/IP прилады для LND нонче кошерно писать на Java. Для ftp у Sun есть даже заготовка (unsupported class). См Tips
     
  8. johny

    johny Гость

    Код (Text):
    Set objFTP=New NotesFTPSession
    With objFTP
    .Connect serFtp$,ftpLogin$ , ftppass$, 0
    .ChangeDirectory    ftpDir$
    vFiles=.Dir(mask$)
    If Isempty ( vFiles ) Then Exit Sub
    For n%=0 To Ubound(vFiles)
    .GetFile vFiles(n%), pathname$+vFiles(n%), FTP_TRANSFER_TYPE_ASCII
    .DeleteFile vFiles(n%)
    Next       
    .Disconnect
    End With
    Delete objFTP
    вот и усе))
     
  9. Kee_Keekkenen

    Kee_Keekkenen Well-Known Member

    Регистрация:
    5 сен 2006
    Сообщения:
    616
    Симпатии:
    4
    сам догадался или подсмотрел ? :rolleyes:
     
  10. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Для: johny
    кул, а это откудаво взято? в 6ке сработает?
     
  11. Kee_Keekkenen

    Kee_Keekkenen Well-Known Member

    Регистрация:
    5 сен 2006
    Сообщения:
    616
    Симпатии:
    4
    может это..<br>'+++++++++++++++++++++++++++++++++++++++<br>' NotesFTP Script Library (Notes.net sample)<br>' Copyright &copy; 2000 Paul D. Ray<br>' Last Update: May 29, 2000<br>'+++++++++++++++++++++++++++++++++++++++<br><br>
     
  12. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Для: Kee_Keekkenen
    не много не понял :blink: , а ссылка на оригинал есть? что за библиотека такая полезная?!!!
     
  13. Constantin A Chervonenko

    Constantin A Chervonenko Well-Known Member

    Регистрация:
    30 май 2006
    Сообщения:
    1.288
    Симпатии:
    0
    См в "песочнице". Но она-таки чистА под WinAPI заточена
     
  14. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Для: Constantin A Chervonenko
    я так понимаю вот оно - NotesFTP Script Library
    хм.. ярчайший пример использования WinAPI
     
  15. johny

    johny Гость

    Терпение и труд - все перетрут :D
     
Загрузка...

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