Что нового

прочитать файл через FTP

Fever

Скриптер
Сообщения
308
Репутация
112
Код:
#Include <FTPEx.au3>

Global $PROGNAME = 'MyFTP Control'

$GUI = GUICreate($PROGNAME, 300, 200, -1, -1, -1, 128)
GUICtrlCreateGroup('', 5, 0, 290, 195)
GUICtrlCreateLabel('Имя сервера\IP:', 15, 18)
$SERVER = GUICtrlCreateInput('', 150, 15, 120, 20)
GUICtrlCreateLabel('Имя пользователя:', 15, 48)
$NAME = GUICtrlCreateInput('',150, 45, 120, 20)
GUICtrlCreateLabel('Пароль:', 15, 78)
$PASS = GUICtrlCreateInput('', 150, 75, 120, 20)
GUICtrlCreateLabel('Файл для поиска:', 15, 108)
$FILE = GUICtrlCreateInput('1.txt', 150, 105, 120, 20)
$SUMBIT = GUICtrlCreateButton('Соединить', 110, 160, 80, 30)

GUISetState()
WinSetOnTop($PROGNAME, '', 1)

While 1 
	Switch GUIGetMsg()
	Case -3
		Exit
	Case $SUMBIT
		$SERVER = GUICtrlRead($SERVER)
		$NAME = GUICtrlRead($NAME)
		$PASS = GUICtrlRead($PASS)
		$FILE = GUICtrlRead($FILE)
		Sleep(100)
		$FTP = _FTP_Open('MyFTP Control')
		If Not _FTP_Connect($FTP, $SERVER, $NAME, $PASS) Then
			MsgBox(16, 'Ошибка', 'Ошибка соединения!')
		Else
			$FILEOPEN = _FTP_FileOpen($FTP, $FILE)
			$FILEREAD = _FTP_FileRead($FILEOPEN, 100000)
			MsgBox(0, '', $FILEREAD)
		EndIf
	EndSwitch
WEnd


никак немогу понять как именно прочитать файл, $FILEREAD возвращает 0, тоеть ошибку
хелп плиз :IL_AutoIt_1:
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
Код:
...
        Sleep(100)
        $FTP = _FTP_Open('MyFTP Control')
        $hConnect = _FTP_Connect($FTP, $SERVER, $NAME, $PASS)
		If @error Then
            MsgBox(16, 'Ошибка', 'Ошибка соединения!')
        Else
            $FILEOPEN = _FTP_FileOpen($hConnect, $FILE)
            $FILEREAD = _FTP_FileRead($FILEOPEN, 100000)
...
 
Автор
F

Fever

Скриптер
Сообщения
308
Репутация
112
спасибо) свою ошибку понял :IL_AutoIt_1:
 
Верх