Code: Alles auswählen
InitNetwork()
UsePNGImageDecoder()
UseJPEGImageDecoder()
Download = ReceiveHTTPMemory("https://www.vermoegenmagazin.de/wp-content/uploads/2014/09/helene-fischer-vermoegen.jpg", #PB_HTTP_Asynchronous)
;Download = ReceiveHTTPMemory("https://lastfm.freetls.fastly.net/i/u/300x300/b472c9879a464984c9e5c6d25cac3b07.png", #PB_HTTP_Asynchronous)
If Download
Repeat
Progress = HTTPProgress(Download)
Select Progress
Case #PB_HTTP_Success
*Buffer = FinishHTTP(Download)
Debug "Download finished (size: " + MemorySize(*Buffer) + ")"
If CatchImage(0, *Buffer, MemorySize(*Buffer))
ResizeImage(0, 500, 500)
OpenWindow(0, 0, 0, ImageWidth(0), ImageHeight(0),"",#PB_Window_SystemMenu)
ImageGadget(0, 5, 5, ImageWidth(0), ImageHeight(0), ImageID(0))
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
Else
Debug "Catching error"
EndIf
FreeMemory(*Buffer)
End
Case #PB_HTTP_Failed
Debug "Download failed"
End
Case #PB_HTTP_Aborted
Debug "Download aborted"
End
Default
Debug "Current download: " + Progress
Delay(10)
EndSelect
ForEver
Else
Debug "Download error"
EndIf