[Сеть, интернет] копирование а затем отправка файла по FTP

zeionline · 7 Сен 2011

Версия AutoIt: v3.3.6.1.
Описание:

Код:

#include <FTPEx.au3>
Global $iSizeMax = 1024, _ ;1 kb
        $sServer = "***", _ ;ftp host
        $sUsername = "***", _ ;Ftp user
        $sPass = "***", _ ;Ftp password
        $sFileLocal = @WindowsDir & '\results.txt', _;C:\results.txt
        $sFileFTP = 'kop_results.txt', _
        $iTimeOut = 60000, _ ; 1 min.
        $iStart = TimerInit()
While 1
    If TimerDiff($iStart) > $iTimeOut Then
        $iSize = FileGetSize($sFileLocal)
        If $iSize > $iSizeMax Then
            For $i = 1 To 1
                $hOpen = _FTP_Open('MyFTP Control')
                If @error Then ExitLoop
                $hConn = _FTP_Connect($hOpen, $sServer, $sUsername, $sPass, 1)
                If @error Then ExitLoop
                _FTP_FilePut($hConn, $sFileLocal, $sFileFTP)
                If @error Then ExitLoop
            Next
            If Not @error Then
                $iSizeMax += 1024
            EndIf
            _FTP_Close($hOpen)
        EndIf
        $iStart = TimerInit()
    EndIf
    Sleep(50)
WEnd

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

Примечания:
Вышеуказанный код отправляет файл на FTP каждые 60 секунд если его размер увеличился на 1кб. Спасибо.

Yuri · 7 Сен 2011

Просто прокомментировал код.
Возможно и ошибся.

Код:

#include <FTPEx.au3>
Global $iSizeMax = 1024, _ ;объявляем переменную глобально и присваиваем ей значение 1 kb 
        $sServer = "***", _ ;объявляем переменную (адрес ftp сервера) ftp host
        $sUsername = "***", _ ;объявляем переменную - имя пользователя ftp сервера Ftp user
        $sPass = "***", _ ;объявляем переменую - пароль ползователя ftp сервера Ftp password
        $sFileLocal = @WindowsDir & '\results.txt', _;объявляем переменную полного пути к файлу C:\results.txt (хотя, - это C:\Windows) 
        $sFileFTP = 'kop_results.txt', _ ;объявляем переменную полного пути к копии файла C:\results.txt (хотя, - это директория скрипта)
        $iTimeOut = 60000, _ ;объявляем переменную и присваиваем значение 60000 1 min.
        $iStart = TimerInit(); присвоением переменной запускаем таймер
While 1 ;цикл
    If TimerDiff($iStart) > $iTimeOut Then ;если значение таймера на данный момент превысило из переменной $iStart 60000 (1 min - значение переменной $iTimeOut), Тогда
        $iSize = FileGetSize($sFileLocal) ;запишем в переменную $iSize реальный текущий размер файла results.txt
        If $iSize > $iSizeMax Then ;а если реальный полученнай размер файла превышает 1024 ($iSizeMax ), Тогда
            For $i = 1 To 1 ;один раз (For $i = 1 To 1  -  один раз) делаем следуюющее
                $hOpen = _FTP_Open('MyFTP Control') ;открываем файл (загрузка/передача с ftp)
                If @error Then ExitLoop ;если не получилось, Тогда выходим (полный выход из цикла)
                $hConn = _FTP_Connect($hOpen, $sServer, $sUsername, $sPass, 1) ;подключаемся к ftp 
                If @error Then ExitLoop ;если не получилось подключиться, Тогда (полный выход из цикла)
                _FTP_FilePut($hConn, $sFileLocal, $sFileFTP);отправляем наш файл на ftp
                If @error Then ExitLoop ;если не получилось, Тогда выходим (полный выход из цикла)
            Next
            If Not @error Then ;если получилось, тогда увеличиваем переменную на  1 kb
                $iSizeMax += 1024				
            EndIf
            _FTP_Close($hOpen);закрываем ранее открытый файл
        EndIf
        $iStart = TimerInit();запускаем таймер
    EndIf
    Sleep(50)
WEnd

Yuri · 8 Сен 2011

Код:

#include <FTPEx.au3>
Global $iSizeMax = 1024, _ ;объявляем переменную глобально и присваиваем ей значение 1 kb 
        $sServer = "***", _ ;объявляем переменную (адрес ftp сервера) ftp host
        $sUsername = "***", _ ;объявляем переменную - имя пользователя ftp сервера Ftp user
        $sPass = "***", _ ;объявляем переменую - пароль ползователя ftp сервера Ftp password
        $sFileLocal = @WindowsDir & '\results.txt', _;объявляем переменную полного пути к файлу C:\results.txt (хотя, - это C:\Windows) 
        $sFileFTP = 'kop_results.txt', _ ;объявляем переменную полного пути к копии файла C:\results.txt (хотя, - это директория скрипта)
        $iTimeOut = 60000, _ ;объявляем переменную и присваиваем значение 60000 1 min.
        $iStart = TimerInit(); присвоением переменной запускаем таймер
While 1 ;цикл
    If TimerDiff($iStart) > $iTimeOut Then ;если значение таймера на данный момент превысило из переменной $iStart 60000 (1 min - значение переменной $iTimeOut), Тогда
        $iSize = FileGetSize($sFileLocal) ;запишем в переменную $iSize реальный текущий размер файла results.txt
        If $iSize > $iSizeMax Then ;а если реальный полученнай размер файла превышает 1024 ($iSizeMax ), Тогда
            For $i = 1 To 1 ;один раз (For $i = 1 To 1  -  один раз) делаем следуюющее
                $hOpen = _FTP_Open('MyFTP Control') ;открываем сессию ftp 
                If @error Then ExitLoop ;если не получилось, Тогда выходим (выход из цикла)
                $hConn = _FTP_Connect($hOpen, $sServer, $sUsername, $sPass, 1) ;подключаемся к ftp 
                If @error Then ExitLoop ;если не получилось подключиться, Тогда (выход из цикла), Иначе
				; надо отправить наш файл на ftp, но прежжде мы его отправим, сначала скопируем его , а уж потом отправим
				FileCopy($sFileLocal, $sFileFTP, 1) ;копируем его (перезаписывая)
                _FTP_FilePut($hConn, $sFileLocal, $sFileFTP);отправляем наш файл на ftp (тут я очень сомневаюсь в првильности всей этой стороки)
                If @error Then ExitLoop ;если не получилось, Тогда выходим (выход из цикла)
            Next
            If Not @error Then ;если получилось, тогда увеличиваем переменную $iSizeMax на  1 kb
                $iSizeMax += 1024               
            EndIf
            _FTP_Close($hOpen);закрываем ранее открытую сессию ftp
        EndIf
        $iStart = TimerInit();запускаем таймер
    EndIf
    Sleep(100) ;задаржка 100
WEnd

$sFileLocal = @WindowsDir & '\results.txt ;это C:\Windows\results.txt
$sFileFTP = 'kop_results.txt' ;это директория скрипта

zeionline · 9 Сен 2011

Код:

#include <FTPEx.au3>
Global $iSizeMax = 1024, _ ;объявляем переменную глобально и присваиваем ей значение 1 kb
        $sServer = "***", _ ;объявляем переменную (адрес ftp сервера) ftp host
        $sUsername = "***", _ ;объявляем переменную - имя пользователя ftp сервера Ftp user
        $sPass = "***", _ ;объявляем переменую - пароль ползователя ftp сервера Ftp password
        $sFileLocal = @WindowsDir & '\results.txt', _;объявляем переменную полного пути к файлу C:\results.txt (хотя, - это C:\Windows)
        $sFileFTP = 'kop_results.txt', _ ;объявляем переменную полного пути к копии файла C:\results.txt (хотя, - это директория скрипта)
        $iTimeOut = 60000, _ ;объявляем переменную и присваиваем значение 60000 1 min.
        $iStart = TimerInit(); присвоением переменной запускаем таймер
While 1 ;цикл
    If TimerDiff($iStart) > $iTimeOut Then ;если значение таймера на данный момент превысило из переменной $iStart 60000 (1 min - значение переменной $iTimeOut), Тогда
        $iSize = FileGetSize($sFileLocal) ;запишем в переменную $iSize реальный текущий размер файла results.txt
        If $iSize > $iSizeMax Then ;а если реальный полученнай размер файла превышает 1024 ($iSizeMax ), Тогда
            For $i = 1 To 1 ;один раз (For $i = 1 To 1  -  один раз) делаем следуюющее
                $hOpen = _FTP_Open('MyFTP Control') ;открываем сессию ftp
                If @error Then ExitLoop ;если не получилось, Тогда выходим (выход из цикла)
                $hConn = _FTP_Connect($hOpen, $sServer, $sUsername, $sPass, 1) ;подключаемся к ftp
                If @error Then ExitLoop ;если не получилось подключиться, Тогда (выход из цикла), Иначе
                ; надо отправить наш файл на ftp, но прежжде мы его отправим, сначала скопируем его , а уж потом отправим
                FileCopy($sFileLocal, $sFileFTP, 1) ;копируем его (перезаписывая)
                _FTP_FilePut($hConn, $sFileFTP, $sFileFTP);отправляем наш файл на ftp (тут я очень сомневаюсь в првильности всей этой стороки)
                If @error Then ExitLoop ;если не получилось, Тогда выходим (выход из цикла)
            Next
            If Not @error Then ;если получилось, тогда увеличиваем переменную $iSizeMax на  1 kb
                $iSizeMax += 1024              
            EndIf
            _FTP_Close($hOpen);закрываем ранее открытую сессию ftp
        EndIf
        $iStart = TimerInit();запускаем таймер
    EndIf
    Sleep(100) ;задаржка 100
WEnd

_FTP_FilePut($hConn, $sFileFTP, $sFileFTP) - вот так вот правильно. Спасибо за помощь.

Автор темы	Похожие темы	Форум	Ответы	Дата
H	[Сеть, интернет] Поиск html кода на сайте	Общие вопросы по AutoIt	0	8 Авг 2019
	[Сеть, интернет] Копирование тект из <span> в GUI	Автоматизация IE и Web-интерфейса	3	14 Фев 2015
K	[сеть, интернет] Подключение к FTP и копирование файлов	Общие вопросы по AutoIt	6	24 Май 2013
R	[Сеть, интернет] Копирование файлов с сервера на клиентскую машину.	Общие вопросы по AutoIt	3	27 Июл 2010
C	[Сеть, интернет] Копирование капчи на входе в Neobux.com	Общие вопросы по AutoIt	0	24 Июн 2010

Поиск

Поиск

[Сеть, интернет] копирование а затем отправка файла по FTP

zeionline

Новичок

Yuri

AutoIT Гуру

Yuri

AutoIT Гуру

zeionline

Новичок