1

Тема: Lotus и FTP

Кнопочка, которая закачивает на FTP сервер в папочку Vhodiashie файл "1.txt".
FTP UPLOAD

Use "NotesFTP"

Sub Click(Source As Button)
    Dim objFTP As NotesFTPSession
    Set objFTP=New NotesFTPSession
   
    With objFTP
        .Connect "IP", "user", "pass", 0
        .PutFile "C:\out\1.txt", "Vhodiashie/2.txt",    FTP_TRANSFER_TYPE_ASCI
        .Disconnect
    End With
   
    Delete objFTP
End Sub

Поделиться

2

Re: Lotus и FTP

Закачка файлов с ФТП
FTP DOWNLOAD

Sub Click(Source As Button)
    Dim objFTP As NotesFTPSession
    Set objFTP=New NotesFTPSession
   
    With objFTP
        .Connect  "IP", "user", "pass" 0
        '.ChangeDirectory("backups")
        xxx = .dir("backups")
        Forall v In xxx
            If Instr(v,"xml") Then            
                Print v
                remoteFile$ = "backups/"& v
                localFile$ = "E:\" & v
                .GetFile remoteFile$, localFile$, FTP_TRANSFER_TYPE_BINARY   
                .DeleteFile  remoteFile$
                ' создаем новый док в базе и прикрепляем к нему xml файл
               
            End If
        End Forall
       
        .Disconnect
    End With
   
    Delete objFTP
End Sub

Поделиться

3

Re: Lotus и FTP

На одном лотус серваке Агент (подпрограммы) Для приема файлов Xml с ФТП некорректно отрабатывают. Причина - Не читает полное имя файла (Пример 12011018.xml читает 018.xml). При этом на другом серваке тот же файл прочитывается нормально.
На данный момент установили :
-Windows 2003 - имена файлов не обрезаются;
-Windows 2008 - имена файлов обрезаются.
Примерно выяснили ошибка из за 64 битной системы.

В общем в библиотеке дополнили Тип и изменили несколько переменных объявив этим Типом. тестирование прошло успешно.

в библиотеке Notes FTP было :

' Win32 API struct for extracting file info
Private Type WIN32_FIND_DATA
 dwFileAttributes As Long
 ftCreationTime As Currency
 ftLastAccessTime As Currency
 ftLastWriteTime As Currency
 nFileSizeHigh As Long
 nFileSizeLow As Long
 dwReserved0 As Long
 dwReserved1 As Long
 cFileName As String * MAX_PATH
 cAlternate As String * 14
End Type

стало :

Private Type FILETIME
 dwLowDateTime As Long
 dwHighDateTime As Long
End Type

' Win32 API struct for extracting file info
Private Type WIN32_FIND_DATA
 dwFileAttributes As Long
 ftCreationTime As FILETIME
 ftLastAccessTime As FILETIME
 ftLastWriteTime As Long
 nFileSizeHigh As Long
 nFileSizeLow As Long
 dwReserved0 As Long
 dwReserved1 As Long
 cFileName As String * MAX_PATH
 cAlternate As String * 14
End Type

Поделиться