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
» Reprise du développement et de la documentation
par Fredisland Aujourd'hui à 12:53

» Une copie de Panoramic Editeur
par Jean Claude Hier à 21:03

» Objet 3D_PLANE, réalisation d'un dé en 3D
par Marc Hier à 0:33

» Cacher la barre des tâches
par Klaus Lun 21 Mai 2018 - 21:27

» Une "base de connaissance" - pour jouer ou plus si affinité
par Minibug Lun 21 Mai 2018 - 10:29

» quel est ce comportement de Panoramic_editor
par Oscaribout Lun 21 Mai 2018 - 0:22

» Des FORM(s) Colorés
par Jean Claude Dim 20 Mai 2018 - 20:58

» Recherches dans un fichier texte
par JL35 Dim 20 Mai 2018 - 20:18

» Problème d'affichage des pages du forum (Résolu)
par Jean Claude Dim 20 Mai 2018 - 20:00

» Créer une application *.exe
par Yannick Ven 18 Mai 2018 - 20:01

» [RÉSOLU] Priorité affichage des objets : comment la définir?
par papydall Ven 18 Mai 2018 - 18:22

» Aucune différence entre ON_CLICK et ON_DOUBLE_CLICK
par Jean Claude Jeu 17 Mai 2018 - 8:37

» [Résolu] Récuperer les fonctions systeme de Panoramic
par Minibug Mar 15 Mai 2018 - 23:21

» Est-ce qu'un fichier est inclus dans l'application ?
par Yannick Mar 15 Mai 2018 - 12:04

» Création d'une application avec Panoramic_Editor
par Klaus Mar 15 Mai 2018 - 0:36

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mai 2018
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Changement d'hébergeur de mon site

Aller en bas 
AuteurMessage
Klaus

avatar

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

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 8075
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 18 Mai 2013 - 23: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 : 5916
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: 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)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8075
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

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

avatar

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

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

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

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 8075
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

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

avatar

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

MessageSujet: 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 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 8075
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: 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 !... Laughing


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

avatar

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

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 8075
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 20 Mai 2013 - 1: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 : 11084
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: 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 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 8075
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Re: Changement d'hébergeur de mon site   Lun 20 Mai 2013 - 1: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
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 d'une image de fond
» Page signup numericable depuis changement box
» Hebergement d'un site web chez soi

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: