Hi, ich bin gerade dabei mein Quiz Programm etwas aus zu weiten, da ich es auch für die
Schule als Projekt nutzen will.
Das Programm soll dazu u.a. eine Datei von einem FTP Server runterladen, verändern und wieder hoch laden.
Das Connecten funktioniert ohne Fehler, nur bei _FTP_FileGet kommt eine "-1" Fehlermeldung.
Hier mal der Code:
Spoiler anzeigen
;===========================================================================> Includes
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <FTPEx.au3>
#Include <File.au3>
;===========================================================================> Globals
Global $FTP_Name = "herveldia.cwsurf.de"
Global $FTP_User = "xxxxxxx"
Global $FTP_Pass = "xxxxxxx"
Global $FTP_Dir = "htdocs/test/quiz.php" ;===> Ich vermute es liegt daran.
Global $Rad = "Nein"
;===========================================================================> GUI = StartGUI
$StartGUI = GUICreate("QuizMaster v1.0", 601, 394, -1, -1)
GUISetFont(9, 800, 0, "Arial")
GUISetBkColor(0xA6CAF0)
$Label1 = GUICtrlCreateLabel("Name des Quiz:", 8, 128, 92, 19)
$Input1 = GUICtrlCreateInput("", 8, 144, 233, 23, BitOR($GUI_SS_DEFAULT_INPUT,$WS_BORDER))
$Label2 = GUICtrlCreateLabel("Anzahl der Fragen:", 8, 184, 109, 19)
$Input2 = GUICtrlCreateInput("", 8, 200, 105, 23, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER,$WS_BORDER))
GUICtrlCreateLabel("QuizMaster", 0, 0, 600, 120, BitOR($SS_CENTER,$SS_SUNKEN,$WS_BORDER,$WS_CLIPSIBLINGS), $WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1, 72, 800, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlCreateLabel("v1.0.0", 8, 96, 37, 19)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel("Lösung beim antworten zeigen?", 8, 240, 185, 19)
$Radio1 = GUICtrlCreateRadio("Ja", 8, 256, 113, 17)
$Radio2 = GUICtrlCreateRadio("Nein", 8, 272, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Label4 = GUICtrlCreateLabel("Nachicht wenn alle Fragen richtig:", 8, 304, 195, 19)
$Input3 = GUICtrlCreateInput("", 8, 320, 233, 23, BitOR($GUI_SS_DEFAULT_INPUT,$WS_BORDER))
$Button1 = GUICtrlCreateButton("Weiter ...", 8, 360, 155, 25)
GUISetState(@SW_SHOW)
;===========================================================================> While GUI = StartGUI
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$Read1 = GUICtrlRead ($Input1)
$Read2 = GUICtrlRead ($Input2)
$Read3 = GUICtrlRead ($Radio1)
$Read4 = GUICtrlRead ($Radio2)
$Read5 = GUICtrlRead ($Input3)
_CreateQuiz ($Read1, $Read2, $Read3, $Read4, $Read5)
EndSwitch
WEnd
;===========================================================================> Func _CreateQuiz
Func _CreateQuiz ($Name, $QuestCount, $RadYes, $RadNo, $EndMsg)
If $RadYes = $GUI_CHECKED Then
$Rad = "Ja"
ElseIf $RadNo = $GUI_CHECKED Then
$Rad = "Nein"
EndIf
$Connect = _Connect ()
_FTP_FileGet ($Connect, $FTP_Dir, @ScriptDir & "\Temp\quiz.php")
If @error Then MsgBox (16, "Fehler", "Fehlercode: " & @error)
_FileWriteToLine (@ScriptDir & "\Temp\quiz.php", 74, '$quizfragen = file("' & $Name & '.txt", FILE_IGNORE_NEW_LINES);', 1)
_FileWriteToLine (@ScriptDir & "\Temp\quiz.php", 68, '$max_punkte = ' & $QuestCount & ';', 1)
_FileWriteToLine (@ScriptDir & "\Temp\quiz.php", 71, '$zeige_loesung = "' & $Rad & '";', 1)
_FileWriteToLine (@ScriptDir & "\Temp\quiz.php", 121, ' echo "' & $EndMsg & '";', 1)
;===> Hier gehts später weiter...
EndFunc
;===========================================================================> Func _Connect
Func _Connect ()
$FTPOpen = _FTP_Open ("QuizMasterFTP")
$FTPConnect = _FTP_Connect ($FTPOpen, $FTP_Name, $FTP_User, $FTP_Pass)
If $FTPConnect = 0 Or $FTPConnect < 0 Then
MsgBox (16, "Fehler", "Es konnte keine Verbindung mit dem Server hergestellt werden!" & @CRLF & _
"Bitte versuchen Sie es später erneut oder setzen Sie sich mit dem Admin in verbindung." & @CRLF & @CRLF & _
"Danke.")
Exit
EndIf
EndFunc
;===========================================================================>
Ich vermute mal stark dass es an $FTP_Dir liegt.
Wie genau verhält sich die Ordnerstruktur da bei AutoIt?
Also nachdem ich auf den Server Connecte (Mit FileZilla) sehe ich 3 Ordner, darunter auch den htdocs ordner.
Hoffe da kann jemand helfen
MfG
Commander21