FTP Programm

Blackdragon_860

Hallo Leute

Wollte heute ein FTP-Programm schreiben.

Hab mir dafür die AKTUELLE FTP.au3 heruntergeladen und mal durchstudiert....

Hier man Skript:

[autoit]

#include <ftp.au3>
;
$server = 'server'
$username = 'username'
$pass = 'pass'
;
; New passive flag
; 0 = active, 1 = passive
$passive = 1
;
$s_Existing = 'Bild 036.jpg'
$s_New = 'new.jpg'

[/autoit][autoit][/autoit][autoit]

$Open = _FTPOpen('MyFTP Control')
$Conn = _FTPConnect($Open, $server, $username, $pass, $passive)
$Ren =_FTPRenameFile($Open, $s_Existing, $s_New)
$Ftpc = _FTPClose($Open)

[/autoit]

Leider funktioniert der aber nicht.. Iergendwie Connected er nicht mit dem Server. An was könnte das liegen?

michael

Hallo,
Als ersten Schritt:
-Kannst Du Dich mit Standard ftp-Befehlen von der Kommandozeile aus anmelden?

MfG
Michael

Blackdragon_860

gerade getestet und --> Ja ich kann mich ftp-befehlen von der Kommandozeile aus anmelden.

Grüsse

Blackdragon_860

Problem gelöst...

Vielen dank an qon:

Zitat

Ich sehe garkein

[Blockierte Grafik: http://www.autoit.de/wcf/icon/codeS.png] AutoIt-Quellcode
1

$dllop = DllOpen('wininet.dll')

vor dem FTP Teil und kein

[Blockierte Grafik: http://www.autoit.de/wcf/icon/codeS.png] AutoIt-Quellcode
1

DllClose($dllop)

nach dem FTP Upload. Könnte doch gut sein, dass es daran liegt?

Alles anzeigen

Jetzt funktionierts

qon

Kein Problem
Hatte dein Topic noch nicht entdeckt, sonst hätte ich auch hier mal gepostet

Blackdragon_860

Aber ich hab trotzdem schon Skripts gesehen die kein:

$dllop = DllOpen('wininet.dll')

beeinhalten.. wäre es auch ohne möglich? gibt es da noch andere lösungen?

grüsse

leviathan

ja es gibt eine modifizierte ftp.au3 in die schon die dll open und close befehle integriet wurden

Spoiler anzeigen

[autoit]

Dim $dll ;var for handle to wininet.dll
;===============================================================================
;
; Function Name: _FTPOpen()
; Description: Opens an FTP session.
; Parameter(s): $s_Agent - Random name. ( like "myftp" )
; $l_AccessType - I dont got a clue what this does.
; $s_ProxyName - ProxyName.
; $s_ProxyBypass - ProxyByPasses's.
; $l_Flags - Special flags.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - Returns an indentifier.
; On Failure - 0 and sets @ERROR
; Author(s): Wouter van Kesteren.
;
;===============================================================================

[/autoit] [autoit][/autoit] [autoit]

Func _FTPOpen($s_Agent, $l_AccessType = 1, $s_ProxyName = '', $s_ProxyBypass = '', $l_Flags = 0)
$dll = DllOpen("wininet.dll")
Local $ai_InternetOpen = DllCall('wininet.dll', 'long', 'InternetOpen', 'str', $s_Agent, 'long', $l_AccessType, 'str', $s_ProxyName, 'str', $s_ProxyBypass, 'long', $l_Flags)
If @error OR $ai_InternetOpen[0] = 0 Then
SetError(-1)
Return 0
EndIf

Return $ai_InternetOpen[0]

EndFunc ;==> _FTPOpen()

[/autoit] [autoit][/autoit] [autoit]

;===============================================================================
;
; Function Name: _FTPConnect()
; Description: Connects to an FTP server.
; Parameter(s): $l_InternetSession - The Long from _FTPOpen()
; $s_ServerName - Server name/ip.
; $s_Username - Username.
; $s_Password - Password.
; $i_ServerPort - Server port ( 0 is default (21) )
; $l_Service - I dont got a clue what this does.
; $l_Flags - Special flags.
; $l_Context - I dont got a clue what this does.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - Returns an indentifier.
; On Failure - 0 and sets @ERROR
; Author(s): Wouter van Kesteren
;
;===============================================================================

[/autoit] [autoit][/autoit] [autoit]

Func _FTPConnect($l_InternetSession, $s_ServerName, $s_Username, $s_Password, $i_ServerPort = 0, $l_Service = 1, $l_Flags = 0, $l_Context = 0)

Local $ai_InternetConnect = DllCall('wininet.dll', 'long', 'InternetConnect', 'long', $l_InternetSession, 'str', $s_ServerName, 'int', $i_ServerPort, 'str', $s_Username, 'str', $s_Password, 'long', $l_Service, 'long', $l_Flags, 'long', $l_Context)
If @error OR $ai_InternetConnect[0] = 0 Then
SetError(-1)
Return 0
EndIf

Return $ai_InternetConnect[0]

EndFunc ;==> _FTPConnect()

[/autoit] [autoit][/autoit] [autoit]

;===============================================================================
;
; Function Name: _FTPPutFile()
; Description: Puts an file on an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_LocalFile - The local file.
; $s_RemoteFile - The remote Location for the file.
; $l_Flags - Special flags.
; $l_Context - I dont got a clue what this does.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Wouter van Kesteren
;
;===============================================================================

[/autoit] [autoit][/autoit] [autoit]

Func _FTPPutFile($l_FTPSession, $s_LocalFile, $s_RemoteFile, $l_Flags = 0, $l_Context = 0)

[/autoit] [autoit][/autoit] [autoit]

Local $ai_FTPPutFile = DllCall('wininet.dll', 'int', 'FtpPutFile', 'long', $l_FTPSession, 'str', $s_LocalFile, 'str', $s_RemoteFile, 'long', $l_Flags, 'long', $l_Context)
If @error OR $ai_FTPPutFile[0] = 0 Then
SetError(-1)
Return 0
EndIf

Return $ai_FTPPutFile[0]

EndFunc ;==> _FTPPutFile()

[/autoit] [autoit][/autoit] [autoit]

;===============================================================================
;
; Function Name: _FTPDelFile()
; Description: Delete an file from an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_RemoteFile - The remote Location for the file.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Wouter van Kesteren
;
;===============================================================================

[/autoit] [autoit][/autoit] [autoit]

Func _FTPDelFile($l_FTPSession, $s_RemoteFile)

Local $ai_FTPPutFile = DllCall('wininet.dll', 'int', 'FtpDeleteFile', 'long', $l_FTPSession, 'str', $s_RemoteFile)
If @error OR $ai_FTPPutFile[0] = 0 Then
SetError(-1)
Return 0
EndIf

Return $ai_FTPPutFile[0]

EndFunc ;==> _FTPDelFile()

[/autoit] [autoit][/autoit] [autoit]

;===============================================================================
;
; Function Name: _FTPRenameFile()
; Description: Renames an file on an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_Existing - The old file name.
; $s_New - The new file name.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Wouter van Kesteren
;
;===============================================================================

[/autoit] [autoit][/autoit] [autoit]

Func _FTPRenameFile($l_FTPSession, $s_Existing, $s_New)

Local $ai_FTPRenameFile = DllCall('wininet.dll', 'int', 'FtpRenameFile', 'long', $l_FTPSession, 'str', $s_Existing, 'str', $s_New)
If @error OR $ai_FTPRenameFile[0] = 0 Then
SetError(-1)
Return 0
EndIf

Return $ai_FTPRenameFile[0]

EndFunc ;==> _FTPRenameFile()

[/autoit] [autoit][/autoit] [autoit]

;===============================================================================
;
; Function Name: _FTPMakeDir()
; Description: Makes an Directory on an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_Remote - The file name to be deleted.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Wouter van Kesteren
;
;===============================================================================

[/autoit] [autoit][/autoit] [autoit]

Func _FTPMakeDir($l_FTPSession, $s_Remote)

Local $ai_FTPMakeDir = DllCall('wininet.dll', 'int', 'FtpCreateDirectory', 'long', $l_FTPSession, 'str', $s_Remote)
If @error OR $ai_FTPMakeDir[0] = 0 Then
SetError(-1)
Return 0
EndIf

Return $ai_FTPMakeDir[0]

EndFunc ;==> _FTPMakeDir()

[/autoit] [autoit][/autoit] [autoit]

;===============================================================================
;
; Function Name: _FTPDelDir()
; Description: Delete's an Directory on an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_Remote - The Directory to be deleted.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Wouter van Kesteren
;
;===============================================================================

[/autoit] [autoit][/autoit] [autoit]

Func _FTPDelDir($l_FTPSession, $s_Remote)

Local $ai_FTPDelDir = DllCall('wininet.dll', 'int', 'FtpRemoveDirectory', 'long', $l_FTPSession, 'str', $s_Remote)
If @error OR $ai_FTPDelDir[0] = 0 Then
SetError(-1)
Return 0
EndIf

Return $ai_FTPDelDir[0]

EndFunc ;==> _FTPDelDir()

[/autoit] [autoit][/autoit] [autoit]

;===============================================================================
;
; Function Name: _FTPClose()
; Description: Closes the _FTPOpen session.
; Parameter(s): $l_InternetSession - The Long from _FTPOpen()
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Wouter van Kesteren
;
;===============================================================================

[/autoit] [autoit][/autoit] [autoit]

Func _FTPClose($l_InternetSession)

Local $ai_InternetCloseHandle = DllCall('wininet.dll', 'int', 'InternetCloseHandle', 'long', $l_InternetSession)
If @error OR $ai_InternetCloseHandle[0] = 0 Then
SetError(-1)
Return 0
EndIf
DllClose($dll)
Return $ai_InternetCloseHandle[0]

EndFunc ;==> _FTPClose()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; ================================================= FTP Functions for UDF ==========================================================

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Local Const $FTP_ASCII = 1
Local Const $FTP_BINARY = 2
Local Const $FTP_OVERWRITE = 0
Local Const $FTP_DONTOVERWRIRE = -1
Local Const $FTP_PASSIVE = 0x8000000
Local Const $FTP_NONPASSIVE = 0

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;===============================================================================

[/autoit] [autoit][/autoit] [autoit]

;
; Function Name: _FTPFileFindFirst()
; Description: Find First File on an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_RemoteFile - The remote Location for the file.
; $l_Flags - use the dwFlags parameter to specify 1 for transferring the file in ASCII (Type A transfer method) or 2 for transferring the file in Binary (Type I transfer method).
; $l_Context - lContext is used to identify the application context when using callbacks. Since we’re not using callbacks we’ll pass 0.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Dick Bronsdijk
;
;===============================================================================

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#cs
typedef struct _WIN32_FIND_DATA {
DWORD dwFileAttributes;
FILETIME ftCreationTime;
FILETIME ftLastAccessTime;
FILETIME ftLastWriteTime;
DWORD nFileSizeHigh;
DWORD nFileSizeLow;
DWORD dwReserved0;
DWORD dwReserved1;
TCHAR cFileName[MAX_PATH];
TCHAR cAlternateFileName[14];
} WIN32_FIND_DATA;
typedef struct _FILETIME {
DWORD dwLowDateTime;
DWORD dwHighDateTime;
} FILETIME;
#ce
Func _FTPFileFindFirst($l_FTPSession, $s_RemoteFile, ByRef $h_Handle, ByRef $l_DllStruct, $l_Flags = 0, $l_Context = 0)

[/autoit] [autoit][/autoit] [autoit]

Local $str = "int;uint[2];uint[2];uint[2];int;int;int;int;char[256];char[14]"
Local $FileName
$l_DllStruct = DllStructCreate($str)
if @error Then
SetError(-2)
Return ""
endif

[/autoit] [autoit][/autoit] [autoit]

Dim $a_FTPFileList[1]
$a_FTPFileList[0] = 0

[/autoit] [autoit][/autoit] [autoit]

Local $ai_FTPPutFile = DllCall('wininet.dll', 'int', 'FtpFindFirstFile', 'long', $l_FTPSession, 'str', $s_RemoteFile, 'ptr', DllStructGetPtr($l_DllStruct), 'long', $l_Flags, 'long', $l_Context)
If @error OR $ai_FTPPutFile[0] = 0 Then
SetError(-1)
Return $a_FTPFileList
EndIf
$h_Handle = $ai_FTPPutFile[0]
$FileName = DllStructGetData($l_DllStruct, 9)

[/autoit] [autoit][/autoit] [autoit]

Dim $a_FTPFileList[12]
$a_FTPFileList[0] = 12
$a_FTPFileList[1] = DllStructGetData($l_DllStruct, 1) ; File Attributes
$a_FTPFileList[2] = DllStructGetData($l_DllStruct, 2, 1) ; Creation Time Low
$a_FTPFileList[3] = DllStructGetData($l_DllStruct, 2, 2) ; Creation Time High
$a_FTPFileList[4] = DllStructGetData($l_DllStruct, 3, 1) ; Access Time Low
$a_FTPFileList[5] = DllStructGetData($l_DllStruct, 3, 2) ; Access Time High
$a_FTPFileList[6] = DllStructGetData($l_DllStruct, 4, 1) ; Last Write Low
$a_FTPFileList[7] = DllStructGetData($l_DllStruct, 4, 2) ; Last Write High
$a_FTPFileList[8] = DllStructGetData($l_DllStruct, 5) ; File Size High
$a_FTPFileList[9] = DllStructGetData($l_DllStruct, 6) ; File Size Low
$a_FTPFileList[10] = DllStructGetData($l_DllStruct, 9) ; File Name
$a_FTPFileList[11] = DllStructGetData($l_DllStruct, 10) ; Altername

[/autoit] [autoit][/autoit] [autoit]

Return $a_FTPFileList

[/autoit] [autoit][/autoit] [autoit]

EndFunc;==> _FTPFileFindFirst()

[/autoit] [autoit][/autoit] [autoit]

;===============================================================================

[/autoit] [autoit][/autoit] [autoit]

;
; Function Name: _FTPFileFindNext()
; Description: Find Next File on an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_RemoteFile - The remote Location for the file.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Dick Bronsdijk
;
;===============================================================================

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _FTPFileFindNext($h_Handle, $l_DllStruct)

[/autoit] [autoit][/autoit] [autoit]

Dim $a_FTPFileList[1]
$a_FTPFileList[0] = 0

[/autoit] [autoit][/autoit] [autoit]

Local $ai_FTPPutFile = DllCall('wininet.dll', 'int', 'InternetFindNextFile', 'long', $h_Handle, 'ptr', DllStructGetPtr($l_DllStruct))
If @error OR $ai_FTPPutFile[0] = 0 Then
SetError(-1)
Return $a_FTPFileList
EndIf

[/autoit] [autoit][/autoit] [autoit]

Dim $a_FTPFileList[12]
$a_FTPFileList[0] = 12
$a_FTPFileList[1] = DllStructGetData($l_DllStruct, 1) ; File Attributes
$a_FTPFileList[2] = DllStructGetData($l_DllStruct, 2, 1) ; Creation Time Low
$a_FTPFileList[3] = DllStructGetData($l_DllStruct, 2, 2) ; Creation Time High
$a_FTPFileList[4] = DllStructGetData($l_DllStruct, 3, 1) ; Access Time Low
$a_FTPFileList[5] = DllStructGetData($l_DllStruct, 3, 2) ; Access Time High
$a_FTPFileList[6] = DllStructGetData($l_DllStruct, 4, 1) ; Last Write Low
$a_FTPFileList[7] = DllStructGetData($l_DllStruct, 4, 2) ; Last Write High
$a_FTPFileList[8] = DllStructGetData($l_DllStruct, 5) ; File Size High
$a_FTPFileList[9] = DllStructGetData($l_DllStruct, 6) ; File Size Low
$a_FTPFileList[10] = DllStructGetData($l_DllStruct, 9) ; File Name
$a_FTPFileList[11] = DllStructGetData($l_DllStruct, 10) ; Altername

[/autoit] [autoit][/autoit] [autoit]

Return $a_FTPFileList

[/autoit] [autoit][/autoit] [autoit]

EndFunc;==> _FTPFileFindNext()

[/autoit] [autoit][/autoit] [autoit]

;===============================================================================

[/autoit] [autoit][/autoit] [autoit]

;
; Function Name: _FTPFileFindClose()
; Description: Delete FindFile Structure.
; Parameter(s):
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Dick Bronsdijk
;
;===============================================================================

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _FTPFileFindClose($h_Handle, $l_DllStruct)

[/autoit] [autoit][/autoit] [autoit]

;~ DllStructDelete($l_DllStruct)

Local $ai_FTPPutFile = DllCall('wininet.dll', 'int', 'InternetCloseHandle', 'long', $h_Handle)
If @error OR $ai_FTPPutFile[0] = 0 Then
SetError(-1)
Return ""
EndIf

[/autoit] [autoit][/autoit] [autoit]

Return $ai_FTPPutFile[0]

EndFunc;==> _FTPFileFindClose()

[/autoit] [autoit][/autoit] [autoit]

;===============================================================================
;
; Function Name: _FTPGetFile() - db Test
; Description: Gets an file from an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_RemoteFile - The remote Location for the file.
; $s_LocalFile - The local file.
; $l_Flags - use the dwFlags parameter to specify
; - 1 for transferring the file in ASCII (Type A transfer method) or
; - 2 for transferring the file in Binary (Type I transfer method).
; $l_Fail - Allow local file to be overwritten if it exists
; - -1 Don't allow overwrite (default)
; - 0 Allow overwrite
; $l_Attributes - Attributes for local file
; $l_Context - lContext is used to identify the application context when using callbacks. Since we’re not using callbacks we’ll pass 0.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Dick Bronsdijk
;
;===============================================================================

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _FTPGetFile($l_FTPSession, $s_RemoteFile, $s_LocalFile, $l_Flags = 2, $l_Fail = -1, $l_Attributes = 0, $l_Context = 0)

[/autoit] [autoit][/autoit] [autoit]

Local $ai_FTPGetFile = DllCall('wininet.dll', 'int', 'FtpGetFile', 'long', $l_FTPSession, 'str', $s_RemoteFile, 'str', $s_LocalFile, 'long', $l_Fail, 'long', $l_Attributes, 'long', $l_Flags, 'long', $l_Context)
If @error OR $ai_FTPGetFile[0] = 0 Then
SetError(-1)
Return 0
EndIf

Return $ai_FTPGetFile[0]

EndFunc;==> _FTPGetFile()

[/autoit] [autoit][/autoit] [autoit]

;===============================================================================
;
; Function Name: _FTPListFiles
; Description::
; Parameter(s):
; Requirement(s):
; Return Value(s):
; Author(s): SpookMeister
;
;===============================================================================
;

[/autoit] [autoit][/autoit] [autoit]

Func _FTPListFiles($l_FTPSession, $l_Flags = 0, $l_Context = 0)
Local $str, $ret, $search,$file,$WIN32_FIND_DATA
$str = "dword;int64;int64;int64;dword;dword;dword;dword;char[256];char[14]"
$WIN32_FIND_DATA = DllStructCreate($str)
Local $callFindFirst = DllCall('wininet.dll', 'int', 'FtpFindFirstFile', 'long', $l_FTPSession, 'str', "", 'ptr', DllStructGetPtr($WIN32_FIND_DATA), 'long', $l_Flags, 'long', $l_Context)
If Not $callFindFirst[0] Then
MsgBox(0, "Folder Empty", "No Files Found ")
SetError(-1)
Return 0
EndIf
$ret = ""
While 1
If DllStructGetData($WIN32_FIND_DATA, 1) <> 16 Then $ret = $ret & DllStructGetData($WIN32_FIND_DATA, 9) & "|"
Local $callFindNext = DllCall('wininet.dll', 'int', 'InternetFindNextFile', 'long', $callFindFirst[0], 'ptr', DllStructGetPtr($WIN32_FIND_DATA))
If Not $callFindNext[0] Then
ExitLoop
EndIf
WEnd
$WIN32_FIND_DATA = 0
Return StringTrimRight($ret, 1)
EndFunc ;==>_FTPListFiles

[/autoit] [autoit][/autoit] [autoit]

;===================================================================================================
;
; Function Name: _FTPPutFolderContents()
; Description: Puts an folder on an FTP server. Recursivley if selected
; Parameter(s): $l_InternetSession - The Long from _FTPConnect()
; $s_LocalFolder - The local folder i.e. "c:\temp".
; $s_RemoteFolder - The remote folder i.e. '/website/home'.
; $b_RecursivePut - Recurse through sub-dirs. 0=Non recursive, 1=Recursive
; Requirement(s): DllCall, wininet.dll
; Author(s): Stumpii
;
;===================================================================================================

[/autoit] [autoit][/autoit] [autoit]

Func _FTPPutFolderContents($l_InternetSession, $s_LocalFolder, $s_RemoteFolder, $b_RecursivePut)
Local $search, $file
; Shows the filenames of all files in the current directory.
$search = FileFindFirstFile($s_LocalFolder & "\*.*")

; Check if the search was successful
If $search = -1 Then
MsgBox(0, "Error", "No files/directories matched the search pattern")
Exit
EndIf

While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
If StringInStr(FileGetAttrib($s_LocalFolder & "\" & $file), "D") Then
_FTPMakeDir($l_InternetSession, $s_RemoteFolder & "/" & $file)
If $b_RecursivePut Then
_FTPPutFolderContents($l_InternetSession, $s_LocalFolder & "\" & $file, $s_RemoteFolder & "/" & $file, $b_RecursivePut)
EndIf
Else
_FTPPutFile($l_InternetSession, $s_LocalFolder & "\" & $file, $s_RemoteFolder & "/" & $file, 0, 0)
EndIf
WEnd

[/autoit] [autoit][/autoit] [autoit]

; Close the search handle
FileClose($search)

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>_FTPPutFolderContents

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; define some constants - can be used with _FTPPutFile and _FTPGetFile and ftp open flags
Const $INTERNET_FLAG_PASSIVE = 0x08000000
Const $INTERNET_FLAG_TRANSFER_ASCII = 0x00000001
Const $INTERNET_FLAG_TRANSFER_BINARY = 0x00000002
Const $INTERNET_DEFAULT_FTP_PORT = 21
Const $INTERNET_SERVICE_FTP = 1

[/autoit] [autoit][/autoit] [autoit]

;===============================================================================
;
; Function Name: _FTPCommand()
; Description: Sends a command to an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPOpen()
; $s_FTPCommand - Commad string to send to FTP Server
; $l_ExpectResponse - Data socket for response in Async mode
; $s_Context - A pointer to a variable that contains an application-defined
; value used to identify the application context in callback operations
; $s_Handle - A pointer to a handle that is created if a valid data socket is opened.
; The $s_ExpectResponse parameter must be set to TRUE for phFtpCommand to be filled.
;
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - Returns an indentifier.
; On Failure - 0 and sets @ERROR
; Author(s): Bill Mezian
;
; Command Examples: depends on server syntax. The following is for
; Binary transfer, ASCII transfer, Passive transfer mode (used with firewalls)
; 'type I' 'type A' 'pasv'
;
;===============================================================================

[/autoit] [autoit][/autoit] [autoit]

Func _FTPCommand($l_FTPSession, $s_FTPCommand, $l_Flags = 0x00000001, $l_ExpectResponse = 0, $l_Context = 0, $s_Handle = '')

[/autoit] [autoit][/autoit] [autoit]

Local $ai_FTPCommand = DllCall('wininet.dll', 'int', 'FtpCommand', 'long', $l_FTPSession, 'long', $l_ExpectResponse, 'long', $l_Flags, 'str', $s_FTPCommand, 'long', $l_Context, 'str', $s_Handle)
If @error OR $ai_FTPCommand[0] = 0 Then
SetError(-1)
Return 0
EndIf
;Return $s_return
Return $ai_FTPCommand[0]

EndFunc;==> _FTPCommand()

[/autoit] [autoit][/autoit] [autoit]

;===============================================================================
;
; Function Name: _FTPGetCurrentDir()
; Description: Get Current Directory on an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - Directory Name
; On Failure - 0
; Author(s): Beast
;
;===============================================================================

[/autoit] [autoit][/autoit] [autoit]

Func _FTPGetCurrentDir($l_FTPSession)

[/autoit] [autoit][/autoit] [autoit]

Local $ai_FTPGetCurrentDir = DllCall('wininet.dll', 'int', 'FtpGetCurrentDirectory', 'long', $l_FTPSession, 'str', "", 'long_ptr', 260)
If @error OR $ai_FTPGetCurrentDir[0] = 0 Then
SetError(-1)
Return 0
EndIf

Return $ai_FTPGetCurrentDir[2]

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndFunc;==> _FTPGetCurrentDir()

[/autoit] [autoit][/autoit] [autoit]

;===============================================================================
;
; Function Name: _FtpSetCurrentDir()
; Description: Set Current Directory on an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_Remote - The Directory to be set.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Beast
;
;===============================================================================

[/autoit] [autoit][/autoit] [autoit]

Func _FtpSetCurrentDir($l_FTPSession, $s_Remote)

Local $ai_FTPSetCurrentDir = DllCall('wininet.dll', 'int', 'FtpSetCurrentDirectory', 'long', $l_FTPSession, 'str', $s_Remote)
If @error OR $ai_FTPSetCurrentDir[0] = 0 Then
SetError(-1)
Return 0
EndIf

Return $ai_FTPSetCurrentDir[0]

[/autoit] [autoit][/autoit] [autoit]

EndFunc;==> _FtpSetCurrentDir()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;===============================================================================
;
; Function Name: _FtpFileListTo2DArray()
; Description: Get Filenames and filesizes of a Directory.
; Parameter(s): $Remote_Dir - The Directory to be set.
; $Server - Server address
; $username - User name
; $pass - Password
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Me
;
;===============================================================================
Func _FTPFileListTo2DArray($Remote_Dir, $server = '', $username = '', $pass = '')
Local $2DArray
$2DArray = _ArrayCreate($2DArray)
$Open = _FTPOpen('xbox')
$Conn = _FTPConnect($Open, $server, $username, $pass, 1)
$setdir = _FtpSetCurrentDir($Conn, $Remote_Dir)
$cdir = _FTPGetCurrentDir($Conn)
$files = _FTPFilesListToArray($Conn, 2)
$max = UBound($files)
ReDim $2DArray[$max][2]
For $i = 0 To $files[0]
$2DArray[$i][0] = $files[$i]
Next
$Ftpc = _FTPClose($Open)
$Totalsize = 0
$end = $2DArray[0][0]
ProgressOn('FTP', 'Getting File Sizes...')
For $i = 1 To $end
$Open = _FTPOpen('xbox')
$Conn = _FTPConnect($Open, $server, $username, $pass, 1)
$setdir = _FtpSetCurrentDir($Conn, '/F/Videos/')
$size = _FTPGetFileSize($Conn, $2DArray[$i][0])
$2DArray[$i][1] = $size
$size = Round($size / 1048576, 1)
$Totalsize = $size + $Totalsize
$Ftpc = _FTPClose($Open)
ProgressSet(($i / $end) * 100, Round(($i / $end) * 100, 1) & ' % ' & $2DArray[$i][0], $end - $i & ' Files ' & $Totalsize & ' MB Total')
Next
ProgressOff()
$2DArray[0][1] = $Totalsize
Return $2DArray
EndFunc ;==>_FTPFileListTo2DArray

[/autoit] [autoit][/autoit] [autoit]

;===============================================================================
;
; Function Name: _FtpFilesListToArray()
; Description: Get Filenames, Directorys, or Both of a Directory.
; Parameter(s): $l_FTPSession - Long From _FileConnect
; $Return_type - 0 = Both Files and Directorys, 1 = Directorys, 2 = Files
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Me
;
;===============================================================================

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _FTPFilesListToArray($l_FTPSession, $Return_Type = 0, $l_Flags = 0, $l_Context = 0)
Dim $array, $array2d
$array = _ArrayCreate($array)
$array2d = _ArrayCreate($array2d)
$str = "dword;int64;int64;int64;dword;dword;dword;dword;char[256];char[14]"
$WIN32_FIND_DATA = DllStructCreate($str)
Local $callFindFirst = DllCall('wininet.dll', 'int', 'FtpFindFirstFile', 'long', $l_FTPSession, 'str', "", 'ptr', DllStructGetPtr($WIN32_FIND_DATA), 'long', $l_Flags, 'long', $l_Context)
If Not $callFindFirst[0] Then
MsgBox(0, "Folder Empty", "No Files Found ")
SetError(-1)
Return 0
EndIf
$ret = ""
While 1
Select
Case $Return_Type = 0 ; Folders and files
If DllStructGetData($WIN32_FIND_DATA, 1) = 16 Then
_ArrayInsert($array, 1, DllStructGetData($WIN32_FIND_DATA, 9)) ; Add Folder to top of array
Else
_ArrayAdd($array, DllStructGetData($WIN32_FIND_DATA, 9)) ; Add folder to array
EndIf
Case $Return_Type = 1 ; Folders only
If DllStructGetData($WIN32_FIND_DATA, 1) = 16 Then _ArrayAdd($array, DllStructGetData($WIN32_FIND_DATA, 9))
Case $Return_Type = 2 ; Files only
If DllStructGetData($WIN32_FIND_DATA, 1) <> 16 Then _ArrayAdd($array, DllStructGetData($WIN32_FIND_DATA, 9))
EndSelect
Local $callFindNext = DllCall('wininet.dll', 'int', 'InternetFindNextFile', 'long', $callFindFirst[0], 'ptr', DllStructGetPtr($WIN32_FIND_DATA))
If Not $callFindNext[0] Then
ExitLoop
EndIf
WEnd
$WIN32_FIND_DATA = 0
$array[0] = UBound($array) - 1
Return $array
EndFunc ;==>_FTPFilesListToArray

[/autoit]