PureBasic

Code : Tout sélectionner

1.0

Code : Tout sélectionner

version_3_0M.dat,900000
version_3_0U.dat,90000
version_2_6U.dat,35000
version_2_5U.dat,35000
version_2_4U.dat,35000
version_2_3U.dat,35000
version_2_1U.dat,40000
version_2_0M.dat,800000
version_2_0U.dat,70000
version_1_7U.dat,250000
version_1_6U.dat,405000
version_1_3U.dat,99000
version_1_1U.dat,150000
version_1_0M.dat,500000

Code : Tout sélectionner

Structure upd
   filename.s  ; fichier distant
   size.i      ; taille en octet
   type.b      ; 
   number.i    ; utilisé pour trier
EndStructure
;
;
Declare getversion(info$)
Declare type(info$)
NewList calculate.upd()   
NewList download.upd()
; RECUPERE LA VERSION ACTUELLE DU LOGICIEL
rd=ReadFile(#PB_Any,"version.txt") ; fichier local contenant la version actuelle du logiciel
If RD
   version$=ReadString(rd)
   CloseFile(rd)
EndIf
;
; recupere la liste des patches disponibles 
;
rd=ReadFile(#PB_Any,"manifest.txt") ; en local pour l'exemple mais ce fichier doit etre sur le serveur distant.
If RD
   Repeat
      l$=ReadString(rd)
      If getversion(l$)<>ValF(version$      )
         AddElement(calculate())
         calculate()\filename=StringField(l$,1,",")
         calculate()\type=type(StringField(l$,1,","))
         calculate()\size=Val(StringField(l$,2,","))
         calculate()\number=ListIndex(calculate())
      Else 
         Break ; on sort si on arrive a la version deja utilisée 
      EndIf
   Until Eof(rd)         
   CloseFile(rd)
   ; ajoute a la liste des telechargement les updates les plus recentes jusqu'a la derniere version majeure
   Repeat
      FirstElement(calculate())                ; reviens au debut de la liste  
      If calculate()\type=0 ; minor         
         AddElement(download())
         CopyStructure(@calculate(),@download(),upd)
         DeleteElement(calculate(),1)
      Else
         Break
      EndIf
   Until NextElement(calculate())=0
   latestmajor.upd
   FirstElement(calculate())                ; reviens au debut de la liste  
   CopyStructure(@calculate(),@latestmajor,upd)   ; recupere les infos de la derniere update majeure
   ; 
   Repeat
      major.upd
      FirstElement(calculate())                ; reviens au debut de la liste  
      CopyStructure(@calculate(),@major,upd)   ; recupere les infos de l'update majeure
      DeleteElement(calculate(),1)             ; suprime l'update majeure de la liste de telechargement possibles
      FirstElement(calculate())
      totalsize=0
      Repeat
         If calculate()\type=0                 ; il s'agis d'une update
            Debug calculate()\filename
            totalsize + calculate()\size       ; ajoute la taille des patch
            If ListIndex(calculate())<ListSize(calculate())-1 ; jusqu'a la fin de la liste
               NextElement(calculate())           
            Else 
               Break
            EndIf
         Else
            Break
         EndIf
      ForEver 
      ;     
      Debug totalsize
      If totalsize>=major\size                 ; la taille des patch cumulatifs est superieur ou egal a la taille de l'update majeure
         AddElement(download())     
         CopyStructure(@major,@download(),upd) ; ajout de l'update majeure a la liste de telechargements
      EndIf
      Repeat
         FirstElement(calculate())      
         If calculate()\type=0                             ; il s'agis d'une update
            If totalsize<major\size                        ; la taille de l'update majeure est superieure au patch cumulatifs
               AddElement(download())           
               CopyStructure(@calculate(),@download(),upd) ; ajout de l'update cumulative a la liste de telechargements
            EndIf
            DeleteElement(calculate(),1)                   ; suprime l'update cumulative de la liste de telechargement possibles
         Else
            Break
         EndIf
      Until ListSize(calculate())=0                  
   Until ListSize(calculate())=0
EndIf
;
ForEach(download())
   If getversion(download()\filename)<=getversion(latestmajor\filename)
      sizedl +download()\size
   EndIf
Next
If sizedl>=latestmajor\size ; meme taille en patch cumulatifs ou plus grand   
   ForEach(download())
      If getversion(download()\filename)=getversion(latestmajor\filename) ; version majeure remplace les telechargements
         CopyStructure(@latestmajor,@download(),upd)
         Break
      EndIf
   Next
   NextElement(download())
   Repeat
      DeleteElement(download())
   Until NextElement(download())=0   
EndIf
; affichage des resultats
;
Debug "PATCHES A TELECHARGER pour passer de la version "+version$+" a la derniere version " 
;

SortStructuredList(download(),#PB_Sort_Descending,OffsetOf(upd\number),#PB_Sort_Integer) ; tri la liste de la plus ancienne vers la plus recente 

ForEach(download())
   Debug download()\filename   
Next

;
;
;

Procedure getversion(info$)
   file$=StringField(info$,1,",")   
   pos=FindString(file$,"_")
   Debug ValF(StringField(Mid(file$,pos,Len(file$)-(pos+4)),2,"_")+"."+StringField(Mid(file$,pos,Len(file$)-(pos+4)),3,"_"))
   ProcedureReturn ValF(StringField(Mid(file$,pos,Len(file$)-(pos+4)),2,"_")+"."+StringField(Mid(file$,pos,Len(file$)-(pos+4)),3,"_"))
EndProcedure
Procedure type(info$)   
   Select Mid(info$,Len(info$)-4,1)
      Case "U"
         ProcedureReturn 0
      Case "M"
         ProcedureReturn 1
   EndSelect   
EndProcedure

Code : Tout sélectionner

[general]
cur_version = 0.0.2454 ; c'est la version la plus récente
nbreversion = 3 ; c'est le nombre de version max

[version1]
version = 0.0154
nbre = 2
file1 = quete.txt
file2 =image1.png

[version2]
version = 0.0192
nbre = 3
file1 = texte.txt
file2 = image5.png
file3 = image6.jpg

[version1]
version = 0.02454
nbre = 1
file1 = quete2.txt

[exe]
; ici, je télécharge si besoin les nouvelles versions des exe, si elles ont changées
nbre = 2
file1= update.exe
fle2 =jeu.exe

Code : Tout sélectionner

OpenPreferences("newversion.ini")
preferencegroupe("general")
nbreversion.i = ReadPreferenceInteger("nbreversion",0)

For i= 1 To nbreversion
nom$ = "[version" +Str(i)+"]"
preferencegroupe(nom$)
versionsection.d = ReadPreferenceDouble("numero",0)
nbre = ReadPreferenceinteger("nbre",0)
If maversion < versionsection
for u = 1 to nbre
file$ = "file"+Str(i)
filetoUp$= ReadPreferencestring(file$,"")
downloadFile(filetoUp$)
next u
EndIf
Next i
ClosePreferences()