Programm hängt während FTP Verbindunsaufbau

n1mmel

Hallo

Ich bin noch ein blutiger Anfänger. Suche aber schon tagelang und konnte nichts finden. Jetzt wollte ich meine Frage mal an die Profis stellen.
Also... Ich habe ein Programm geschrieben, dass auf einen FTP zugreift, eine Datei lädt und diese anzeigt.
Mein Problem ist; sobald ich den Button drücke und die Verbindung aufgebaut wird reagiert das ganze Programm nicht mehr. Ich wollte den Verbindungsaufbau auch in einen Progressleiste einbinden aber weiß noch nicht wie
Aber das eingentliche Problem ist, dass das Programm hängt während dem Aufbau der Verbindung. Lässt sich da etwas machen? Bringt es was den Verbindungsaufbau in die Progressbar auszulagern? Ich weiß echt nicht was ich da tun soll.

Wird der Quellcode benötigt damit ihr mir helfen könnt? Dann liefere ich den natürlich nach.

Vielen Dank schon mal und liebe Grüße

Patrick

edit: Dazu muss ich noch sagen, dass die Verbindung zu meinem NAS aufgebaut wird. Habe dort einen FTP drauf eingerichtet. Kann es da dran liegen?

**Kanashius**

Naja, du machst das ganze vermutlich mit GuiGetMsg(). Wenn du stattdessen den OnEventMode nutzt werden die Events erst ausgeführt, bevor er zur Hauptaufgabe zurückkehrt (dem Verbindungsaufbau). Bin aber gerade nicht ganz sicher, ob der OnEventMode reicht. Wenn es damit nicht klappt musst du das mit GuiRegisterMsg machen. Dort WM_NOTIFY oder WM_COMMAND wird auf jeden Fall immer dem aktuellen Progress vorgeschaltet und erst ausgeführt, sodass du nicht im Aufbau der Verbindung feststeckst.
Wenn du mehr wissen willst kannst du dich ja zu den genannten Begriffen mal belesen.

Ansonsten: Ohne Quellcode kann ich nur die Kristallkugel anwerfen.

n1mmel

Hier ist der Code dazu. Es ist mein erstes Programm, bitte keinen Shitstorm, jeder fängt mal klein an
Der Code ist voll funktionsfähig. FTP läuft und Zugangsdaten dazu stimmen auch. Also kann getestet werden.

AutoIt

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=D:\Downloads\colosseum.ico
#AutoIt3Wrapper_Outfile=Besondere Objekte.Exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <File.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <FTPEx.au3>
#include <Misc.au3>
#include <ProgressConstants.au3>
#include <Excel.au3>
#NoTrayIcon


Global $cbProxy
Global $proxyset
Global $sComboRead = ""
Global $comTeam
Global $edMain
Global $ES_READONLY
Global $GUI_SS_DEFAULT_EDIT




#Region ### START Koda GUI section ### Form=c:\users\patrick\desktop\autoit\telekom\fmain.kxf
$fMain = GUICreate("Besondere Objekte", 408, 361, 379, 149)
GUISetFont(12, 400, 0, "Calibri")
$comTeam = GUICtrlCreateCombo("", 128, 192, 145, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Team 1|Team 2|Team 3|Team 4|Team 5|Team 6|Team 7")
GUICtrlSetTip(-1, "Bitte Team auswählen...")
$labTeam = GUICtrlCreateLabel("Team wählen:", 128, 136, 146, 33)
GUICtrlSetFont(-1, 18, 800, 0, "Calibri")
$Label1 = GUICtrlCreateLabel("Liste besonderer Objekte", 30, 24, 400, 46)
GUICtrlSetFont(-1, 26, 800, 0, "Calibri")
$btnLoad = GUICtrlCreateButton("Laden...", 120, 248, 163, 41)
GUICtrlSetFont(-1, 16, 800, 0, "Calibri")
GUICtrlSetTip(-1, "Daten werden vom Server geladen!")
$cbProxy = GUICtrlCreateCheckbox("Proxy verwenden?", 8, 336, 137, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetTip(-1, "Bei aktiver VPN Verbindung ist der Proxy zu verwenden!")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit


		Case $cbProxy
			If _IsChecked($cbProxy) Then
				FtpSetProxy(2, "http://xxx")
				MsgBox(64, "Proxy", "Proxy wird verwendet")
			EndIf


		Case $btnLoad
			GUICtrlSetData($btnLoad, "Bitte warten")
			_ComboRead()
			GUICtrlSetData($btnLoad, "Laden...")


	EndSwitch
WEnd




Func _ComboRead()
	$sComboRead = GUICtrlRead($comTeam)
	If $sComboRead = "" Then
		MsgBox(16, "Team wählen", "Bitte ein Team auswählen")
	Else
		_Progress()
	EndIf


EndFunc   ;==>_ComboRead


Func _Datei()


EndFunc   ;==>_Datei


Func _Progress()
	Global $g_sRemoteFile = "/telekom/" & $sComboRead & "/wichtigedaten.txt"
	Global $g_sLocalFile = @TempDir & "\wichtigedaten.txt"
	FileDelete($g_sLocalFile)
	Local $sServer = 'n1mmel.myDS.me'
	Local $sUsername = 'telekom'
	Local $sPass = 'wichtigedaten'
	Local $hInternetSession = _FTP_Open('MyFTP Control')
	Global $hFTPSession = _FTP_Connect($hInternetSession, $sServer, $sUsername, $sPass, 0)
	If @error Then
		MsgBox(16, "Keine Verbindung", "Server nicht erreichbar!")
	Else
		_FTPDownload()
		_FTP_Close($hInternetSession)
	EndIf
EndFunc   ;==>_Progress


Func _FTPDownload()
	Local $fuFunctionToCall = _UpdateProgress
	ProgressOn("Download Progress", $g_sRemoteFile)
	If FileExists(@TempDir & "\wichtigedaten.txt") Then FileDelete("wichtigedaten.txt")
	_FTP_FileGet($hFTPSession, $g_sRemoteFile, $g_sLocalFile)
	Sleep(1000)
	ProgressOff()
	Datenblatt()
EndFunc   ;==>_FTPDownload


Func _UpdateProgress($iPercent)
	ProgressSet($iPercent, Int($iPercent) & "%")
	If _IsPressed("77") Then Return 0
	Return 1
EndFunc   ;==>_UpdateProgress


Func _IsChecked($idControlID)
	Return BitAND(GUICtrlRead($idControlID), $GUI_CHECKED) = $GUI_CHECKED
EndFunc   ;==>_IsChecked


Func Datenblatt()
	$frmObjekte = GUICreate("Besondere Objekte", 946, 682, 178, 124)
	$edMain = GUICtrlCreateEdit("", 0, 0, 945, 681, BitOR($WS_VSCROLL, $WS_HSCROLL))
	GUICtrlSetFont(-1, 12, 800, 0, "Calibri")
	GUISetState(@SW_SHOW)
	$filepath = (@TempDir & "\wichtigedaten.txt")
	$fileread = FileRead($filepath)
	If @error Then
		MsgBox(16, "", "Datei kann nicht geöffnet werden!")
	Else
		GUICtrlSetData($edMain, $fileread)
	EndIf


	While 1
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				Exit
		EndSwitch
	WEnd
EndFunc   ;==>Datenblatt

Alles anzeigen

**Kanashius**

Hab gerade das hier gefunden. Das dürfte genau das sein was du möchtest:
FTP-Download mit Progressbar
Benutzt auch den GuiGetMsg mode

n1mmel

Habe ich jetzt mit eingebaut. Aber so wie es aussieht ist die Textdatei die ich runterlade zu klein als dass dort ein Fortschritt angezeigt werden könnte. Habe jetzt einen kleinen Sleep eingebaut. Dann sieht es wenigstens so aus als ob
Und das Problem mit dem hängen vom Fenster hatte anscheind damit zu tun dass ich eine DNS Adresse verwenden habe. Habe das mal durch die richtige IP ausgetauscht und schon ging es direkt.

Hier sind ja echt Profis unterwegs. Vielleicht könnt ihr mir auch bei meinem anderen Problem noch helfen. Ich habe dazu leider auch nichts gefunden. Also: Ich möchte die oben genannte Datei, am besten eine Textdatei in ein Listview übertragen. Ich habe in der Textdatei immer 3 Sachen in einer Reihe, d.h.: Bezeichnung, Anschrift, Bemerkung. Getrennt mit "|". Wie code ich das jetzt damit diese Daten aus der txt datei in das Listview übertragen werden und in die Entsprechenden Zeile eingetragen werden?

So wie ich gelesen habe ist es ja leider nicht mehr möglich einen Excel Daten einzubetten(?) oder sehe ich das falsch?
Das wäre dann natürlich die Non-Plus-Ultra Lösung

Also vielen dank für die Hilfe

Grüße
Patrick

**Kanashius**

Die Excel-UDF funktioniert, aber bei ner Text-Datei kannst du einfach mit FileReadToArray() eine Datei einlesen, mit ner for-Schleife durch das Array gehen, die 3 Spalten durch StringSplit ermitteln und damit die ListView erstellen. Solltest dich dafür aber erst mit Arrays auseinandersetzen, da gibt es sehr schöne Tutorials auch hier im Forum.

n1mmel

Zitat von Kanashius

Die Excel-UDF funktioniert, aber bei ner Text-Datei kannst du einfach mit FileReadToArray() eine Datei einlesen, mit ner for-Schleife durch das Array gehen, die 3 Spalten durch StringSplit ermitteln und damit die ListView erstellen. Solltest dich dafür aber erst mit Arrays auseinandersetzen, da gibt es sehr schöne Tutorials auch hier im Forum.

Ok, werde ich mich dann reinlesen. Vielen dank für deine schnelle Hilfe!