PureBasic Forums - English

Code: Select all

InitNetwork()
UseGIFImageDecoder()

*Buffer = ReceiveHTTPMemory("http://www.purearea.net/pb/CodeArchiv/Graphics/Gfx/anim_surprize.gif")
If *Buffer And CatchImage(0, *Buffer, MemorySize(*Buffer))

  OpenWindow(0, 100, 100, ImageWidth(0), ImageHeight(0), "")
  
  CanvasGadget(0, 0, 0, ImageWidth(0), ImageHeight(0))
  AddWindowTimer(0, 1, 150)
  
  Repeat
    Event = WaitWindowEvent()
    
    If Event = #PB_Event_Timer
      SetImageFrame(0, Frame)
      
      Frame+1
      If Frame >= ImageFrameCount(0) : Frame = 0 : EndIf
      
      If StartDrawing(CanvasOutput(0))
        DrawImage(ImageID(0), 0, 0)
        StopDrawing()
      EndIf
    EndIf
    
  Until Event = #PB_Event_CloseWindow
Else
  Debug "Impossible to load the file: " + Filename$
EndIf