Barre de progression

[Programmes]

Bonsoir à tous,
Je voulais savoir si j'avais la possibilité d'afficher une barre de progression lors d'un téléchargement sur Internet. Merci pour toutes vos réponses.

[Ar-S]

Bonjour,
Pour te répondre, oui c'est possible.
Je te conseils d'utiliser la fonction de recherche du forum et de consulter la doc coté ProgressBar
Dans les recherches, ce dernier terme me mène ici :
http://www.purebasic.fr/french/viewtopi ... ar#p124854

[Programmes]

Bonjour et merci pour la réponse. J'ai télécharger http://www.purearea.net/pb/CodeArchiv/I ... ressBar.pb mais sur le téléchaargement d'une vidéo au format .wmv j'ai une erreur. Il télécharge très bien le fichier mais la progressbar n'ai pas mise à jour car Filesize=0. Pouvez-vous m'aider?
Merci

Code : Tout sélectionner

Procedure UrlToFileWithProgress(myFile.s,URL.s) 
  isLoop.b=1 
  Bytes.l=0 
  fBytes.l=0 
  Buffer.l=4096 
  res.s="" 
  tmp.s="" 
  OpenType.b=1 
  INTERNET_FLAG_RELOAD.l=$80000000 
  INTERNET_DEFAULT_HTTP_PORT.l=80 
  INTERNET_SERVICE_HTTP.l=3 
  HTTP_QUERY_STATUS_CODE.l=19 
  HTTP_QUERY_STATUS_TEXT.l=20 
  HTTP_QUERY_RAW_HEADERS.l=21 
  HTTP_QUERY_RAW_HEADERS_CRLF.l=22 
  memID=AllocateMemory(Buffer) 
  Result=CreateFile(1,myFile) 
  hInet=InternetOpen_("",OpenType,#Null,#Null,0) 
  hURL=InternetOpenUrl_(hInet,URL,#Null,0,INTERNET_FLAG_RELOAD,0) 
  ;get Filesize 
  domain.s=ReplaceString(Left(URL,(FindString(URL,"/",8) - 1)),"http://","") 
  hInetCon=InternetConnect_(hInet,domain,INTERNET_DEFAULT_HTTP_PORT,#Null,#Null,INTERNET_SERVICE_HTTP,0,0) 
  If hInetCon > 0 
    hHttpOpenRequest=HttpOpenRequest_(hInetCon,"HEAD",ReplaceString(URL,"http://"+domain+"/",""),"http/1.1",#Null,0,INTERNET_FLAG_RELOAD,0) 
    If hHttpOpenRequest > 0 
      iretval=HttpSendRequest_(hHttpOpenRequest,#Null,0,0,0) 
      If iretval > 0 
        tmp=GetQueryInfo(hHttpOpenRequest,HTTP_QUERY_STATUS_CODE) 
        If Trim(tmp)="200" 
          tmp=GetQueryInfo(hHttpOpenRequest,HTTP_QUERY_RAW_HEADERS_CRLF) 
          If FindString(tmp,"Content-Length:",1)>0 
            ii.l=FindString(tmp,"Content-Length:",1)+Len("Content-Length:") 
            tmp=Mid(tmp,ii,Len(tmp)-ii) 
            myMax=Val(Trim(tmp)) 
          EndIf 
        EndIf 
      EndIf 
    EndIf 
  EndIf 
  SetGadgetText(#Label,"Filesize: "+Str(myMax)) 
  SetProgressbarRange(#progressbar,0,myMax) 
  ;start downloading 
  Repeat 
    InternetReadFile_(hURL,memID,Buffer,@Bytes) 
    If Bytes=0 
      isLoop=0 
    Else 
      fBytes=fBytes+Bytes 
        SetGadgetText(#Label2,"Received Bytes: "+Str(fBytes)) 
      If myMax >= fBytes: SetGadgetState(#progressbar,fBytes): EndIf 
      WriteData(1,memID,Bytes) 
    EndIf 
      DoEvents() 
  Until isLoop=0 
  InternetCloseHandle_(hURL) 
  InternetCloseHandle_(hInet) 
  SetGadgetState(#progressbar,0) 
  CloseFile(1)    
  FreeMemory(memID) 
EndProcedure 

[Ar-S]

Mon lien ne te convient pas ?

[Programmes]

Au contraire! Je dirais même qu'il est très bien fait. Mon seul soucis est de ne pas pouvoir m'être la barre de progression à jour.

[Programmes]

Personne ne peut répondre à mon problème?

[Backup]

Au contraire! Je dirais même qu'il est très bien fait. Mon seul soucis est de ne pas pouvoir m'être la barre de progression à jour.

tu parle de mon code ??

Ar-s t'a donné ce lien :
http://www.purebasic.fr/french/viewtopi ... ar#p124854

donc tu parle de mon code !!?

si tu parle bien de mon code ,
c'est que c'est toi qui merdoie , car mon code fonctionne !!
d'ailleurs t'a qu'a essayer , tu verra bien

mais je te soupçonne de ne pas avoir été voir le lien de Ars qui pointe sur mon code
ni meme de l'avoir essayé



mais de continuer a parler de TON lien
et là, je dois dire, je me fout qu'il ne marche pas

t'a qu'a suivre les conseils qu'on te donne.... point

[Chris]

Si ton Filesize reste a 0, c'est certainement parce qu'il n'a pas de fin : Comme un stream, par exemple.

Autrement, il n'y a pas de raison que ça ne fonctionne pas.
Mais bon! J'ai pas essayé ton code, vu qu'il n'y a que la procédure, et que j'ai vraiment pas envie de m'emmerder à faire tout ce qui doit aller autour.

Chuis fatigué, moi! J'vais faire la sieste!

[Backup]

+1 pour le stream

au pire pour savoir , met ici l'adresse url de ton fichier video ...

[Ar-S]

ou audio

[Programmes]

Je te remercie pour ton code!!!
J'ai enfn trouver! Ma vidéo était protégé par un login et mot de passe if fallait donc remplacer deux lignes:

Code : Tout sélectionner

  domain.s=ReplaceString(Left(URL,(FindString(URL,"/",8) - 1)),"http://","") 
  hHttpOpenRequest=HttpOpenRequest_(hInetCon,"HEAD",ReplaceString(URL,"http://"+domain+"/",""),"http/1.1",#Null,0,INTERNET_FLAG_RELOAD,0) 

par:

Code : Tout sélectionner

domain.s=ReplaceString(Left(URL,(FindString(URL,"/",8) - 1)),"http://"+NomUtilisateur+":"+Pass+"@","") 
hHttpOpenRequest=HttpOpenRequest_(hInetCon,"HEAD",ReplaceString(URL,"http://"+NomUtilisateur+":"+Pass+"@"+domain+"/",""),"http/1.1",#Null,0,INTERNET_FLAG_RELOAD,0) 

Encore merci.

[Backup]

ha la bonne heure

[Ar-S]

ha la bonne heure

J'ai toujours trouvé cette expression étrange. Vous connaissez son historique ?
C'est genre "Ha là là, quelle bonne heure ?"

[Backup]

en fait elle veut dire literalement ce qu'elle veux dire

c'est a dire qu'on exprime le fait qu'on passe un bon moment a l'heure presente

donc on dit "ha, quelle bonne heure" ( note la double signification ) quel bonheur ...
et donc ;"ha , la bonne heure... que je passe , d'apprendre que tout ce termine bien... "

ha la bonne heure ; il a compris