PureBoard

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