Dateien auf Ftp server hochladen

Turbolocke

Ich möchte auf einem Ftp server logs hochladen lassen, um Buggs etc in meinen bisherigen Programmen zu erkennen, die auf einem fremden Rechner laufen( Zustimmung natürlich eingeholt).
Ich hab deshalb zu Testzwecken einen account bei funpic erstellt und ein "Hochladscript" erstellt.
Soweit so gut. Fehler : geht nicht^^
Nach etwa 3 stunden google, bordsuche englisches Forum hab ich mir filezilla geladen und getestet obich überhaupt was hochladen kann. mit filezilla gings....
warum gehts hier nicht ?

Spoiler anzeigen

[autoit]

#include <ftp.au3>
FTP_PUT()
Func FTP_PUT()
$server = 'xxxx'
$username = 'xxx'
$pass = 'xxx'
$UPLOADFILE= "c:\Temp.log"
$FTPFILENAME= "Temp.log"

$Open = _FTPOpen('FTP')
$Conn = _FTPConnect($Open, $server, $username, $pass,21,1,0,0)
$Ftpp = _FtpPutFile($Conn, $UPLOADFILE, $FTPFILENAME)
$Ftpc = _FTPClose($Open)
MsgBox(0,"",$open)
MsgBox(0,"",$Conn)
MsgBox(0,"",$Ftpp)
MsgBox(0,"",$Ftpc)
EndFunc

[/autoit]

edit: hab dateianhang gelöscht um nachahmungen zu vermeiden, da sie fehlerhaft war, siehe unterer Post für die richtige ftp.au3

Micha_he

Mit welcher FTP.au3 arbeitest Du. Soweit ich weis, gibt es mehrere.
Unter Umständen solltest Du sie noch mit hochladen...

Turbolocke

habse hochgeladen....

Micha_he

Globale Variable für DllOpen (Zeile 1), DllOpen (Zeile 20) & DllClose (Zeile 210) fehlenden in dieser 'FTP.au3', die aber leider sehr oft verbreitet ist.

Hier die geänderte Version der 'FTP.au3' mit der es klappen sollte:

Spoiler anzeigen

[autoit]

Global $dll

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

;===============================================================================
;
; 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]"
$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]

progandy

ich denke, da fehlt das DLLOpen, da es in der UDF nicht drin ist.

[autoit]

Local $DLL = DllOpen('wininet.dll')
$Open = _FTPOpen('FTP')
$Conn = _FTPConnect($Open, $server, $username, $pass);,21,1,0,0)
$Ftpp = _FtpPutFile($Conn, $UPLOADFILE, $FTPFILENAME)
$Ftpc = _FTPClose($Open)
DllClose($DLL)

[/autoit]

//Edit: sonst gibt es z.B. noch die FTP udfs, die das schon eingebaut haben (Achtung: _FTPConnect hat etwas andere Parameter): Erweiterte FTP-Funktionen - FTP.au3 / FTP_Ex.au3

Turbolocke

JUHUUUUU es geht ,danke an euch alle *Zusammendrück*
Juhuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu
@moderatoren sry fürs spammen aber ich freu mich so *g*

Padmak

ich glaub des is net schlimm
aber jeder versteht dass du dich freust
weil die FTP.au3s alle miteinander iwie *zefix* sind (-.- da kommt mein bayrisch durch :D)

Padmak

Turbolocke

Ich freu mich immer noch
Trotzdem setzt ich mal das ding hier auf gelöst *gg*