FTP Verbindung herstellen

Probierer

Hallo Leute,

ich versuche gerade mit AutoIt eine Verbindung zu einem FTP-Server herzustellen.
Allerdings dauert es ziemlich lange bis eine Willkommensnachricht vom Server gesendet wird.
Mit FileZilla musste ich eine Zeitüberschreitung von 60 Sekunden einstellen damit es funktioniert.

Mit AutoIt und der UDF _FTP_Connect bekomme ich eine Fehlermeldung nach ca. 38 Sekunden und das war es dann.

Kann ich in AutoIt auch eine größere Zeit für den Abbruch einstellen?

philipp

Ich glaube das ist eine Variable in der Include FTPEx.au3
eine der folgenden:
Unbenannt.png

Ich gehe eigentlich davon aus, dass es die in Zeile 66 bzw Ziele 67 ist. kannst es ja mal ausprobieren und einfach mal zum Test ändern!

Lg Philipp

Probierer

Hallo Phil-IT

habe schon probiert die Datei abzuändern.

53. Global Const $INTERNET_STATUS_CLOSING_CONNECTION = 60;50
54. Global Const $INTERNET_STATUS_CONNECTION_CLOSED = 61;51
55. Global Const $INTERNET_STATUS_CONNECTING_TO_SERVER = 20
56. Global Const $INTERNET_STATUS_CONNECTED_TO_SERVER = 21
57. Global Const $INTERNET_STATUS_CTL_RESPONSE_RECEIVED = 42
58. Global Const $INTERNET_STATUS_INTERMEDIATE_RESPONSE = 120
59. Global Const $INTERNET_STATUS_PREFETCH = 43
60. Global Const $INTERNET_STATUS_REDIRECT = 110
61. Global Const $INTERNET_STATUS_REQUEST_COMPLETE = 100
62. Global Const $INTERNET_STATUS_HANDLE_CREATED = 60
63. Global Const $INTERNET_STATUS_HANDLE_CLOSING = 70
64. Global Const $INTERNET_STATUS_SENDING_REQUEST = 60;30
65. Global Const $INTERNET_STATUS_REQUEST_SENT = 60;31
66. Global Const $INTERNET_STATUS_RECEIVING_RESPONSE = 60;40
67. Global Const $INTERNET_STATUS_RESPONSE_RECEIVED = 60;41
68. Global Const $INTERNET_STATUS_STATE_CHANGE = 200
69. Global Const $INTERNET_STATUS_RESOLVING_NAME = 10
70. Global Const $INTERNET_STATUS_NAME_RESOLVED = 11

Hat aber nichts gebracht.

Lg

**Oscar**

Was ist das denn für ein FTP-Server?
Warum braucht der soo lange für eine Antwort?

philipp

Dann kommt eventuell irgend ein Fehler zustande während dem Connecten. Versuche mal die Fehler auszulesen.

Probierer

Kannst du mir einen Tip geben wie ich das anstelle?

Hier mein umgebautes Pogramm aus der Hilfe:

Spoiler anzeigen

AutoIt

#include <FTPEx.au3>
$Open = _FTP_Open('myFTP')
; ...
$Ftpc = _FTP_Close($Open)




_example1()
#cs
	Beispiel mit externem Progressfenster zur Demostration der Fortschrittsanzeige mit einer Benutzerfunktion
#ce
Func _example1()
	Local $s_ServerName = "192.168.X.XXX" ;das ist ein real existierender Server
	Local $s_Username = "Name"
	Local $s_Password = "Passwort"
	Local $i_Passive = 1 ;aktive Verbindung nutzen wenn bei anderen Server Probleme dann auch mit 1 für passive Verbung testen
	Local $l_InternetSession, $l_FTPSession
	Local $errOpen, $errFTP
	If FileExists(@TempDir & "\Drucken.txt") Then FileDelete(@TempDir & "\Drucken.txt") ;Nur um sicher zustellen dass das File nicht existiert
	MsgBox(0, "Test1", "ErsteBox")
	$l_InternetSession = _FTP_Open("myFTP") ;Öffnet eine FTP Sitzung
	$errOpen = @error
	MsgBox(0, "Test2", "ZweiteBox" & $errOpen)
	If Not @error Then
		MsgBox(0, "Test4", "VierteBox")
		$l_FTPSession = _FTP_Connect($l_InternetSession, $s_ServerName, $s_Username, $s_Password, $i_Passive) ;Verbindet zu einem FTP Server
		$errFTP = @error
		If Not @error Then
			MsgBox(0, "Test5", "FünfteBox")
			ProgressOn("Download", "Status:", "")
			_FTP_ProgressDownload($l_FTPSession, @ScriptDir & "Drucken.txt", "\var\usbstick\Drucken.txt", "_UpdateProgress")
			If @error Then ConsoleWrite("Fehler bei _FTP_ProgressDownload: " & @error)
			ProgressOff()
		Else
			MsgBox(0, "Test3", "DritteBox")
			MsgBox(0, "Connect", "fehlgeschlagen")
			ConsoleWrite("Connect: " & " " & $errFTP & @CRLF)
		EndIf
	Else
		MsgBox(0, "Open", "fehlgeschlagen")
		ConsoleWrite("Open " & " " & $errOpen & @CRLF)
	EndIf
	_FTP_Close($l_InternetSession)
EndFunc   ;==>_example1
Func _UpdateProgress($Prozent)
	ProgressSet($Prozent, $Prozent & "%")
	If _IsPressed("77") Then Return 0 ; Abbruch bei F8
	Return 1 ; bei 1 Fortsetzen
EndFunc   ;==>_UpdateProgress

Alles anzeigen

Lg

Probierer

Der Server ist auf einer CCU1 von HomeMatic.

Der Zugriff dauert wohl immer so lange da bei der Installation schon angegeben wurde FileZilla auf 60Sek. umzustellen.

Probierer

Hier noch die Statusmeldung von FileZilla.

Status: Verbinde mit 192.168.0.111:21...
Status: Verbindung hergestellt, warte auf Willkommensnachricht... (nach dieser Meldung dauert es so lange)

Status: Der Server unterst
Status: Verbunden
Status: Empfange Verzeichnisinhalt...
Status: Anzeigen des Verzeichnisinhalts f

philipp

gib mal in die CMD ein

Bash

Ping 192.168.0.111:21

und versuche mal das ganze mit folgender UDF:
Befehle sind ziemlich ähnlich nur ganz kurz umändern!

Probierer

Dann kommt die Meldung: Ping-Anforderung konnte Host "192.168.0.111:21"nicht finden. Überprüfen Sie den Namen, und
versuchen Sie es erneut.

Gebe ich nur Ping 192.168.0.111 ein dann funktionierts.

philipp

Ok ich habe dein Problem mit dem Server mal gegoogled, anscheinend ein wohl bekanntes Thema das die sehr langsam bei sowas sind. Wie gesagt teste mala nochmal mit dem FTP.au3

Probierer

Habe ich probiert.

Die Fehlermeldung kommt jetzt nur schneller als vorher.

Connect: -1
>Exit code: 0 Time: 7.588

Schweizergeizer

Du könntest probieren die erforderlichen Methoden aus der FTP.au3 rauszukopieren ohne include und dann den Fehlermeldungen hinterherjagen, bis du alle notwendigen Methoden zusammen hast.
Dann kannst du eventuell irgendwo im Code erkennen mit welcher Routine dieser zeitgesteuerte Verbindungsabbruch erfolgt.

philipp

genau das hätte ich auchvorgeschlagen. Ist ne scheiß Arbeit aber irgendwann hat man den drecksfehler und es ist cool;)

Probierer

Habe die Funktionen rauskopiert und einige MsgBoxen gemacht

Func _FTPConnect($l_InternetSession, $s_ServerName, $s_Username, $s_Password, $i_ServerPort = 0, $l_Service = 1, $l_Flags = 0, $l_Context = 0)
MsgBox (0, "FTP_Connect", "Bin drin") Diese Box kommt

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)

Nach dieser Zeile ist wohl eine Fehlermeldung vorhanden und ich flieg raus

MsgBox (0,"DLLCall", "DLLCall" ) Diese Box kommt
If @error OR $ai_InternetConnect[0] = 0 Then
MsgBox (0, "Fehler", "" &@error &@CRLF &$ai_InternetConnect ) und diese Box kommt leider auch
SetError(-1)
Return 0
EndIf
Return $ai_InternetConnect[0]
EndFunc ;==> _FTPConnect()

philipp

Und was kommt als Fehler Code?

**Bitnugger**

Schau mal, ob dir das hilft...

_DebugOut() sieht bei mir so aus...

MyFTP_Control.jpg

AutoIt: _FTP_SetStatusCallback-Test

#include <Debug.au3>
#include <FTPEx.au3>


_DebugSetup('MyFTP Control', True)


Local $hOpen = _FTP_Open('MyFTP Control')
If $hOpen = 0 Then
	_DebugError("_FTP_Open", @error, @extended)
	;_Exit(1)
Else
	_DebugOut("OK - _FTP_Open" & @CRLF & "   - $hOpen = " & $hOpen)
EndIf
Local $pCallback = _FTP_SetStatusCallback($hOpen, 'FTPStatusCallbackHandler')


Local $sServer = 'ftp.mozilla.org'
Local $sUsername = ''
Local $sPass = ''




; Fehler provozieren - 530 This FTP server is anonymous only.
$sBadUsername = "mein_name_ist_hase"
Local $hConn = _FTP_Connect($hOpen, $sServer, $sBadUsername, $sPass, 0, $INTERNET_DEFAULT_FTP_PORT, $INTERNET_SERVICE_FTP, 0, $pCallback)
If $hConn = 0 Then
	_DebugError("_FTP_Connect", @error, @extended)
	;_Exit(1)
EndIf


;Fehler provozieren - @extended = 87
$sBadPass = '4711geheiM!'
Local $hConn = _FTP_Connect($hOpen, $sServer, $sUsername, $sBadPass, 0, $INTERNET_DEFAULT_FTP_PORT, $INTERNET_SERVICE_FTP, 0, $pCallback)
If $hConn = 0 Then
	_DebugError("_FTP_Connect", @error, @extended)
	;_Exit(1)
EndIf


;Fehler provozieren - @extended = 12007
$sBadServer = 'ftp.mozilla.orgie'
Local $hConn = _FTP_Connect($hOpen, $sBadServer, $sUsername, $sPass, 0, $INTERNET_DEFAULT_FTP_PORT, $INTERNET_SERVICE_FTP, 0, $pCallback)
If $hConn = 0 Then
	_DebugError("_FTP_Connect", @error, @extended)
	;_Exit(1)
EndIf


; ohne provozierten Fehler... bei Fehlschlag mehrmals versuchen...
Local $hConn = 0
Local $iAttempts = 5	; Anzahl der Verbindungsversuche
Local $iDelay = 3		; Pause in Sekunden zwischen den Verbindungsversuchen
For $c = 1 To $iAttempts
	$hConn = _FTP_Connect($hOpen, $sServer, $sUsername, $sPass, 0, $INTERNET_DEFAULT_FTP_PORT, $INTERNET_SERVICE_FTP, 0, $pCallback)
	If $hConn = 0 Then
		_DebugError("_FTP_Connect", @error, @extended)
		If $c = $iAttempts Then _Exit(1)
	Else
		_DebugOut("OK - _FTP_Connect" & @CRLF & "   - $hConn = " & $hConn & @CRLF & "   - Benötigte Verbindungsversuche = " & $c)
		ExitLoop
	EndIf
Next


; Get Current Directory on an FTP server
Local $sCurrent = _FTP_DirGetCurrent($hConn)
If $sCurrent = "0" Then	; die "" sind wichtig...
	_DebugError("_FTP_DirGetCurrent", @error, @extended)
Else
	_DebugOut("OK - _FTP_DirGetCurrent: " & $sCurrent)
EndIf


; Get Filenames and filesizes of current remote directory
Local $aLS = _FTP_ListToArray2D($hConn)
If $aLS[0][0] = 0 Then
	_DebugError("_FTP_ListToArray2D", @error, @extended)
Else
	_DebugOut("OK - _FTP_ListToArray2D - Einträge: " & $aLS[0][0])
	For $i = 1 To $aLS[0][0]
		_DebugOut(StringFormat("   - %-26s", $aLS[$i][0]) & StringFormat("%26s", $aLS[$i][1]))
	Next
EndIf


; Set Current Directory on an FTP server - Fehler provozieren, denn "pub123" gibt es nicht...
$sDirSetCurrent = _FTP_DirSetCurrent($hConn, "pub123")
If $sDirSetCurrent = 0 Then _DebugError("_FTP_DirSetCurrent 'pub123'", @error, @extended)


; Set Current Directory on an FTP server - ohne Fehler, denn "pub" gibt es...
$sDirSetCurrent = _FTP_DirSetCurrent($hConn, "pub")
If $sDirSetCurrent = 0 Then _DebugError("_FTP_DirSetCurrent 'pub'", @error, @extended)


; Get Filenames and filesizes of current remote directory
If $aLS[0][0] = 0 Then
	_DebugError("_FTP_ListToArray2D", @error, @extended)
Else
	_DebugOut("OK - _FTP_ListToArray2D - Einträge: " & $aLS[0][0])
	For $i = 1 To $aLS[0][0]
		_DebugOut(StringFormat("   - %-26s", $aLS[$i][0]) & StringFormat("%26s", $aLS[$i][1]))
	Next
EndIf


Func FTPStatusCallbackHandler($hInternet, $iContext, $iInternetStatus, $pStatusInformation, $iStatusInformationLength)
	#forceref $hInternet, $iContext
	If $iInternetStatus = $INTERNET_STATUS_REQUEST_SENT Or $iInternetStatus = $INTERNET_STATUS_RESPONSE_RECEIVED Then
		Local $iBytesRead
		Local $tSize = DllStructCreate('dword')
		_WinAPI_ReadProcessMemory(_WinAPI_GetCurrentProcess(), $pStatusInformation, DllStructGetPtr($tSize), $iStatusInformationLength, $iBytesRead)
		_DebugOut(_FTP_DecodeInternetStatus($iInternetStatus) & ' | Size = ' & DllStructGetData($tSize, 1) & ' Bytes    Bytes read = ' & $iBytesRead)
	Else
		_DebugOut(_FTP_DecodeInternetStatus($iInternetStatus))
	EndIf
EndFunc  ;==>FTPStatusCallbackHandler


Func _DebugError($sFTP_Func, $iError, $iExtended)
	Local $sMessage = ""
	_DebugOut("~~~~~~~~~~~~~~~~~~~~~")
	_FTP_GetLastResponseInfo($iError, $sMessage)
	_DebugOut("FAIL - " & $sFTP_Func)
	_DebugOut($sMessage)
	_DebugOut("     - @error    = " & $iError)
	_DebugOut("     - @extended = " & $iExtended)
	_DebugOut("~~~~~~~~~~~~~~~~~~~~~")
EndFunc  ;==>_DebugError


Func _Exit($iError = 0)
	Local $iFtpc = _FTP_Close($hConn)
	Local $iFtpo = _FTP_Close($hOpen)
	Exit $iError
EndFunc  ;==>_Exit

Alles anzeigen

Probierer

Hallo Bitnugger,

hier ist das Ergebnis.

OK - _FTP_Open
- $hOpen = 0x00CC0004
Closing connection ... | Size = 13369352 Bytes Bytes read = 4
Resolving name ...
Name resolved
Connecting to server ...
Connected to server
UNKNOWN status = 40
Handle closing ...
~~~~~~~~~~~~~~~~~~~~~
FAIL - _FTP_Connect
- @error = 0
- @extended = 0
~~~~~~~~~~~~~~~~~~~~~
Closing connection ... | Size = 13369352 Bytes Bytes read = 4
Connecting to server ...
Connected to server
UNKNOWN status = 40
Handle closing ...
~~~~~~~~~~~~~~~~~~~~~
FAIL - _FTP_Connect
- @error = 0
- @extended = 0
~~~~~~~~~~~~~~~~~~~~~
Closing connection ... | Size = 13369352 Bytes Bytes read = 4
Resolving name ...
Handle closing ...
~~~~~~~~~~~~~~~~~~~~~
FAIL - _FTP_Connect
- @error = 0
- @extended = 0
~~~~~~~~~~~~~~~~~~~~~
Closing connection ... | Size = 13369352 Bytes Bytes read = 4
Connecting to server ...
Connected to server
UNKNOWN status = 40
Handle closing ...
~~~~~~~~~~~~~~~~~~~~~
FAIL - _FTP_Connect
- @error = 0
- @extended = 0
~~~~~~~~~~~~~~~~~~~~~
Closing connection ... | Size = 13369352 Bytes Bytes read = 4
Connecting to server ...
Connected to server
UNKNOWN status = 40
Handle closing ...
~~~~~~~~~~~~~~~~~~~~~
FAIL - _FTP_Connect
- @error = 0
- @extended = 0
~~~~~~~~~~~~~~~~~~~~~
Closing connection ... | Size = 13369352 Bytes Bytes read = 4
Connecting to server ...
Connected to server
UNKNOWN status = 40
Handle closing ...
~~~~~~~~~~~~~~~~~~~~~
FAIL - _FTP_Connect
- @error = 0
- @extended = 0
~~~~~~~~~~~~~~~~~~~~~
Closing connection ... | Size = 13369352 Bytes Bytes read = 4
Connecting to server ...
Connected to server
UNKNOWN status = 40
Handle closing ...
~~~~~~~~~~~~~~~~~~~~~
FAIL - _FTP_Connect
- @error = 0
- @extended = 0
~~~~~~~~~~~~~~~~~~~~~
Closing connection ... | Size = 13369352 Bytes Bytes read = 4
Connecting to server ...
Connected to server
UNKNOWN status = 40
Handle closing ...
~~~~~~~~~~~~~~~~~~~~~
FAIL - _FTP_Connect
- @error = 0
- @extended = 0
~~~~~~~~~~~~~~~~~~~~~
>>>>>> Please close the "Report Log Window" to exit <<<<<<<

Was sagt mir das Ergebnis ???

**Bitnugger**

Zitat von Probierer

Was sagt mir das Ergebnis ???

Offensichtlich wohl nichts, denn sonst würdest du diese Frage nicht stellen.

_DebugError() sagt...
FAIL - _FTP_Connect
Die Funktion _FTP_Connect() hat nicht wie erwartet ein Handle zurückgeliefert.
_FTP_GetLastResponseInfo() lieferte leider keine detailierte Beschreibung des Fehlers.

Der FTPStatusCallbackHandler sagt dazu aber...
UNKNOWN status = 40

Jedoch ohne dein Script zu sehen, will ich nicht weiter darüber nachdenken, was die Ursache dafür sein könnte.

Das solltest du auch mal lesen:

InternetConnect function

List of FTP server return codes

Und bitte - benutze in Zukunft einen Spoiler für solche langen Listen.

**Andy**

Habe testweise das Script von Bitnugger mal durchlaufen lassen, ausser den provozierten Fehlern habe ich kein Problem feststellen können!

Spoiler anzeigen

Code

AutoIt: 3.3.10.2, OS: WIN_7/SP1/X64, OSLang: 0407, Script: D:\Autoitscripte\test72.au3


OK - _FTP_Open
   - $hOpen = 0x00CC0004
Handle created
Resolving name ...
Name resolved
Connecting to server ...
Connected to server
Receiving response ...
Response received | Size = 204 Bytes    Bytes read = 4
Sending request ...
Request sent | Size = 25 Bytes    Bytes read = 4
Receiving response ...
Response received | Size = 40 Bytes    Bytes read = 4
Closing connection ...
Connection closed
Handle closing ...
~~~~~~~~~~~~~~~~~~~~~
FAIL - _FTP_Connect
220-
220-   ftp.mozilla.org / archive.mozilla.org - files are in /pub/mozilla.org
220-
220-   releases.mozilla.org now points to our CDN distribution network and no longer works for FTP traffic
220 
530 This FTP server is anonymous only.


     - @error    = 0
     - @extended = 0
~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~
FAIL - _FTP_Connect


     - @error    = 0
     - @extended = 87
~~~~~~~~~~~~~~~~~~~~~
Handle created
Resolving name ...
Handle closing ...
~~~~~~~~~~~~~~~~~~~~~
FAIL - _FTP_Connect


     - @error    = 0
     - @extended = 12007
~~~~~~~~~~~~~~~~~~~~~
Handle created
Connecting to server ...
Connected to server
Receiving response ...
Response received | Size = 204 Bytes    Bytes read = 4
Sending request ...
Request sent | Size = 16 Bytes    Bytes read = 4
Receiving response ...
Response received | Size = 34 Bytes    Bytes read = 4
Sending request ...
Request sent | Size = 12 Bytes    Bytes read = 4
Receiving response ...
Response received | Size = 254 Bytes    Bytes read = 4
Receiving response ...
Response received | Size = 424 Bytes    Bytes read = 4
OK - _FTP_Connect
   - $hConn = 0x00CC0008
   - Benötigte Verbindungsversuche = 1
Sending request ...
Request sent | Size = 5 Bytes    Bytes read = 4
Receiving response ...
Response received | Size = 9 Bytes    Bytes read = 4
OK - _FTP_DirGetCurrent: /
Handle created
OK - _FTP_ListToArray2D - Einträge: 3
   - pub                                             4096
   - README                                           178
   - index.html                                       384
Sending request ...
Request sent | Size = 12 Bytes    Bytes read = 4
Receiving response ...
Response received | Size = 33 Bytes    Bytes read = 4
~~~~~~~~~~~~~~~~~~~~~
FAIL - _FTP_DirSetCurrent 'pub123'
550 Failed to change directory.


     - @error    = 0
     - @extended = 12003
~~~~~~~~~~~~~~~~~~~~~
Sending request ...
Request sent | Size = 9 Bytes    Bytes read = 4
Receiving response ...
Response received | Size = 37 Bytes    Bytes read = 4
OK - _FTP_ListToArray2D - Einträge: 3
   - pub                                             4096
   - README                                           178
   - index.html                                       384
>>>>>> Please close the "Report Log Window" to exit <<<<<<<

Alles anzeigen

und HIER ein weiterer Hinweis, und HIER auch ...