| Novembre 2024 | | Lun | Mar | Mer | Jeu | Ven | Sam | Dim |
|---|
| | | | | 1 | 2 | 3 | | 4 | 5 | 6 | 7 | 8 | 9 | 10 | | 11 | 12 | 13 | 14 | 15 | 16 | 17 | | 18 | 19 | 20 | 21 | 22 | 23 | 24 | | 25 | 26 | 27 | 28 | 29 | 30 | |  Calendrier |
|
|
| | Changement d'hébergeur de mon site |  |
| | | Auteur | Message |
|---|
Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Changement d'hébergeur de mon site Sam 18 Mai 2013 - 23:02 | |
| Suite à des problèmes techniques avec mon hébergeur voila.fr, j'au dû changer d'hébergeur. La nouvelle adresse de mon site est: http://klauspanoramic.funpic.org/Et donc, le code de mon programme de récupération automatique des modules est: - Code:
-
' automatic_update_all.bas
dim url1$ : url1$ = "http://klauspanoramic.funpic.org/versions/KGF.dll"
dim url2$ : url2$ = "http://klauspanoramic.funpic.org/versions/BDR.dll"
dim url3$ : url3$ = "http://klauspanoramic.funpic.org/versions/KGF_SUB.bas"
dim url4$ : url4$ = "http://klauspanoramic.funpic.org/versions/KGF.chm"
dim url5$ : url5$ = "http://klauspanoramic.funpic.org/versions/KGF.doc"
dim url6$ : url6$ = "http://klauspanoramic.funpic.org/versions/KGF.pdf"
dim url7$ : url7$ = "http://klauspanoramic.funpic.org/versions/BDR_SUB.chm"
dim url8$ : url8$ = "http://klauspanoramic.funpic.org/versions/BDR_SUB.doc"
dim url9$ : url9$ = "http://klauspanoramic.funpic.org/versions/BDR_SUB.pdf"
dim dossier$ : dossier$ = "C:\temp\"
KGF_initialize("KGF.dll")
progress_bar 1 : top 1,10 : left 1,10 : width 1,width(0)-30
min 1,0 : max 1:9 : position 1,0
DownloadFile(url1$,dossier$+"KGF.dll")
position 1,1
DownloadFile(url2$,dossier$+"BDR.dll")
position 1,2
DownloadFile(url3$,dossier$+"KGF_SUB.bas")
position 1,3
DownloadFile(url4$,dossier$+"KGF.chm")
position 1,4
DownloadFile(url5$,dossier$+"KGF.doc")
position 1,5
DownloadFile(url6$,dossier$+"KGF.pdf")
position 1,6
DownloadFile(url7$,dossier$+"BDR_SUB.chm")
position 1,7
DownloadFile(url8$,dossier$+"BDR_SUB.doc")
position 1,9
DownloadFile(url8$,dossier$+"BDR_SUB.pdf")
position 1,9
message "fini"
end
#INCLUDE "KGF_SUB.bas"
Et mon site web à cette nouvelle adresse est mis à jour avec des références directes également à ces modules, sur la page "Externes". Facile à utiliser. | |
| | | | Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Sam 18 Mai 2013 - 23:55 | |
| Je fais les modifs tout de suite dans petit programme...  | |
| | | | Jicehel
Nombre de messages : 5947
Age : 52
Localisation : 77500
Date d'inscription : 18/04/2011
| | Sujet: Re: Changement d'hébergeur de mon site Dim 19 Mai 2013 - 0:57 | |
| Par contre sauf erreur de ma part, le KGF qui est en lien direct n'est pas de la bonne version (j'avais des erreur sur les nouvelles fonctions en utilisant le KGF téléchargé par les liens directs alors qu'en utilisant celle de ton Webdav tout marche bien) | |
| | | | Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Dim 19 Mai 2013 - 13:18 | |
| Je confirme, la version sur le site est la 2.33 du 14/05/2013
En tout cas mon KGF_Updater, ne me change pas la version. | |
| | | | Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: Changement d'hébergeur de mon site Dim 19 Mai 2013 - 22:08 | |
| La version sur mon nouveau site est bien la V2.34 du 17/05/2013, avec une taille de "1 166 336 octets". Utilise bien le lien vers mon nouveau site klauspanoramic.funpic.org. Sur voila.fr, comme je l'ai indiqué, il y a un problème et je n'arrive plus mettre le site à jour. Il sera supprimé sous brève échéance. | |
| | | | Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: Changement d'hébergeur de mon site Dim 19 Mai 2013 - 23:11 | |
| J'ai corrigé un problème de code HTML sur mon nouveau site, dans la page "Externes", pour les liens directs vers les 9 fichiers concernés par la mise à jour. La page web utilise maintenant exactement les mêmes liens que ceux utilisés dans le module posté ci-dessus. | |
| | | | Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Lun 20 Mai 2013 - 0:14 | |
| Voici mon source : - Code:
-
' ******************************************************************************
' * KGF_UPDATER *
' * ---------- *
' * Version 0.3 du 15/05/2013 *
' ******************************************************************************
Variables()
Constantes()
Labels()
Init()
GUI()
end
' __________________________________________________________________DECLARATIONS
Sub Variables()
dim i%,Autre$
dim Clic%
dim Nb_Fich%
dim vKGF$,vBDR$
End_Sub
Sub Constantes()
dim url1$ : url1$ = "http://klauspanoramic.funpic.org/versions/KGF.dll"
dim url2$ : url2$ = "http://klauspanoramic.funpic.org/versions/BDR.dll"
dim url3$ : url3$ = "http://klauspanoramic.funpic.org/versions/KGF_SUB.bas"
dim url4$ : url4$ = "http://klauspanoramic.funpic.org/versions/KGF.chm"
dim url5$ : url5$ = "http://klauspanoramic.funpic.org/versions/KGF.doc"
dim url6$ : url6$ = "http://klauspanoramic.funpic.org/versions/KGF.pdf"
dim url7$ : url7$ = "http://klauspanoramic.funpic.org/versions/BDR_SUB.chm"
dim url8$ : url8$ = "http://klauspanoramic.funpic.org/versions/BDR_SUB.doc"
dim url9$ : url9$ = "http://klauspanoramic.funpic.org/versions/BDR_SUB.pdf"
dim path$ : path$ = Dir_Current$+"\"
dim KGF$ : KGF$ = path$+"KGF.dll"
dim BDR$ : BDR$ = path$+"BDR.dll"
dim T$ :T$ = "KGF_SUB.bas/KGF.chm/KGF.doc/KGF.pdf/BDR_SUB.chm/BDR_SUB.doc/BDR_SUB.pdf/"
dim D$ :D$ = path$+"temp\"
dim Fic$ : Fic$ = D$+"Versions.txt"
End_Sub
Sub Labels()
Label Clic,Clic2
End_Sub
' _______________________________________________________________INITIALISATIONS
Sub Init()
KGF_initialize(KGF$)
BDRinitialize(BDR$)
KGFdllversion()
vKGF$ = KGFdllversion$
BDRversion(vers$)
vBDR$ = BDRversion$
End_Sub
' _____________________________________________________________________INTERFACE
Sub GUI()
Dim_local T%,Sep%,C$
O_Form(0,0,1,0,0,250,400,"KGF UPDATER")
font_name 0,"arial"
O_Alpha(10,0,1,15,10,0,0,"Choisissez les fichiers à mettre à jour :")
font_color 10,0,0,255 :font_bold 10
T%=20
For i%= 1 to 5
T%=T%+25 :O_Check(i%,0,1,T%,10,0,0,""):on_click i%,clic2:cursor_point i%
Next i%
T%=20
For i%= 6 to 9
T%=T%+25 :O_Check(i%,0,1,T%,200,0,0,""):on_click i%,clic2:cursor_point i%
Next i%
For i%= 3 to 9
Sep%=instr(T$,"/")
C$=left$(T$,Sep%-1)
if len(T$)>1 : T$=Right$(T$,Len(T$)-Sep%):end_if
Caption i%,C$
Next i%
caption 1,vKGF$
caption 2,vBDR$
O_Button(11,0,1,160,350,25,25,"q",1)
font_name 11,"Webdings":font_size 11,14:font_color 11,255,0,0
hint 11,"Mise à jour"
O_Statut_Bar(12,0,1,0)
O_Alpha(13,0,1,height(0)-56,20,0,0,"")
O_Progress_Bar(14,0,0,height(0)-58,width(0)-140,0,100)
O_DList(15,"")
O_Button(16,0,1,160,100,0,150,"Autres fichiers à mettre à jour",1)
O_DList(17,"")
End_Sub
Sub F_Autre()
If object_exists(18)=0
O_Form(18,0,1,top(0),left(0)+width(0)+5,height(0),400,"Autres...")
font_name 18,"arial"
O_Alpha(19,18,1,10,10,0,0,"Fichiers sélectionnés")
font_bold 19 : font_color 19,0,0,255
O_List(23,18,1,30,10,150,364,"",0)
O_Button(21,18,1,185,315,21,21,"+",1):font_size 21,12:font_bold 21
hint 21,"Ajouter un fichier à la liste"
O_Button(22,18,1,185,341,21,21,"-",1):font_size 22,12:font_bold 22
hint 22,"Supprimer un fichier de la liste"
else
Show 18
end_if
End_Sub
Clic:
Clic%=Number_Click
Select Clic%
case 11 :Chargement()
case 16 :F_Autre()
case 21 :AjoutFich()
case 22 :SupprFich()
End_Select
return
Clic2:
For i%=1 to 9
If Clicked(i%)=1
If Checked(i%)=1
Nb_Fich%=Nb_Fich%+1
Else
Nb_Fich%=Nb_Fich%-1
End_if
End_if
Next i%
return
Sub AjoutFich()
if variable("File$")=1 : File$="" :End_if
O_Open_Dialog(24,0,"","*.bas ;*.chm ;*.pdf ;*.doc;*.dll|*.bas ;*.chm ;*.pdf ;*.doc;*.dll",5)
If File$<>""
item_add 17,File$
item_add 23,File$
End_if
End_Sub
Sub SupprFich()
if count(23)>0
If item_index$(23)<>""
Item_delete 17,item_index(23)
Item_delete 23,item_index(23)
end_if
else
if message_warning_ok("Liste vide !")=1:end_if
end_if
End_Sub
Sub Chargement()
Dim_local x%,nf%,cpt%,i$,dir$
if Dir_exists(D$)=0 :Dir_Make D$ : End_if
for x%=1 to 9 :inactive x% :next x%
caption 13,"Chargement des fichiers..."
display
show 14 :Min 14,0 : max 14,Nb_Fich% :position 14,0
display
if checked(1)=1:DownloadFile(url1$,D$+"KGF.dll") :position 14,position(14)+1:display:End_if
if checked(2)=1:DownloadFile(url2$,D$+"BDR.dll") :position 14,position(14)+1:display:End_if
if checked(3)=1:DownloadFile(url3$,D$+"KGF_SUB.bas"):position 14,position(14)+1:display:End_if
if checked(4)=1:DownloadFile(url4$,D$+"KGF.chm") :position 14,position(14)+1:display:End_if
if checked(5)=1:DownloadFile(url5$,D$+"KGF.doc") :position 14,position(14)+1:display:End_if
if checked(6)=1:DownloadFile(url6$,D$+"KGF.pdf") :position 14,position(14)+1:display:End_if
if checked(7)=1:DownloadFile(url7$,D$+"BDR_SUB.chm"):position 14,position(14)+1:display:End_if
if checked(8)=1:DownloadFile(url8$,D$+"BDR_SUB.doc"):position 14,position(14)+1:display:End_if
if checked(9)=1:DownloadFile(url8$,D$+"BDR_SUB.pdf"):position 14,position(14)+1:display:End_if
position 14,0 :caption 13,""
GetActualVersions(Fic$)
file_load 15,Fic$
if checked(1)=1
nf%=nf%+1
if vKGF$<>item_read$(15,1)
Min 14,0 :Max 14,4
Caption 13,"Mise à jour de KGF.dll" :display
UnloadDLL(BDR_handle%)
position 14,1 :display
dll_off
position 14,2 :display
if file_exists(KGF$):file_delete KGF$:End_if
free KGF_initialize : free KGF_res%
position 14,3 :display
file_rename D$+"KGF.dll",KGF$
' font_color 1,10,120,0
position 14,4
wait 500 :position 14,0 :caption 13,""
else
file_delete D$+"KGF.dll"
end_if
end_if
if checked(2)=1
nf%=nf%+1
if vBDR$<>item_read$(15,2)
Min 14,0 :Max 14,4
Caption 13,"Mise à jour de BDR.dll" :display
UnloadDLL(BDR_handle%)
position 14,1 :display
dll_off
position 14,2 :display
if file_exists(BDR$) then file_delete BDR$
position 14,3 :display
file_rename D$+"BDR.dll",BDR$
' font_color 2,10,120,0
position 14,4
wait 500 :position 14,0 :caption 13,""
else
file_delete D$+"BDR.dll"
end_if
end_if
nf% = Nb_Fich% -nf%
Min 14,0 :Max 14,nf%
caption 13,"Mise à jour des fichiers"
if checked(3)=1
if file_exists(path$+"KGF_SUB.bas")=1 :file_delete path$+"KGF_SUB.bas":end_if
file_rename D$+"KGF_SUB.bas",path$+"KGF_SUB.bas"
' font_color 3,10,120,0
position 14,position(14)+1 :display
end_if
if checked(4)=1
if file_exists(path$+"KGF.chm")=1 :file_delete path$+"KGF.chm":end_if
file_rename D$+"KGF.chm",path$+"KGF.chm"
' font_color 4,10,120,0
position 14,position(14)+1 :display
end_if
if checked(5)=1
if file_exists(path$+"KGF.doc")=1 :file_delete path$+"KGF.doc":end_if
file_rename D$+"KGF.doc",path$+"KGF.doc"
' font_color 5,10,120,0
position 14,position(14)+1 :display
end_if
if checked(6)=1
if file_exists(path$+"KGF.pdf")=1 :file_delete path$+"KGF.pdf":end_if
file_rename D$+"KGF.pdf",path$+"KGF.pdf"
' font_color 6,10,120,0
position 14,position(14)+1 :display
end_if
if checked(7)=1
if file_exists(path$+"BDR_SUB.chm")=1 :file_delete path$+"BDR_SUB.chm":end_if
file_rename D$+"BDR_SUB.chm",path$+"BDR_SUB.chm"
' font_color 7,10,120,0
position 14,position(14)+1 :display
end_if
if checked(8)=1
if file_exists(path$+"BDR_SUB.doc")=1 :file_delete path$+"BDR_SUB.doc":end_if
file_rename D$+"BDR_SUB.doc",path$+"BDR_SUB.doc"
' font_color 8,10,120,0
position 14,position(14)+1 :display
end_if
if checked(9)=1
if file_exists(path$+"BDR_SUB.pdf")=1 :file_delete path$+"BDR_SUB.pdf":end_if
file_rename D$+"BDR_SUB.pdf",path$+"BDR_SUB.pdf"
' font_color 9,10,120,0
position 14,position(14)+1 :display
end_if
if object_exists(18)=1
cpt%=count(23):nf%=0
Min 14,0 :Max 14,cpt% : position 14,0
caption 13,"Mise à jour des fichiers annexes..."
If Count(23)>0
for x%=1 to cpt%
i$=item_read$(23,1)
dir$=file_extract_path$(i$)
file_delete i$
if file_extract_name$(i$)="KGF.dll":file_copy KGF$,dir$+"KGF.dll":End_if
if file_extract_name$(i$)="BDR.dll":file_copy KGF$,dir$+"BDR.dll":End_if
if file_extract_name$(i$)="KGF_SUB.bas":file_copy KGF$,dir$+"KGF_SUB.bas":End_if
if file_extract_name$(i$)="KGF.chm":file_copy KGF$,dir$+"KGF.chm":End_if
if file_extract_name$(i$)="KGF.doc":file_copy KGF$,dir$+"KGF.doc":End_if
if file_extract_name$(i$)="KGF.pdf":file_copy KGF$,dir$+"KGF.pdf":End_if
if file_extract_name$(i$)="BDR_SUB.chm":file_copy KGF$,dir$+"BDR_SUB.chm":End_if
if file_extract_name$(i$)="BDR_SUB.doc":file_copy KGF$,dir$+"BDR_SUB.doc":End_if
if file_extract_name$(i$)="BDR_SUB.pdf":file_copy KGF$,dir$+"BDR_SUB.pdf":End_if
item_delete 17,1
item_delete 23,1
nf%=nf%+1
position 14,nf%
display
next x%
caption 13,""
hide 18
End_if
End_if
if variable("KGF_initialize")=0
KGF_initialize(KGF$)
BDRinitialize(BDR$)
KGFdllversion()
vKGF$ = KGFdllversion$
BDRversion(vers$)
vBDR$ = BDRversion$
caption 1,vKGF$
caption 2,vBDR$
end_if
for x%=1 to 9 :active x% :mark_off x% :next x%
Nb_Fich%=0
file_delete D$+"Versions.txt"
Dir_Remove D$
position 14,0 :caption 13,"" :hide 14
End_Sub
#include "OBJ_SUB.bas"
#include "KGF_SUB.bas" et la version est toujours 2.33 ( Dossier complet sur mon webdav :"Sources\KGF\Update_KGF.zip" ) | |
| | | | Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: Changement d'hébergeur de mon site Lun 20 Mai 2013 - 0:36 | |
| J'ai compris. C'est parce que ta DLL (encore la version 2.33) contient une fonction GetActualVersion qui va chercher la liste des versions sur le site voila.fr - et ce site n'est pas à jour. Fais plutôt comme ceci: - Code:
-
' ******************************************************************************
' * KGF_UPDATER *
' * ---------- *
' * Version 0.3 du 15/05/2013 *
' ******************************************************************************
Variables()
Constantes()
Labels()
Init()
GUI()
end
' __________________________________________________________________DECLARATIONS
Sub Variables()
dim i%,Autre$
dim Clic%
dim Nb_Fich%
dim vKGF$,vBDR$
End_Sub
Sub Constantes()
dim url0$ : url0$ = "http://klauspanoramic.funpic.org/versions/versions.txt"
dim url1$ : url1$ = "http://klauspanoramic.funpic.org/versions/KGF.dll"
dim url2$ : url2$ = "http://klauspanoramic.funpic.org/versions/BDR.dll"
dim url3$ : url3$ = "http://klauspanoramic.funpic.org/versions/KGF_SUB.bas"
dim url4$ : url4$ = "http://klauspanoramic.funpic.org/versions/KGF.chm"
dim url5$ : url5$ = "http://klauspanoramic.funpic.org/versions/KGF.doc"
dim url6$ : url6$ = "http://klauspanoramic.funpic.org/versions/KGF.pdf"
dim url7$ : url7$ = "http://klauspanoramic.funpic.org/versions/BDR_SUB.chm"
dim url8$ : url8$ = "http://klauspanoramic.funpic.org/versions/BDR_SUB.doc"
dim url9$ : url9$ = "http://klauspanoramic.funpic.org/versions/BDR_SUB.pdf"
dim path$ : path$ = Dir_Current$+"\"
dim KGF$ : KGF$ = path$+"KGF.dll"
dim BDR$ : BDR$ = path$+"BDR.dll"
dim T$ :T$ = "KGF_SUB.bas/KGF.chm/KGF.doc/KGF.pdf/BDR_SUB.chm/BDR_SUB.doc/BDR_SUB.pdf/"
dim D$ :D$ = path$+"temp\"
dim Fic$ : Fic$ = D$+"Versions.txt"
End_Sub
Sub Labels()
Label Clic,Clic2
End_Sub
' _______________________________________________________________INITIALISATIONS
Sub Init()
KGF_initialize(KGF$)
BDRinitialize(BDR$)
KGFdllversion()
vKGF$ = KGFdllversion$
BDRversion(vers$)
vBDR$ = BDRversion$
End_Sub
' _____________________________________________________________________INTERFACE
Sub GUI()
Dim_local T%,Sep%,C$
O_Form(0,0,1,0,0,250,400,"KGF UPDATER")
font_name 0,"arial"
O_Alpha(10,0,1,15,10,0,0,"Choisissez les fichiers à mettre à jour :")
font_color 10,0,0,255 :font_bold 10
T%=20
For i%= 1 to 5
T%=T%+25 :O_Check(i%,0,1,T%,10,0,0,""):on_click i%,clic2:cursor_point i%
Next i%
T%=20
For i%= 6 to 9
T%=T%+25 :O_Check(i%,0,1,T%,200,0,0,""):on_click i%,clic2:cursor_point i%
Next i%
For i%= 3 to 9
Sep%=instr(T$,"/")
C$=left$(T$,Sep%-1)
if len(T$)>1 : T$=Right$(T$,Len(T$)-Sep%):end_if
Caption i%,C$
Next i%
caption 1,vKGF$
caption 2,vBDR$
O_Button(11,0,1,160,350,25,25,"q",1)
font_name 11,"Webdings":font_size 11,14:font_color 11,255,0,0
hint 11,"Mise à jour"
O_Statut_Bar(12,0,1,0)
O_Alpha(13,0,1,height(0)-56,20,0,0,"")
O_Progress_Bar(14,0,0,height(0)-58,width(0)-140,0,100)
O_DList(15,"")
O_Button(16,0,1,160,100,0,150,"Autres fichiers à mettre à jour",1)
O_DList(17,"")
End_Sub
Sub F_Autre()
If object_exists(18)=0
O_Form(18,0,1,top(0),left(0)+width(0)+5,height(0),400,"Autres...")
font_name 18,"arial"
O_Alpha(19,18,1,10,10,0,0,"Fichiers sélectionnés")
font_bold 19 : font_color 19,0,0,255
O_List(23,18,1,30,10,150,364,"",0)
O_Button(21,18,1,185,315,21,21,"+",1):font_size 21,12:font_bold 21
hint 21,"Ajouter un fichier à la liste"
O_Button(22,18,1,185,341,21,21,"-",1):font_size 22,12:font_bold 22
hint 22,"Supprimer un fichier de la liste"
else
Show 18
end_if
End_Sub
Clic:
Clic%=Number_Click
Select Clic%
case 11 :Chargement()
case 16 :F_Autre()
case 21 :AjoutFich()
case 22 :SupprFich()
End_Select
return
Clic2:
For i%=1 to 9
If Clicked(i%)=1
If Checked(i%)=1
Nb_Fich%=Nb_Fich%+1
Else
Nb_Fich%=Nb_Fich%-1
End_if
End_if
Next i%
return
Sub AjoutFich()
if variable("File$")=1 : File$="" :End_if
O_Open_Dialog(24,0,"","*.bas ;*.chm ;*.pdf ;*.doc;*.dll|*.bas ;*.chm ;*.pdf ;*.doc;*.dll",5)
If File$<>""
item_add 17,File$
item_add 23,File$
End_if
End_Sub
Sub SupprFich()
if count(23)>0
If item_index$(23)<>""
Item_delete 17,item_index(23)
Item_delete 23,item_index(23)
end_if
else
if message_warning_ok("Liste vide !")=1:end_if
end_if
End_Sub
Sub Chargement()
Dim_local x%,nf%,cpt%,i$,dir$
if Dir_exists(D$)=0 :Dir_Make D$ : End_if
for x%=1 to 9 :inactive x% :next x%
caption 13,"Chargement des fichiers..."
display
show 14 :Min 14,0 : max 14,Nb_Fich% :position 14,0
display
if checked(1)=1:DownloadFile(url1$,D$+"KGF.dll") :position 14,position(14)+1:display:End_if
if checked(2)=1:DownloadFile(url2$,D$+"BDR.dll") :position 14,position(14)+1:display:End_if
if checked(3)=1:DownloadFile(url3$,D$+"KGF_SUB.bas"):position 14,position(14)+1:display:End_if
if checked(4)=1:DownloadFile(url4$,D$+"KGF.chm") :position 14,position(14)+1:display:End_if
if checked(5)=1:DownloadFile(url5$,D$+"KGF.doc") :position 14,position(14)+1:display:End_if
if checked(6)=1:DownloadFile(url6$,D$+"KGF.pdf") :position 14,position(14)+1:display:End_if
if checked(7)=1:DownloadFile(url7$,D$+"BDR_SUB.chm"):position 14,position(14)+1:display:End_if
if checked(8)=1:DownloadFile(url8$,D$+"BDR_SUB.doc"):position 14,position(14)+1:display:End_if
if checked(9)=1:DownloadFile(url8$,D$+"BDR_SUB.pdf"):position 14,position(14)+1:display:End_if
position 14,0 :caption 13,""
' GetActualVersions(Fic$)
DownloadFile(url0$,fic$)
file_load 15,Fic$
if checked(1)=1
nf%=nf%+1
if vKGF$<>item_read$(15,1)
Min 14,0 :Max 14,4
Caption 13,"Mise à jour de KGF.dll" :display
UnloadDLL(BDR_handle%)
position 14,1 :display
dll_off
position 14,2 :display
if file_exists(KGF$):file_delete KGF$:End_if
free KGF_initialize : free KGF_res%
position 14,3 :display
file_rename D$+"KGF.dll",KGF$
' font_color 1,10,120,0
position 14,4
wait 500 :position 14,0 :caption 13,""
else
file_delete D$+"KGF.dll"
end_if
end_if
if checked(2)=1
nf%=nf%+1
if vBDR$<>item_read$(15,2)
Min 14,0 :Max 14,4
Caption 13,"Mise à jour de BDR.dll" :display
UnloadDLL(BDR_handle%)
position 14,1 :display
dll_off
position 14,2 :display
if file_exists(BDR$) then file_delete BDR$
position 14,3 :display
file_rename D$+"BDR.dll",BDR$
' font_color 2,10,120,0
position 14,4
wait 500 :position 14,0 :caption 13,""
else
file_delete D$+"BDR.dll"
end_if
end_if
nf% = Nb_Fich% -nf%
Min 14,0 :Max 14,nf%
caption 13,"Mise à jour des fichiers"
if checked(3)=1
if file_exists(path$+"KGF_SUB.bas")=1 :file_delete path$+"KGF_SUB.bas":end_if
file_rename D$+"KGF_SUB.bas",path$+"KGF_SUB.bas"
' font_color 3,10,120,0
position 14,position(14)+1 :display
end_if
if checked(4)=1
if file_exists(path$+"KGF.chm")=1 :file_delete path$+"KGF.chm":end_if
file_rename D$+"KGF.chm",path$+"KGF.chm"
' font_color 4,10,120,0
position 14,position(14)+1 :display
end_if
if checked(5)=1
if file_exists(path$+"KGF.doc")=1 :file_delete path$+"KGF.doc":end_if
file_rename D$+"KGF.doc",path$+"KGF.doc"
' font_color 5,10,120,0
position 14,position(14)+1 :display
end_if
if checked(6)=1
if file_exists(path$+"KGF.pdf")=1 :file_delete path$+"KGF.pdf":end_if
file_rename D$+"KGF.pdf",path$+"KGF.pdf"
' font_color 6,10,120,0
position 14,position(14)+1 :display
end_if
if checked(7)=1
if file_exists(path$+"BDR_SUB.chm")=1 :file_delete path$+"BDR_SUB.chm":end_if
file_rename D$+"BDR_SUB.chm",path$+"BDR_SUB.chm"
' font_color 7,10,120,0
position 14,position(14)+1 :display
end_if
if checked(8)=1
if file_exists(path$+"BDR_SUB.doc")=1 :file_delete path$+"BDR_SUB.doc":end_if
file_rename D$+"BDR_SUB.doc",path$+"BDR_SUB.doc"
' font_color 8,10,120,0
position 14,position(14)+1 :display
end_if
if checked(9)=1
if file_exists(path$+"BDR_SUB.pdf")=1 :file_delete path$+"BDR_SUB.pdf":end_if
file_rename D$+"BDR_SUB.pdf",path$+"BDR_SUB.pdf"
' font_color 9,10,120,0
position 14,position(14)+1 :display
end_if
if object_exists(18)=1
cpt%=count(23):nf%=0
Min 14,0 :Max 14,cpt% : position 14,0
caption 13,"Mise à jour des fichiers annexes..."
If Count(23)>0
for x%=1 to cpt%
i$=item_read$(23,1)
dir$=file_extract_path$(i$)
file_delete i$
if file_extract_name$(i$)="KGF.dll":file_copy KGF$,dir$+"KGF.dll":End_if
if file_extract_name$(i$)="BDR.dll":file_copy KGF$,dir$+"BDR.dll":End_if
if file_extract_name$(i$)="KGF_SUB.bas":file_copy KGF$,dir$+"KGF_SUB.bas":End_if
if file_extract_name$(i$)="KGF.chm":file_copy KGF$,dir$+"KGF.chm":End_if
if file_extract_name$(i$)="KGF.doc":file_copy KGF$,dir$+"KGF.doc":End_if
if file_extract_name$(i$)="KGF.pdf":file_copy KGF$,dir$+"KGF.pdf":End_if
if file_extract_name$(i$)="BDR_SUB.chm":file_copy KGF$,dir$+"BDR_SUB.chm":End_if
if file_extract_name$(i$)="BDR_SUB.doc":file_copy KGF$,dir$+"BDR_SUB.doc":End_if
if file_extract_name$(i$)="BDR_SUB.pdf":file_copy KGF$,dir$+"BDR_SUB.pdf":End_if
item_delete 17,1
item_delete 23,1
nf%=nf%+1
position 14,nf%
display
next x%
caption 13,""
hide 18
End_if
End_if
if variable("KGF_initialize")=0
KGF_initialize(KGF$)
BDRinitialize(BDR$)
KGFdllversion()
vKGF$ = KGFdllversion$
BDRversion(vers$)
vBDR$ = BDRversion$
caption 1,vKGF$
caption 2,vBDR$
end_if
for x%=1 to 9 :active x% :mark_off x% :next x%
Nb_Fich%=0
file_delete D$+"Versions.txt"
Dir_Remove D$
position 14,0 :caption 13,"" :hide 14
End_Sub
#include "OBJ_SUB.bas"
#include "KGF_SUB.bas" Tu vas récupérer la version V2.34 du site FunPic.org, avec cette fois une fonction GetActualVersion à jour cherchant la liste des versions sur FunPic.org. Et à partir de ce moment, tu pourras revenir à ta version, car ensuite, on cherchera la liste des versions sur le bon site. Désolé, mais ce genre de désagréments arrive lorsqu'on change de site ! | |
| | | | Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Lun 20 Mai 2013 - 0:56 | |
| Exact Klaus ! Je viens de faire des interruptions de programme avec des [message "ok"] cela m'a permis de voir que les fichiers chargés sont bons mais que c'était le fichier "versions.txt" qui indiquait toujours la version 2.33. Par conséquent, les comparaisons étaient faussées... Ce n'est pas grave mais je pense que tu pourrais, pour une fois faire appel à un fichier *.ini contenant pour ces fonctions l' adresse du site et des fichiers à charger pour ces fonctions. Sinon, à chaque fois que tu changeras d'hébergeur tu auras tout à ré écrire. Bon, ca y est, j' ai tout mis à jour et cela fonctionne !...
Dernière édition par ygeronimi le Lun 20 Mai 2013 - 1:10, édité 1 fois | |
| | | | Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: Changement d'hébergeur de mon site Lun 20 Mai 2013 - 1:03 | |
| Le fichier versions.txt est à jour, entretemps, sur le site FunPic.org. Je me suis mélangé un peu les pinceaux, pour le déménagement de mon site... Tout ira bien maintenant. | |
| | | | Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Lun 20 Mai 2013 - 1:13 | |
| On s' est croisé... J'ai tout mis à jour et cela fonctionne ... Ps: ma petite appli est sur le webdav avec la bonne dll et le bon kgf_sub.bas | |
| | | | Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: Changement d'hébergeur de mon site Lun 20 Mai 2013 - 1:29 | |
| Ainsi, tout est bien qui finit bien. Merci d'avoir joué au cobaye ! | |
| | | | Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | | | | Contenu sponsorisé
| | Sujet: Re: Changement d'hébergeur de mon site | |
| |
| | | | | | Changement d'hébergeur de mon site | |
|
Sujets similaires | |
|
| | Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| |
| |
| |
