Code: Alles auswählen
EnableExplicit
Define Download, Progress, Size
InitNetwork()
Download = ReceiveHTTPFile("http://www.purebasic.com/download/OgreAssimpConverter.zip", GetTemporaryDirectory() + "OgreAssimpConverter.zip", #PB_HTTP_Asynchronous)
If Download
Repeat
Progress = HTTPProgress(Download)
Select Progress
Case #PB_HTTP_Success
Size = FinishHTTP(Download)
Debug "Download finished (size: " + Size + ")"
Break
Case #PB_HTTP_Failed
Debug "Download failed"
Break
Case #PB_HTTP_Aborted
Debug "Download aborted"
Break
Default
Debug "Current download: " + Progress
EndSelect
Delay(500)
ForEver
Else
Debug "Download error"
EndIf
Wie geht das?
Danke im Voraus & Grüße ... Peter