FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Tout est tranquille
par Jean Claude Hier à 21:41

» Texte en gif animé
par JL35 Hier à 13:29

» BasicEditor
par Yannick Mer 20 Sep 2017 - 17:17

» Simuler l’appui d'une touche ou combinaison de touches.
par pascal10000 Lun 18 Sep 2017 - 19:30

» Utilisation de HVIEWER pour afficher des images
par papydall Lun 18 Sep 2017 - 17:43

» Panoramic et les gifs animés.
par papydall Lun 18 Sep 2017 - 16:32

» recover source
par pascal10000 Dim 17 Sep 2017 - 14:21

» Recent dans vos menu
par Jean Claude Sam 16 Sep 2017 - 11:41

» Comment centrer un texte 3D.
par pascal10000 Ven 15 Sep 2017 - 20:20

» Carte interface 16 entrées et 16 sorties
par Jicehel Ven 15 Sep 2017 - 16:30

» Version instantanée V 0.9.28i9 possédant l'objet SYNEDIT
par pascal10000 Ven 15 Sep 2017 - 16:20

» Compilateur FBPano
par jean_debord Ven 15 Sep 2017 - 9:59

» 1 (en analyse): 3D_TARGET_IS ne fonctionne pas sur 3D_TEXT
par Jack Jeu 14 Sep 2017 - 19:52

» Problème avec la 3D.
par Jack Jeu 14 Sep 2017 - 18:06

» Test de la 3D.
par mindstorm Mer 13 Sep 2017 - 19:45

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

 Changement d'hébergeur de mon site

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Changement d'hébergeur de mon site   Dim 19 Mai 2013 - 0: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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 7991
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 19 Mai 2013 - 0:55

Je fais les modifs tout de suite dans petit programme... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5855
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Changement d'hébergeur de mon site   Dim 19 Mai 2013 - 1: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)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7991
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 19 Mai 2013 - 14: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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Changement d'hébergeur de mon site   Dim 19 Mai 2013 - 23: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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Changement d'hébergeur de mon site   Lun 20 Mai 2013 - 0: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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 7991
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 20 Mai 2013 - 1: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" )
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Changement d'hébergeur de mon site   Lun 20 Mai 2013 - 1: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 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 7991
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 20 Mai 2013 - 1: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 !... Laughing


Dernière édition par ygeronimi le Lun 20 Mai 2013 - 2:10, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Changement d'hébergeur de mon site   Lun 20 Mai 2013 - 2: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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 7991
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 20 Mai 2013 - 2:13

On s' est croisé...

J'ai tout mis à jour et cela fonctionne ... Laughing

Ps: ma petite appli est sur le webdav avec la bonne dll et le bon kgf_sub.bas
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Changement d'hébergeur de mon site   Lun 20 Mai 2013 - 2:29

Ainsi, tout est bien qui finit bien. Merci d'avoir joué au cobaye !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 7991
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Re: Changement d'hébergeur de mon site   Lun 20 Mai 2013 - 2:33

Mais de rien.... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Changement d'hébergeur de mon site   

Revenir en haut Aller en bas
 
Changement d'hébergeur de mon site
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Changement d'hébergeur de mon site
» hébergeur gratuit pour un site rein quand flash(RESOLUT)
» Changement de nom de site impossible
» Changement du nom de domaine de mon site
» changement sur site Hitskin.com

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: Activité des sites créés par les Panoramiciens. :: Le site de Klaus-
Sauter vers: