ftp upload

Tam0r

Hallo hab folgendes Problem, will mit autoit eine datei auf meinen ftp server uploaden.Funktioniert bei mit im netztwerk wunderbar.Bloss wenn ich es über das internet versuche geht es nicht.Ftp verbindung wird hergestellt.Der Ftp server gibt folgende meldung:
Receiving file c:\daten\ous\test.jpg
[4] Mon 05Jun06 18:10:45 - (000033) Error receiving file c:\daten\ous\test.jpg, aborting (0 bytes/sec - 0 bytes, unable to open data connection)

was bedeutet "unable to open data connection"
wenn ich lokal Probiere geht es ja auch ?
hab folgendens cod verwendet.

Code

$myftp = _Ftpopen("ftp1")
	$myftp2 = _FTPConnect($myftp,$IP,"xxx","xxx","xxx")
	$test = _FTPPutFile($myftp2, "C:\Programme\TamTech\test.jpg","test.jpg")

weis da einer vielleicht was bescheid?

ytwinky

Hi TamOr,
liefern die _FTP..-Funktionen keinen Fehler zurück?
Warum fragst du die nicht mal ab?
Ich denke mal, dies kennst du schon..
Gruß
ytwinky

Tam0r

Rückgabe wert ist nur 0 oder 1 leider nicht mehr 1 erfolg 0 kein erfolg.
Was ich nicht verstehe ist das es im lan geht aber über internet nicht geht

Code

;==========================================================================
;~ =====
;
; 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
;
 ;==========================================================================
;~ =====


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


        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()

Alles anzeigen

ytwinky

Hi TamOr,
ich habe leider kein fertiges AutoIt-Skript, um das zu testen, vielleicht hilft dir ja erstmal meine (vorläufige) Übersetzung ins Deutsche(ich bin nicht ganz sicher)?
Hast du den Übertragungs-Modus auf Binär gesetzt?
Stimmt der Port?
(Nach UserName und Paßwort frage ich natürlich nicht )
Gruß
ytwinky

Tam0r

also ich wüsste nicht wie ich auf binär setzen sollte den übertragunsmodus.
hier habe ich mal so geschrieben gehabt aber war das gleiche
$test = _FTPPutFile($myftp2, "C:\Programme\TamTech\test.jpg","test.jpg",1)
also komma 1 aber war das gleich Problem.
wie könnte mann denn den übertragungsmodus umstellen danke für deine übersetzung aber
; $l_Flags - Spezial-Flags
; $l_Context - Ich habe keine Ahnung, was das macht
bringt mit genauso wenig
wasz.b sind die Spezial-flags ?
port und ip kennwort stimmt alles da ich ja connecten kann aber die datei kann anscheinden nicht übertragen werden.

ytwinky

In der Hilfe steht, daß es eine Option gibt:

Code

FtpBinaryMode Changes how FTP files are transferred.
1 = Binary (default)
0 = ASCII

Ich habe das erstmal nur übersetzt und es ist auch noch nicht fertig
'Ich habe keine Ahnung, was das macht' ist die reine Übersetzung von
'I dont got a clue what this does' oder so
Mit den 'Spezial-Flags bin ich noch nicht fertig..
Gruß
ytwinky

ytwinky

Hi TamOr,
ich habe gedacht, es wäre einfacher..
..mit anderen Worten ich habe es auch noch nicht geschafft.
Es sollte ja auch schnell gehen:

Spoiler anzeigen

C

#include <GUIConstants.au3>
#include <FTP.au3>
#include <date.au3>


; == GUI generated with Koda ==
GUICreate("yFTP", 622, 451, 192, 125)
$server=GUICtrlCreateInput("server", 104, 56, 121, 21, -1, $WS_EX_CLIENTEDGE)
$user=GUICtrlCreateInput("user", 104, 104, 121, 21, -1, $WS_EX_CLIENTEDGE)
$passw=GUICtrlCreateInput("password", 104, 152, 121, 21, $ES_PASSWORD, $WS_EX_CLIENTEDGE)
$Suchen=GUICtrlCreateButton("DateiSuche", 368, 56, 75, 25)
$Senden=GUICtrlCreateButton("Senden", 368, 104, 75, 25)
$Quit=GUICtrlCreateButton("Quit", 368, 152, 75, 25)
$Port=GUICtrlCreateInput("21", 240, 56, 57, 21, -1, $WS_EX_CLIENTEDGE)
$Prt=GUICtrlCreateEdit("TransferProtokoll", 104, 192, 353, 249, $ES_OEMCONVERT, $WS_EX_CLIENTEDGE)
GUISetState(@SW_SHOW)
While 1
	Switch GuiGetMsg()
		Case $GUI_EVENT_CLOSE, $Quit
			ExitLoop
		Case $Suchen
			$DateiName=FileOpenDialog("UpLoad Datei", "DeskTop", "Alle (*.*)")
			AppendPrt("Transfer von " &$DateiName)
		Case $Senden
			$FTPHnd=_FTPOpen("myFTP")
			AppendPrt("FTPOpen " &"myFTP " &$FTPHnd)
			$FTPHnd=_FTPConnect($FTPHnd, GUICtrlRead($Server), GUICtrlRead($User), GUICtrlRead($passw))
			AppendPrt("FTPConnect " &$i)
			$i=_FTPPutFile($FTPHnd, GUICtrlRead($Suchen), "tamor.gif")
			AppendPrt("FTPPutFile " &$i)
			$i=_FTPClose($FTPHnd)
			AppendPrt("FTPClose " &$i)
		Case Else
			;-))
	EndSwitch
WEnd
Exit


Func AppendPrt($What)
	GUICtrlSetData($Prt, GUICtrlRead($Prt) &@CrLf &$What &" " &_Now())
EndFunc

Alles anzeigen

Vielleicht hilft dir das ja schon ein Stück weiter ?
Gruß
ytwinky

Tam0r

hmm hattest einpaar fehler drin hab die korrigiert aber trotzdem geht das irgendwie nicht.Jetzt kann ich nicht mal mehr im lan uplaoden verbindung wird aufgebaut aber schliest dann gleich weider

C

#include <GUIConstants.au3>
#include <FTP.au3>
#include <date.au3>


; == GUI generated with Koda ==
GUICreate("yFTP", 622, 451, 192, 125)
$server=GUICtrlCreateInput("server", 104, 56, 121, 21, -1, $WS_EX_CLIENTEDGE)
$user=GUICtrlCreateInput("user", 104, 104, 121, 21, -1, $WS_EX_CLIENTEDGE)
$passw=GUICtrlCreateInput("password", 104, 152, 121, 21, $ES_PASSWORD, $WS_EX_CLIENTEDGE)
$Suchen=GUICtrlCreateButton("DateiSuche", 368, 56, 75, 25)
$Senden=GUICtrlCreateButton("Senden", 368, 104, 75, 25)
$Quit=GUICtrlCreateButton("Quit", 368, 152, 75, 25)
$Port=GUICtrlCreateInput("21", 240, 56, 57, 21, -1, $WS_EX_CLIENTEDGE)
$Prt=GUICtrlCreateEdit("TransferProtokoll", 104, 192, 353, 249, $ES_OEMCONVERT, $WS_EX_CLIENTEDGE)
GUISetState(@SW_SHOW)
While 1
	Switch GuiGetMsg()
		Case $GUI_EVENT_CLOSE, $Quit
			ExitLoop
		Case $Suchen
			$DateiName=FileOpenDialog("UpLoad Datei", "DeskTop", "Alle (*.*)")
			AppendPrt("Transfer von " &$DateiName)
		Case $Senden
			$FTPHnd=_FTPOpen("myFTP")
			AppendPrt("FTPOpen " &"myFTP " &$FTPHnd)
			$i=_FTPConnect($FTPHnd, GUICtrlRead($Server), GUICtrlRead($User), GUICtrlRead($passw),GUICtrlRead($port))
			AppendPrt("FTPConnect " &$i)
			$i=_FTPPutFile($FTPHnd, GUICtrlRead($DateiName), "tamor.gif")
			AppendPrt("FTPPutFile " &$i)
			$i=_FTPClose($FTPHnd)
			AppendPrt("FTPClose " &$i)
		Case Else
			;-))
	EndSwitch
WEnd
Exit


Func AppendPrt($What)
	GUICtrlSetData($Prt, GUICtrlRead($Prt) &@CrLf &$What &" " &_Now())
EndFunc

Alles anzeigen

Code

$i=_FTPConnect($FTPHnd, GUICtrlRead($Server), GUICtrlRead($User), GUICtrlRead($passw),GUICtrlRead($port))

und

Code

$i=_FTPPutFile($FTPHnd, GUICtrlRead($DateiName), "tamor.gif")

waren falsch naja komisch

ytwinky

Hi TamOr,
einen Fehler habe ich schon selbst gefunden und im Skript berichtigt:
_FTPConnect liefert einen FileHandle zurück, der dann für _FTPPutfile benutzt werden muß..
Das kommt davon, wenn man Sachen anfängt und dann liegenläßt, tut mit leid
Im Original steht, daß das Handle für FTPPutFile() von FTPConnect() geliefert wird..
Dafür muß $i geDimt werden..
Ich muß erst mal deine Sachen anschauen.
Gruß
ytwinky

Tam0r

hmm verstehe nicht ganz was du meinst ? hmmmmm wir connecten den doch eh mit der $varibla von ftp connect ? müsste doch dann stimmen odeR?

ytwinky

FtpOpen liefert einen Handle für FtpConnect
FtpConnect liefert einen Handle für FtpPutFile
Das Skript liefert jedenfalls für diese beiden Funktionen Handles
und sonst 0 für Fehler
Ich hoffe, ich habe das richtig verstanden, denn für meinen FTP-Server
benutze ich PerfectFTP oder TwoDirs, denn mit denen klappt es
Auf alle Fälle meldet das Protokoll keine Fehler, aber das Inhaltsverzeichnis vom FTPServer leider auch keine Datei..
Also weitersuchen, das muß doch gehen..
[Edit]
Aber mit dem Problem sind wir nicht alleine:
http://www.autoitscript.com/forum/index.php?showtopic=25143&hl=
Gruß
ytwinky

**bernd670**

Hallo,

Zitat

was bedeutet "unable to open data connection"

kann es sein das der Port 20 durch die Firewall geblockt wird?
Hast du es schon mal mit einem anderen FTP-Programm probiert?
Der Fehler weißt darauf hin das der Daten-Kanal (Port 20) nicht geöffnet werden kann. FTP arbeitet mit 2 Ports, Port 21 ist der Comand-Port und Port 20 ist der Daten-Port. Diese müssen auch beide in der Firewall freigegeben werden.

Tam0r

alles klar ich habe aber 5058 geforwartet weil das bei mir der port für mein ftp server ist den ich eingestellt habe.Ich habe gerade geschaut bei dem server kann ich aber nur einen Prot angeben, wie ist das jetzt Wird immer 21-1 also bei mir 5058 -1 für den datenport angegeben ? oder ist 20 definiert weist du was vielleicht ? hab gerade port 20 versucht ging auch nicht

**bernd670**

Der Datenport (20) muss auch eingehende Verbindungen akzeptiieren je nach dem ob FTP im aktiven oder im passiven Modus arbeitet

Hier ein Zitat welches ich in einem anderen Forum gefunden habe:

Zitat

Das FTP-Protokoll scheint immer wieder Probleme zu bereiten. Meist wird nicht berücksichtigt, daß Port 21 eben nicht ausreicht.
Bei FTP-Verbindungen werden immer zwei Kanäle geööfnet. Der eine Dient als Kanal für Kommando-/Kontrolldaten, der zweite für die Übertragung der tatsächlichen Daten.
Zudem muss man unterscheiden, ob die gewünschte Verbindung dem aktiven oder passiven FTP-Verbindungsaufbau entspricht.

Aktives FTP
Der Client startet eine Verbindungsanfrage, ausgehend von einem der loaklen Ports zwischen 1024-65535 zu dem Server-Port 21.
Für die Datenübertragung erfolgt nun eine Anfrage des Servers. er verwendet dazu den Port 20 und richtet sie an einen der Client-Ports im Bereich 1024-65535.

(Bei Paketfiltern, welche Stateful Paket Inspection (SIP) beherrschen, ist es nicht notwendig Ports auf IP-Adressen im LAN zu forwarden. SIP erkennt ftp-Verbindungen und leitet für die bestehende Verbindung die entsprechenden Ports weiter.)

Passives FTP
Der Client startet eine Verbindungsanfrage, ausgehend von einem der loaklen Ports zwischen 1024-65535 zu dem Server-Port 21.
Der Aufbau des Datenkanals erfolgt von einem der loaklen Ports zwischen 1024-65535 zu einem der Serverports zwischen 1024-65535.
Der Server baut keine (aktive) Verbindung zum Client auf.

Nochmal in Kurzform:
aktives FTP:
1.)Client-Ports 1024 - 65535 (TCP) intern - > Server-Port 21 (TCP)
Nach erfolgreichem Verbindungsaufbau teilt der Client dem Server mit auf welchem (unpriviligiertem) Port x er einen Verbindungsaufbau für die Datenübertragung erwartet. Daraufhin initiiert der Server, ausgehend von Port 20 eine Verbindung zu Port x
2.)Client-Ports 1024 - 65535 (TCP) intern <= Server-Port 20 (TCP)

passives FTP:
Client-Ports 1024 - 65535 (TCP) intern - > Server-Port 21 (TCP)
Nach erfolgreichem Verbindungsaufbau teilt der Server dem Client mit, welcher (unpriviligierte) Port x für die Datenübertragung bereitsteht.
Client-Ports 1024 - 65535 (TCP) intern - > Server-Ports 1024 - 65535 (TCP)

Alles anzeigen

ytwinky

Hi Tamor,
ich habe keine Ahnung, wieso es gestern nicht geklappt hat
Mit diesem AutoIt-Skript klappt es aber:

Spoiler anzeigen

C

#include <GUIConstants.au3>
#include <Ftp.au3>
#include <date.au3>
Global $DateiName
Dim $i=0
; == GUI generated with Koda ==
GUICreate("yFTP", 505, 654, 192, 125)
GUICtrlCreateLabel("ytwinky's FTP-Transfer", 72, 0, 330, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$Group1 = GUICtrlCreateGroup("FTP-Server", 8, 56, 201, 49)
$Server=GUICtrlCreateInput("", 16, 72, 185, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("FTP-User", 8, 112, 201, 49)
$User= GUICtrlCreateInput("", 16, 128, 185, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("FTP-Passwort", 8, 168, 201, 49)
$Passw= GUICtrlCreateInput("", 16, 184, 185, 21, $ES_PASSWORD, $WS_EX_CLIENTEDGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Port", 240, 56, 57, 49)
$Port=GUICtrlCreateInput("21", 248, 72, 41, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Suchen= GUICtrlCreateButton("DateiSuchen", 352, 64, 75, 25)
$Senden= GUICtrlCreateButton("Senden", 352, 128, 75, 25)
$Quit= GUICtrlCreateButton("Quit", 352, 184, 75, 25)
$Prt= GUICtrlCreateEdit("TransferProtokoll", 0, 224, 505, 425, -1, $WS_EX_CLIENTEDGE)
GUISetState(@SW_SHOW)
While 1
	Switch GuiGetMsg()
		Case $GUI_EVENT_CLOSE, $Quit
			ExitLoop
		Case $Suchen
			$DateiName=FileOpenDialog("UpLoad Datei", "DeskTop", "Alle (*.*)")
			AppendPrt("Transfer von " &$DateiName)
		Case $Senden
			$OpenHnd=_FTPOpen('myFTP')
			AppendPrt("FTPOpen " &"myFTP " &$OpenHnd)
			$ConnHnd=_FTPConnect($OpenHnd, GUICtrlRead($Server), GUICtrlRead($User), GUICtrlRead($Passw))
			AppendPrt("FTPConnect " &$ConnHnd &" " &GUICtrlRead($Server) &" " &GUICtrlRead($User) &" " &GUICtrlRead($Passw))
			$FtpErr=_FtpPutFile($ConnHnd,  $DateiName, 'tamor.gif')
			AppendPrt("FTPPutFile " &$FtpErr &" " & $DateiName)
			$FtpcErr=_FTPClose($OpenHnd)
			AppendPrt("FTPClose " &$FtpErr)
		Case Else
			;-))
	EndSwitch
WEnd
Exit


Func AppendPrt($What)
	GUICtrlSetData($Prt, GUICtrlRead($Prt) &@CrLf &_Now() &" " &$What)
EndFunc

Alles anzeigen

Und hier ist endlich tamor.gif :rofl2:
Im Zip-File ist eine geänderte (fertige, 'deutsche')Version von FTP.Au3 und das
Hauptskript. Ich hoffe, wenn der Transfer mit dem Internet klappt, daß er dann auch in
deinem LAN klappt.
[Edit]
Es wäre vielleicht schneller gegangen, wenn ich den Link auf das Posting von Wolkenloser nicht nur reinkopiert hätte, sondern den Thread auch noch
mal durchgelesen hätte, den da ist einiges dazugekommen, seit ich ihn das letzte Mal angesehen habe..
Gruß
ytwinky