PureBasic

Code : Tout sélectionner

InitNetwork()

  Telechargement = ReceiveHTTPMemory("http://www.purebasic.com/download/OgreAssimpConverter.zip", #PB_HTTP_Asynchronous)
  If Telechargement
    Repeat
      Progression = HTTPProgress(Telechargement)
      Select Progression
        Case #PB_Http_Success
          *Memoire = FinishHTTP(Telechargement)
          Debug "Téléchargement terminé (Taille: " + MemorySize(*Memoire) + ")"
          FreeMemory(*Memoire)
          End

        Case #PB_Http_Failed
          Debug "Le téléchargement a échoué"
          End

        Case #PB_Http_Aborted
          Debug "Le téléchargement a été interrompu"
          End
          
        Default
          Debug "Téléchargement en cours: " + Progression + "octets reçus"
       
      EndSelect
      
      Delay(500) ; Libérer le CPU
    ForEver
  Else
    Debug "Erreur de téléchargement"
  EndIf