Bug dans HTTPProgress ?

[Mesa]

Avec ce code, qui vient de la doc, le téléchargement s'effectue en boucle comme si le cas #PB_Http_Success n'était pas reconnu.

Et pour vous ?

pb5.40b1
x86

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

M.

[nico]

Pareil!

[Fred]

Bug corrigé pour la prochaine version