FTPProgress() erreicht nie finished
Verfasst: 28.07.2008 14:34
In zahlreichen Tests (siehe auch Codesnippet unten) erreichte FTPProgress() nie finished. Der Wert -3 wird nie erreicht. Die Datei wird heruntergeladen (sie ist 160 byte groß). Ich erhalte sie vollständig, dass habe ich überprüft. Es liegen die 160 byte auf meiner Platte, jedoch zeigt FTPProgress nur 159 byte an und erhält so den status "finished" nicht. Der Bug wurde auch schon im englischen Forum beschrieben. Können weitere Forenmitglieder den gleichen Fehler bei sich feststellen? Oder gibt es noch weitere Auffälligkeiten oder gar Erklärungsversuche?
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