ich habe in der selben anwendung die funktion gemacht das die daten die neu sind bzw geändert wurden hochgeladen werden....
das geht auch soweit sehr gut... nur wenn ich das fenster meiner anwendung verlasse hänkt sie sich auf und windows schließt sie....
woran kann das liegen? hier noch der aus schnitt für das ftp....
Code: Alles auswählen
If InitNetwork()
Init = InternetOpen_("FTP",1,"","",0)
If Init
SetGadgetText(11,"Verbinden zum Server")
connekt = InternetConnect_(Init,FTPServer$,21,FTPBenutzer$,FTPPasswort$,1,0,0)
If connekt
SetGadgetText(11,"Hochladen Der Dateien")
ForEach Upload()
Web$ = Upload()
Loka$ = ReplaceString(Web$,"/","\")
SetGadgetText(12,"Hochladen von: "+Web$)
Delay(20)
Debug Web$
Debug Projekt$+Loka$
load = FtpPutFile_(connekt,Projekt$+Loka$,Web$,0,0)
If load:Else
MessageRequester("Upload","Das Hochladen der datei '"+Web$+"' ist leider fehlgeschlagen. Es wird fordgesetzt")
EndIf
Next
Else
MessageRequester("FTP Kontakt","Die FTP Verbindung konnte leider nicht hergestellt werden da entweder das Passwort, ber Benutzername oder der Server falsch ist. Bitte korregieren Sie ihre eingabe in dem Sie diese Anwendung erneut starten.")
End
EndIf
Else
MessageRequester("FTP","Es kann auf diesem Computer keine FTP Verbindung gestartet werden, bitte beheben Sie dieses Problem und starten Sie diese Anwendung erneut.")
End
EndIf
Else
MessageRequester("Internet","Bitte verbinden Sie sich mit dem Internet und starten Sie die Anwendung erneut.")
End
EndIf
EndIf
