Code: Alles auswählen
OpenWindow(0,100,100,200,100,"FTP")
CreateGadgetList(WindowID(0))
TextGadget(0,0,0,200,100,"Datastream:")
If InitNetwork() = 0 : MessageRequester("Warnung", "Achtung!" + Chr(13) + "Die Netzwerkverbindung konnte nicht gestartet werden.") : EndIf
If OpenFTP(0,"home.arcor.de","max.mustermann","passworti") = 0
MessageRequester("Hinweis", "Der FTP-Server konnte nicht erreicht werden.")
EndIf
ReceiveFTPFile(0,"TEST.rtf","Datei.rtf",1)
While datastream <> #PB_FTP_Finished
Delay(300)
datastream = FTPProgress(0)
SetGadgetText(0,"Datastream: " + Str(datastream))
Wend
MessageRequester("Hinweis", "Abgeschlossen")
End