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
» mise a jour calculatrice
par JL35 Aujourd'hui à 22:03

» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 20:32

» Compilateur FBPano
par jean_debord Aujourd'hui à 11:07

» Documentation de KGF
par Klaus Hier à 22:52

» Zoom sur une portion d'écran
par JL35 Hier à 21:51

» double guillemets "" dans un EDIT
par pascal10000 Hier à 21:08

» Recherche d'une expression dans un source
par Marc 37 Hier à 13:08

» Tracer une grille n'importe où sur l'écran
par JL35 Dim 19 Nov 2017 - 22:14

» TourD Version 2
par Klaus Sam 18 Nov 2017 - 23:58

» La métamatière et le peuple
par JL35 Ven 17 Nov 2017 - 21:18

» Capture d'une zone de l'écran total
par JL35 Ven 17 Nov 2017 - 18:41

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 17 Nov 2017 - 11:49

» qui peut résoudre mon prb
par pascal10000 Jeu 16 Nov 2017 - 17:30

» évènements et objets système : listage automatique
par Jean Claude Jeu 16 Nov 2017 - 11:15

» Panoramic et la reconnaissance vocale.
par papydall Jeu 16 Nov 2017 - 3:45

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
27282930   
CalendrierCalendrier

Partagez | 
 

 2.33 du 14 mai 2013: ajout fonctions pour mise à jour auto

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : Précédent  1, 2, 3  Suivant
AuteurMessage
Yannick

avatar

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

MessageSujet: re   Mer 15 Mai 2013 - 2:16

Là j'ai un avis divergent... Laughing

L'utilisateur d'un programme ( un tiers ) a une dll qui fonctionne avec son programme et les avancées de la dll ne l'intéresse
que si le programme a évolué et utilise de nouvelles fonctions de la dll. Si le programme évolue autant qu'il télécharge une MAJ complète
( prog + dlls et autres fichiers ).

Alors que pour nous qui programmons, l'évolution de la dll peut affecter l'évolution de nos programmes et la mise à jour de la dll
de cette manière est un super truc ( adieu les copier/coller, navigation sur mydrive et autres pertes de temps ).

Je pense que tu devrais penser à inclure dans ce dossier KGF_Sub et les fichiers *.chm
cela n'en fait que cinq... Laughing

Pour les autres dlls, on peut toujours aller sur mydrive mais celle ci sont les plus courantes et évoluent régulièrement... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: 2.33 du 14 mai 2013: ajout fonctions pour mise à jour auto   Mer 15 Mai 2013 - 2:25

Bon, j'ai mis aussi:
KGF_SUB.bas
KGF.chm, KGF.doc, KGF.pdf
BDR_SUB.chm, BDR_SUB.doc, BDR_SUB.pdf

Tu peux maintenant te faire un petit programme Panoramic qui charge tous ces fichiers en une seule opération. Beaucoup plus simple que le télé-chargement de MyDrive. Voici un exemple:
Code:
' automatic_update_all.bas

dim url1$ : url1$ = "http://klaus.panoramic.voila.net/versions/KGF.dll"
dim url2$ : url2$ = "http://klaus.panoramic.voila.net/versions/BDR.dll"
dim url3$ : url3$ = "http://klaus.panoramic.voila.net/versions/KGF_SUB.bas"
dim url4$ : url4$ = "http://klaus.panoramic.voila.net/versions/KGF.chm"
dim url5$ : url5$ = "http://klaus.panoramic.voila.net/versions/KGF.doc"
dim url6$ : url6$ = "http://klaus.panoramic.voila.net/versions/KGF.pdf"
dim url7$ : url7$ = "http://klaus.panoramic.voila.net/versions/BDR_SUB.chm"
dim url8$ : url8$ = "http://klaus.panoramic.voila.net/versions/BDR_SUB.doc"
dim url9$ : url9$ = "http://klaus.panoramic.voila.net/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"
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

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

MessageSujet: Re: 2.33 du 14 mai 2013: ajout fonctions pour mise à jour auto   Mer 15 Mai 2013 - 2:27

On s'est croisé. J'ai répondu apparemment par avance à ta suggestion.

mais tu as tort sur un point: même l'utilisateur final a intérêt à avoir toujours la dernière version de la DLL, ne serait-ce que pour être sûr d'avoir la correction d'éventuels bugs dans les fonctions existantes.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

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

MessageSujet: re   Mer 15 Mai 2013 - 2:33

Tu as raison et tort.. Laughing Laughing Laughing

Car, si il y a des bugs dans les fonctions que l'on utilise pour nos progs,
On t' aura cassé les pieds avant le tiers utilisateur...
lol! lol! lol!

Je vais inclure dans le prog les nouvelles adresses.

Merci Klaus !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

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

MessageSujet: re   Mer 15 Mai 2013 - 6:39

J' ai repris tes lignes, j' en ai ajouté quelques unes
et cela donne çà :
Code:
' ******************************************************************************
' *                            KGF_UPDATER                                    *
' *                            ----------                                    *
' *                      Version 0.1 du 15/05/2013                            *
' ******************************************************************************

Variables()
Constantes()
Labels()
Init()
GUI()

end

' __________________________________________________________________DECLARATIONS

Sub Variables()
  dim i%
  dim Clic%
  dim Nb_Fich%
  dim vKGF$,vBDR$
End_Sub

Sub Constantes()
  dim url1$ : url1$ = "http://klaus.panoramic.voila.net/versions/KGF.dll"
  dim url2$ : url2$ = "http://klaus.panoramic.voila.net/versions/BDR.dll"
  dim url3$ : url3$ = "http://klaus.panoramic.voila.net/versions/KGF_SUB.bas"
  dim url4$ : url4$ = "http://klaus.panoramic.voila.net/versions/KGF.chm"
  dim url5$ : url5$ = "http://klaus.panoramic.voila.net/versions/KGF.doc"
  dim url6$ : url6$ = "http://klaus.panoramic.voila.net/versions/KGF.pdf"
  dim url7$ : url7$ = "http://klaus.panoramic.voila.net/versions/BDR_SUB.chm"
  dim url8$ : url8$ = "http://klaus.panoramic.voila.net/versions/BDR_SUB.doc"
  dim url9$ : url9$ = "http://klaus.panoramic.voila.net/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.dll/BDR.dll/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$)
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%= 1 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%
  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,"")
End_Sub

Clic:
  Chargement()
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 Chargement()
  Dim_local x%,nf%
  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$
 
  KGFdllversion()
  vKGF$ = KGFdllversion$

  BDRversion(vers$)
  vBDR$ = BDRversion$
 
  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 temp$,KGF$
        position 14,4
        wait 500 :position 14,0 :caption 13,""
      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 temp$,BDR$
        position 14,4
        wait 500 :position 14,0 :caption 13,""
      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"
      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"
      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"
      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"
      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"
      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"
      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"
      position 14,position(14)+1 :display
  end_if

  if variable("KGF_initialize")=0
      KGF_initialize(KGF$)
      BDRinitialize(BDR$)
  end_if
 
  for x%=1 to 9 :active x% :mark_off x% :next x%
  Nb_Fich%=0
  file_delete D$+"Versions.txt"
  position 14,0 :caption 13,"" :hide 14
End_Sub

#include "KGF_SUB.bas"
#include "OBJ_SUB.bas"

C'est à compiler/assembler et placer dans le dossier où se trouve tout les fichiers dit KGF
Normalement, cela devrait fonctionner mais comme c'est la première version de KGF.dll avec ces fonctions
dur dur de faire des essais puisque la dernière version est en cours.

Donc, il ne te reste plus qu' à nous faire de nouvelles fonctions, pour que l'on puisse essayer celle la !....

lol! lol! lol! lol! lol! lol! lol! lol! lol! lol! lol! lol! lol! lol! lol! lol! lol! lol!

Je place tout le dossier sur mon webdav dans "en cours"

Aller Sleep Sleep Sleep
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: 2.33 du 14 mai 2013: ajout fonctions pour mise à jour auto   Mer 15 Mai 2013 - 9:13

Joli !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
maelilou



Nombre de messages : 111
Age : 69
Localisation : Ardennes françaises
Date d'inscription : 02/05/2012

MessageSujet: "OBJ_SUB.bas"   Mer 15 Mai 2013 - 10:53

Excusez mon ignorance...

Mais où trouve-t- on "OBJ_SUB.bas"

j'ai bien trouvé "KGF_SUB.bas" mais pas le obj
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: 2.33 du 14 mai 2013: ajout fonctions pour mise à jour auto   Mer 15 Mai 2013 - 10:57

C'est une erreur - cela devrait être BDR_SUB.bas

EDIT

Désolé. Autant pour moi. Il s'agit d'un module réalisé par Ygeronimi pour créer facilement des objets. A récupérer sur le WebDav de YGeronimi...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

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

MessageSujet: Re: 2.33 du 14 mai 2013: ajout fonctions pour mise à jour auto   Mer 15 Mai 2013 - 11:28

Je me suis permis de faire une version modifiée du programme de Ygeronimi, pour s'affranchir du module OBJ_SUB.bas. Les créations d'objets se font directement par des moyens Panoramic simples:
Code:
' ******************************************************************************
' *                            KGF_UPDATER                                    *
' *                            ----------                                      *
' *                      Version 0.1 du 15/05/2013                            *
' ******************************************************************************

Variables()
Constantes()
Labels()
Init()
GUI()

end

' __________________________________________________________________DECLARATIONS

Sub Variables()
  dim i%
  dim Clic%
  dim Nb_Fich%
  dim vKGF$,vBDR$
End_Sub

Sub Constantes()
  dim url1$ : url1$ = "http://klaus.panoramic.voila.net/versions/KGF.dll"
  dim url2$ : url2$ = "http://klaus.panoramic.voila.net/versions/BDR.dll"
  dim url3$ : url3$ = "http://klaus.panoramic.voila.net/versions/KGF_SUB.bas"
  dim url4$ : url4$ = "http://klaus.panoramic.voila.net/versions/KGF.chm"
  dim url5$ : url5$ = "http://klaus.panoramic.voila.net/versions/KGF.doc"
  dim url6$ : url6$ = "http://klaus.panoramic.voila.net/versions/KGF.pdf"
  dim url7$ : url7$ = "http://klaus.panoramic.voila.net/versions/BDR_SUB.chm"
  dim url8$ : url8$ = "http://klaus.panoramic.voila.net/versions/BDR_SUB.doc"
  dim url9$ : url9$ = "http://klaus.panoramic.voila.net/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.dll/BDR.dll/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$)
End_Sub

' _____________________________________________________________________INTERFACE

Sub GUI()
  Dim_local T%,Sep%,C$
'  O_Form(0,0,1,0,0,250,400,"KGF UPDATER")
  height 0,250 : width 0,400 : caption 0,"KGF UPDATER"
  font_name 0,"arial"
'  O_Alpha(10,0,1,15,10,0,0,"Choisissez les fichiers à mettre à jour :")
  alpha 10 : left 10,15 : top 10,10 : caption 10,"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%
      T%=T%+25 :check i% : top i%,T% : left i%,10
      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%
      T%=T%+25 :check i% : top i%,T% : left i%,200
      on_click i%,clic2:cursor_point i%
  Next i%
  For i%= 1 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%
'  O_Button(11,0,1,160,350,25,25,"q",1)
  button 11 : top 11,160 : left 11,350 : height 11,25 : width 11,25 : caption 11,"q"
  font_name 11,"Webdings":font_size 11,14:font_color 11,255,0,0
  hint 11,"Mise à jour" : on_click 11,clic
'  O_Statut_Bar(12,0,1,0)
'  O_Alpha(13,0,1,height(0)-56,20,0,0,"")
  alpha 13 : top 13,height(0)-56 : left 13,20
'  O_Progress_Bar(14,0,0,height(0)-58,width(0)-140,0,100)
  progress_bar 14 : hide 14 : top 14,height(0)-78 : left 14,20
    min 14,0 : max 14,100
'  O_DList(15,"")
  dlist 15
End_Sub

Clic:
  Chargement()
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 Chargement()
  Dim_local x%,nf%
  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$

  KGFdllversion()
  vKGF$ = KGFdllversion$

  BDRversion(vers$)
  vBDR$ = BDRversion$

  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 temp$,KGF$
        position 14,4
        wait 500 :position 14,0 :caption 13,""
      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 temp$,BDR$
        position 14,4
        wait 500 :position 14,0 :caption 13,""
      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"
      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"
      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"
      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"
      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"
      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"
      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"
      position 14,position(14)+1 :display
  end_if

  if variable("KGF_initialize")=0
      KGF_initialize(KGF$)
      BDRinitialize(BDR$)
  end_if

  for x%=1 to 9 :active x% :mark_off x% :next x%
  Nb_Fich%=0
  file_delete D$+"Versions.txt"
  position 14,0 :caption 13,"" :hide 14
End_Sub

#include "KGF_SUB.bas"
' #include "OBJ_SUB.bas"
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

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

MessageSujet: re   Mer 15 Mai 2013 - 12:13

@ maelilou,

Comme je l' ai noté sur mon dernier post,
le dossier complet est dispo sur mon webdav.
Login : panoramic@ygeronimi
MdP :panoramic123
Dossier :" En Cours\ Update KGF.zip"
OBJ_SUB.bas est une librairie d'objet que je crée grâce à "Bibbliolib" une appli de mon cru.
Cette librairie est variable selon les besoins du programme que je crée.

Exceptionnellement, car je ne veux pas manger trop de place sur le forum,
voilà OBJ_SUB.bas pour KGF_UPDATER :
Code:
' ______________________________________________________________________________
Sub O_Form(No%,P%,V%,T%,L%,H%,W%,C$)
  if No%> 0 then FORM No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 : Top No%,T% : Else : Top No%,(Screen_y-H%)/2 : End_If
  If L% > 0 : Left No%,L%: Else : Left No%,(Screen_x-W%)/2: End_If
  if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Alpha(No%,P%,V%,T%,L%,H%,W%,C$)
  ALPHA No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Edit(No%,P%,V%,T%,L%,H%,W%,T$,Ch%)
  EDIT No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  If T$<>"" Then Text No%,T$
  If Ch%=1  Then On_Change No%,Change
End_Sub
' ______________________________________________________________________________
Sub O_Button(No%,P%,V%,T%,L%,H%,W%,C$,Cl%)
  BUTTON No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
  if Cl%> 0 then on_click No%,Clic
  cursor_point No%
End_Sub
' ______________________________________________________________________________
Sub O_Picture(No%,P%,V%,T%,L%,H%,W%,P$)
  PICTURE No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if P$<>"" then File_load No%,P$
End_Sub
' ______________________________________________________________________________
Sub O_Check(No%,P%,V%,T%,L%,H%,W%,C$)
  CHECK No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Open_Dialog(No%,Out%,DD$,Filtre$,O%)
  dim_local F$
  If Object_Exists(No%)=0
      OPEN_DIALOG No%
  End_if
  if DD$<>"" then Dir_Dialog No%,DD$
  if filtre$<>"" then Filter No%,Filtre$
  F$=File_name$(No%)
  if variable("File$")=0:Dim File$:End_If
  if F$<>"_"
      if O%=1 then text out%,F$
      if O%=2 then Caption Out%,F$
      if O%=3 then item_add Out%,F$
      if O%=4 then file_load Out%,F$
      if O%=5 then File$=F$
  end_if
  Delete No%
End_Sub
' ______________________________________________________________________________
Sub O_Save_Dialog(No%,NOut%,DD$,Filtre$)
  dim_local F$
    If Object_Exists(No%)=0
      SAVE_DIALOG No%
    End_If
    If DD$<>"" then Dir_Dialog No%,DD$
    If filtre$<>"" then Filter No%,Filtre$
    F$=file_name$(No%)
    If F$<>"_"
      File_Save NOut%,F$
    End_If
End_Sub
' ______________________________________________________________________________
Sub O_Progress_Bar(No%,P%,V%,T%,L%,H%,W%)
  PROGRESS_BAR No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
End_Sub
' ______________________________________________________________________________
Sub O_Dlist(No%,F$)
  DLIST No%
  if F$<>"" then file_load No%,F$
End_Sub
' ______________________________________________________________________________
Sub O_Statut_Bar(No%,P%,V%,M%)
  Dim_Local No2% ,x% ,a% ,Pa%,OSB2%
  No%=Number_Objects+1 :Pa%=P% :No2%=No%
  for x%=1 to Number_Objects:If Object_Type(x%)=13 :a%=1:End_If:Next x%
  If M%=0
      O_Picture(No2%,P%,V%,Height(P%)-61,0,23,width(P%)-16,"")
  Else
      O_Picture(No2%,P%,V%,Height(P%)-81,0,23,width(P%)-16,"")
  End_If
  OSB2%=No2%
  Adaptation_OSB(No2%,Pa%)
End_Sub
' ______________________________________________________________________________
Sub Adaptation_OSB(No%,P%)
  Dim_Local x% ,y% ,z% ,t$ ,R_osb% ,G_osb% ,B_osb%
  color No%,235,235,239 : y%=width(P%)-27
  Restore
  while t$<>"OSB_Corps.bmp" :read t$:End_while
  Read R_osb% :Read G_osb% :Read B_osb%
  2d_target_is No% : 2d_pen_color R_osb%,G_osb%,B_osb%
  for x%=0 to y% :2d_point x%,z% :next x%
  Restore
  while t$<>"OSB_Fin.bmp" :read t$:End_while
  for x%=y% to y%+10
      for z%=0 to 22
        Read R_osb% :Read G_osb% :Read B_osb%
        2d_target_is No% : 2d_pen_color R_osb%,G_osb%,B_osb%
        2d_point x%,z%
      next z%
  next x%
Data "OSB_Corps.bmp"
data 170,165,162
data "OSB_Fin.bmp"
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 170,165,162
data 242,239,239
data 170,165,162
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 170,165,162
data 242,239,239
data 170,165,162
data 170,165,162
data 242,239,239
data 170,165,162
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
End_Sub

Attention !!!
Cette librairie n'est valable que pour cette application !
Pour une autre, même si elle porte le même nom, elle pourra être différente.

Edit :
Par souci de facilté, dans mes prog, quand je me sers de plusieurs fichiers "include"
je nomme "FCT_SUB.bas" celui des fonctions et "OBJ_SUB.bas" la librairie d'objet.
Seul le "main" prend le nom de l'application.
Laughing

@ Klaus,
Tu as bien fait de te permettre... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
maelilou



Nombre de messages : 111
Age : 69
Localisation : Ardennes françaises
Date d'inscription : 02/05/2012

MessageSujet: Re: 2.33 du 14 mai 2013: ajout fonctions pour mise à jour auto   Mer 15 Mai 2013 - 12:42

Merci

Je vais y regarder.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

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

MessageSujet: re   Mer 15 Mai 2013 - 12:54

@ maelilou,

Regardes, regardes....

Si tu veux regarder, "Bibliolib" se trouve dans le dossier :"\Sources\Objet_Lib\Bibbliolib_1" Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5992
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: 2.33 du 14 mai 2013: ajout fonctions pour mise à jour auto   Mer 15 Mai 2013 - 14:39

Je suis toujours bloqué sur le DownloadFile qui ne veut rien savoir, cache vidé (merci pour l'info, Klaus) ou pas, toujours erreur 1.

Et finalement, je me suis inspiré du programme de Klaus pour faire la même chose, en plus simple, avec des Execute_Wait sur les Urls données (au lieu des DownloadFile), j'arrive tout de suite sur le téléchargement du fichier et c'est très bien comme ça. Peut-être moins confortable que la solution Klaus, mais ça me convient très bien, c'est bien plus rapide que la laborieuse connexion manuelle.

Une remarque annexe, en passant: L'Execute_Wait sur Url n'est pas bloquant, le programme se poursuit dans la foulée alors que j'ai la page affichée... je suis obligé de mettre un While/End_While sur l'existence du fichier pour attendre la fin du chargement.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

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

MessageSujet: re   Mer 15 Mai 2013 - 19:07

Peux tu mettre ton code ? ou le dossier c'est mieux ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5992
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: 2.33 du 14 mai 2013: ajout fonctions pour mise à jour auto   Mer 15 Mai 2013 - 20:32

Mais bien volontiers mon ami ygeronimi, c'est facilement adaptable pour tes besoins personnels, et après je ferai quelques remarques:
Code:
' KGF_Update.bas: Mise à jour de KGF.dll et autres
LABEL Fin, GUI, Clic2, Clic, Dlf, Valide
DIM url$, urll$(20), fi$(20), Nbfich, a$, p$, nurl%, i%, j%, k%, t%, f$, tl$
DIM vers$, nf%
p$ = "C:\PANORAMIC\KLAUS\DLLs\"
tl$ = "C:\TELECHAR\": ' répertoire des téléchargements
urll$(1) = "http://klaus.panoramic.voila.net/versions/KGF.dll"
urll$(2) = "http://klaus.panoramic.voila.net/versions/KGF.pdf"
urll$(3) = "http://klaus.panoramic.voila.net/versions/KGF.chm"
urll$(4) = "http://klaus.panoramic.voila.net/versions/KGF.doc"
urll$(5) = "http://klaus.panoramic.voila.net/versions/BDR.dll"
urll$(6) = "http://klaus.panoramic.voila.net/versions/KGF_SUB.bas"
urll$(7) = "http://klaus.panoramic.voila.net/versions/BDR_SUB.chm"
urll$(8) = "http://klaus.panoramic.voila.net/versions/BDR_SUB.doc"
urll$(9) = "http://klaus.panoramic.voila.net/versions/BDR_SUB.pdf"
nurl% = 9
FOR i% = 1 TO nurl%
    a$ = urll$(i%)
    FOR k% = LEN(a$) TO 1 STEP -1
        IF MID$(a$, k%, 1) = "/" THEN EXIT_FOR
    NEXT k%
    fi$(i%) = MID$(a$, k%+1, 20): ' fichier à charger
NEXT i%

DLL_ON p$+"KGF.dll"
GOSUB GUI
END
' ==============================================================================
Fin:
TERMINATE

GUI:
HEIGHT 0, nurl%*25+120: WIDTH 0,320: CAPTION 0,"KGF UPDATE": BORDER_SMALL 0
FONT_NAME 0,"Arial"
ALPHA 10: LEFT 10,15: TOP 10,10: FONT_COLOR 10,0,0,255: FONT_BOLD 10
CAPTION 10,"Choisir les fichiers à mettre à jour:"
t% = 15
FOR i% = 1 TO nurl%
    t% = t%+25: CHECK i%: TOP i%,t%: LEFT i%,10: WIDTH i%,200
    ON_CLICK i%, Clic2: CURSOR_POINT i%
    IF i% = 1
        vers$ = STRING$(25," ")
        j% = DLL_CALL1("KGFdllVersion",ADR(vers$))
        CAPTION 1, vers$
    ELSE
        CAPTION i%, fi$(i%)
    END_IF
NEXT i%
BUTTON 11: TOP 11,HEIGHT(0)-60: LEFT 11,220: CAPTION 11,"OK"
ON_CLICK 11, Clic
ALPHA 13: TOP 13,HEIGHT(0)-80: LEFT 13,10
BUTTON 14: TOP 14,TOP(11): LEFT 14,100: CAPTION 14,"Valider": HIDE 14
ON_CLICK 14, Valide
RETURN
' ==============================================================================
Clic2:
FOR i% = 1 TO nurl%
    IF CLICKED(i%) = 1
        IF CHECKED(i%) = 1
            Nbfich = Nbfich + 1
        ELSE
            Nbfich = Nbfich - 1
        END_IF
    END_IF
NEXT i%
RETURN
' ==============================================================================
Clic:
CAPTION 13, "Chargement des fichiers..."
nf% = 0
FOR j% = 1 TO nurl%
    IF CHECKED(j%) = 1
        nf% = nf% + 1
        url$ = urll$(j%): a$ = fi$(j%): ' fichier à charger
        GOSUB Dlf
    END_IF
NEXT j%
IF nf% = 0 THEN CAPTION 13, "": RETURN: ' pas de fichier coché
CAPTION 11,"Quitter": ON_CLICK 11, Fin
CAPTION 13,"Téléchargements terminés, valider ?"
SHOW 14
RETURN
' ==============================================================================
Dlf:
f$ = tl$ + a$
IF FILE_EXISTS(f$) = 1 THEN FILE_DELETE f$
EXECUTE_WAIT url$
WHILE FILE_EXISTS(f$) = 0: WAIT 1000: END_WHILE
' ici, fichier téléchargé dans C:\Telechar
RETURN
' ==============================================================================
Valide:
FOR i% = 1 TO nurl%
    IF CHECKED(i%) = 1
        a$ = fi$(i%): ' fichier
        IF FILE_EXISTS(tl$+a$) = 1: ' fichier téléchargé
            IF FILE_EXISTS(p$+a$) = 1 THEN FILE_DELETE p$+a$
            ' FILE_COPY tl$+a$,p$+a$
            EXECUTE_WAIT "CMD.exe /C COPY " + tl$+a$ + " " + p$+a$
        END_IF
    END_IF
NEXT i%
RETURN
' ==============================================================================
Remarques:
- Il y a des similitudes avec le code de Klaus, normal c'est ce qui m'a inspiré (après des essais infructueux).
- Comme d'habitude, il faut adapter les chemins: variables p$ et tl$, celle-ci (tl$) étant le répertoire où s'effectuent automatiquement tous les téléchargements, chez moi (défini dans Firefox). Les fichiers sont rapatriés d'abord dans tl$, puis validés par recopie dans leur répertoire d'utilisation Panoramic.
- Dans la routine 'Valide', j'ai remplacé le File_Copy de Panoramic par un appel à la fonction 'Copy' de Ms-Dos: en effet, le File_Copy me fait chaque fois une erreur: fichier déjà existant ?

Donc, pour chaque fichier, il y a apparition d'une fenêtre de connexion avec proposition de téléchargement, à valider ou pas, c'est... semi-automatique ! On ferme, et ça passe au fichier suivant.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

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

MessageSujet: re   Mer 15 Mai 2013 - 20:52

Je vous mets une petite évolution de KGF_UPDATER :
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://klaus.panoramic.voila.net/versions/KGF.dll"
  dim url2$ : url2$ = "http://klaus.panoramic.voila.net/versions/BDR.dll"
  dim url3$ : url3$ = "http://klaus.panoramic.voila.net/versions/KGF_SUB.bas"
  dim url4$ : url4$ = "http://klaus.panoramic.voila.net/versions/KGF.chm"
  dim url5$ : url5$ = "http://klaus.panoramic.voila.net/versions/KGF.doc"
  dim url6$ : url6$ = "http://klaus.panoramic.voila.net/versions/KGF.pdf"
  dim url7$ : url7$ = "http://klaus.panoramic.voila.net/versions/BDR_SUB.chm"
  dim url8$ : url8$ = "http://klaus.panoramic.voila.net/versions/BDR_SUB.doc"
  dim url9$ : url9$ = "http://klaus.panoramic.voila.net/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.dll/BDR.dll/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$)
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%= 1 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%
  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$
 
  KGFdllversion()
  vKGF$ = KGFdllversion$

  BDRversion(vers$)
  vBDR$ = BDRversion$
 
  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$
        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$
        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"
      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"
      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"
      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"
      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"
      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"
      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"
      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$)
  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 "KGF_SUB.bas"
#include "OBJ_SUB.bas"
OBJ_SUB.bas pour ceux qui ne vont pas sur le webdav qui est à jour :
Code:
' ______________________________________________________________________________
Sub O_Form(No%,P%,V%,T%,L%,H%,W%,C$)
  if No%> 0 then FORM No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 : Top No%,T% : Else : Top No%,(Screen_y-H%)/2 : End_If
  If L% > 0 : Left No%,L%: Else : Left No%,(Screen_x-W%)/2: End_If
  if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Alpha(No%,P%,V%,T%,L%,H%,W%,C$)
  ALPHA No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Edit(No%,P%,V%,T%,L%,H%,W%,T$,Ch%)
  EDIT No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  If T$<>"" Then Text No%,T$
  If Ch%=1  Then On_Change No%,Change
End_Sub
' ______________________________________________________________________________
Sub O_Button(No%,P%,V%,T%,L%,H%,W%,C$,Cl%)
  BUTTON No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
  if Cl%> 0 then on_click No%,Clic
  cursor_point No%
End_Sub
' ______________________________________________________________________________
Sub O_List(No%,P%,V%,T%,L%,H%,W%,F$,Cl%)
  LIST No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if F$<>""
  if file_exists F$ then file_load No%,F$
  end_if
  if Cl%> 0 then on_click No%,Clic
End_Sub
--------------------------------------------------------------------------------
Sub O_Picture(No%,P%,V%,T%,L%,H%,W%,P$)
  PICTURE No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if P$<>"" then File_load No%,P$
End_Sub
' ______________________________________________________________________________
Sub O_Check(No%,P%,V%,T%,L%,H%,W%,C$)
  CHECK No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Open_Dialog(No%,Out%,DD$,Filtre$,O%)
  dim_local F$
  If Object_Exists(No%)=0
      OPEN_DIALOG No%
  End_if
  if DD$<>"" then Dir_Dialog No%,DD$
  if filtre$<>"" then Filter No%,Filtre$
  F$=File_name$(No%)
  if variable("File$")=0:Dim File$:End_If
  if F$<>"_"
      if O%=1 then text out%,F$
      if O%=2 then Caption Out%,F$
      if O%=3 then item_add Out%,F$
      if O%=4 then file_load Out%,F$
      if O%=5 then File$=F$
  end_if
  Delete No%
End_Sub
' ______________________________________________________________________________
Sub O_Save_Dialog(No%,NOut%,DD$,Filtre$)
  dim_local F$
    If Object_Exists(No%)=0
      SAVE_DIALOG No%
    End_If
    If DD$<>"" then Dir_Dialog No%,DD$
    If filtre$<>"" then Filter No%,Filtre$
    F$=file_name$(No%)
    If F$<>"_"
      File_Save NOut%,F$
    End_If
End_Sub
' ______________________________________________________________________________
Sub O_Progress_Bar(No%,P%,V%,T%,L%,H%,W%)
  PROGRESS_BAR No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
End_Sub
' ______________________________________________________________________________
Sub O_Dlist(No%,F$)
  DLIST No%
  if F$<>"" then file_load No%,F$
End_Sub
' ______________________________________________________________________________
Sub O_Statut_Bar(No%,P%,V%,M%)
  Dim_Local No2% ,x% ,a% ,Pa%,OSB2%
  No%=Number_Objects+1 :Pa%=P% :No2%=No%
  for x%=1 to Number_Objects:If Object_Type(x%)=13 :a%=1:End_If:Next x%
  If M%=0
      O_Picture(No2%,P%,V%,Height(P%)-61,0,23,width(P%)-16,"")
  Else
      O_Picture(No2%,P%,V%,Height(P%)-81,0,23,width(P%)-16,"")
  End_If
  OSB2%=No2%
  Adaptation_OSB(No2%,Pa%)
End_Sub
' ______________________________________________________________________________
Sub Adaptation_OSB(No%,P%)
  Dim_Local x% ,y% ,z% ,t$ ,R_osb% ,G_osb% ,B_osb%
  color No%,235,235,239 : y%=width(P%)-27
  Restore
  while t$<>"OSB_Corps.bmp" :read t$:End_while
  Read R_osb% :Read G_osb% :Read B_osb%
  2d_target_is No% : 2d_pen_color R_osb%,G_osb%,B_osb%
  for x%=0 to y% :2d_point x%,z% :next x%
  Restore
  while t$<>"OSB_Fin.bmp" :read t$:End_while
  for x%=y% to y%+10
      for z%=0 to 22
        Read R_osb% :Read G_osb% :Read B_osb%
        2d_target_is No% : 2d_pen_color R_osb%,G_osb%,B_osb%
        2d_point x%,z%
      next z%
  next x%
Data "OSB_Corps.bmp"
data 170,165,162
data "OSB_Fin.bmp"
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 170,165,162
data 242,239,239
data 170,165,162
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 170,165,162
data 242,239,239
data 170,165,162
data 170,165,162
data 242,239,239
data 170,165,162
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
End_Sub

Inutile ou pas... Laughing ... de dire que c'est à compiler/assembler et placer dans le dossier KGF de votre ordi qui contient
les 7 travaux de Klaus... Laughing

@ JL35,
Je viens de voir que tu as posté ton code,
Je jette un oeil et reviens te dire ce que je vois, si je vois quelque chose... Laughing

Edit : Correction du 15/05/2013 21:48


Dernière édition par ygeronimi le Mer 15 Mai 2013 - 22:48, édité 2 fois (Raison : correction d'un petit bug....)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5992
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: 2.33 du 14 mai 2013: ajout fonctions pour mise à jour auto   Mer 15 Mai 2013 - 21:10

Attention, c'est beaucoup moins élégant que la solution de Klaus, c'est parce que ça ne marche pas chez moi, donc un pis-aller.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

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

MessageSujet: re   Mer 15 Mai 2013 - 21:38

@ JL35,

Premier problème avec ton code JL35.
Le téléchargement se fait dans le dossier par défaut du navigateur
et pas dans le dossier tl$... Laughing

Je vois aussi que tu es parti, comme moi sur des "check" klaus lui était sur des listes... Laughing

Edit :

As tu essayé mon code ?

Edit 2:

J'ai corrigé un bug dans le code du post précédent
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5992
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: 2.33 du 14 mai 2013: ajout fonctions pour mise à jour auto   Mer 15 Mai 2013 - 22:01

Eh bien non, je n'ai pas essayé ton code parce que la fonction DownloadFile ne marche pas chez moi, j'ai un blocage quelque part et ça me renvoie systématiquement une erreur.

Évidemment le téléchargement se fait dans le dossier par défaut, celui que tu as défini dans ton navigateur, et c'est justement le chemin de celui-là qu'il faut mettre dans tl$.

Il me semble bien que dans le programme de Klaus c'est également des Check (dans la SUB GUI) ???

PS j'ai modifié dans mon code pour afficher la version/date du fichier existant, puis la version/date du fichier téléchargé, pour voir si c'est le même ou pas (valable uniquement pour KGF.dll et BDR.dll), mais je n'ai pas reporté la modif ci-dessus.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

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

MessageSujet: re   Mer 15 Mai 2013 - 22:09

Non, au départ c'est le mien, lui il a remplacé mes sub objet pour maelilou
qui ne trouvait pas OBJ_SUB.bas ... Laughing

C'est bizarre chez moi cette fonction marche très bien... scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5992
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: 2.33 du 14 mai 2013: ajout fonctions pour mise à jour auto   Mer 15 Mai 2013 - 22:24

Chez Klaus aussi, mais chez moi que dalle, je dois rater ou faire mal quelque chose, ça paraît pourtant simple a priori scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

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

MessageSujet: re   Mer 15 Mai 2013 - 22:51

Bon je viens de corriger d'autres bug dans le dernier code posté.
Maintenant çà doit être au poil... Laughing

@ JL35,

Je ne vois ce qui donne ton erreur, peut être que klaus va finir par y mettre le doigts dessus... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5992
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: 2.33 du 14 mai 2013: ajout fonctions pour mise à jour auto   Mer 15 Mai 2013 - 23:09

Je crains que non, puisque strictement le même code marche sans erreur chez lui, c'est quelque chose qui cloche chez moi. Il faut dire que le code en retour n'est pas très explicite: c'est 0 (bon) ou 1 (erreur).

Mais bon, je m'en sors avec ma petite méthode perso, l'essentiel est d'avoir les urls des fichiers.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: 2.33 du 14 mai 2013: ajout fonctions pour mise à jour auto   Mer 15 Mai 2013 - 23:19

@JL35:
Strictement le même code ? As-tu adapté les chemins pour les fichiers ? Pourrais-tu poster le code tel qu'il ne marche pas chez toi ? Je vais l'analyser.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
JL35



Nombre de messages : 5992
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: 2.33 du 14 mai 2013: ajout fonctions pour mise à jour auto   Mer 15 Mai 2013 - 23:37

Bonsoir Klaus,
C'est tout simple:
Code:
dim i%, f$ : f$ = "c:\temp\site.html"
dim url$ : url$ = "http://klaus.panoramic.voila.net/"
DLL_ON "C:\PANORAMIC\KLAUS\DLLs\KGF.dll"

i% = DLL_CALL2("DownloadFile",ADR(url$),ADR(f$))

print "Fin: CR = "+STR$(i%)
end

Les chemins sont bons pour moi, et avec le code ci-dessus je récupère toujours 1.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: 2.33 du 14 mai 2013: ajout fonctions pour mise à jour auto   

Revenir en haut Aller en bas
 
2.33 du 14 mai 2013: ajout fonctions pour mise à jour auto
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 2 sur 3Aller à la page : Précédent  1, 2, 3  Suivant
 Sujets similaires
-
» combien de temps pour mise a jour Resolu
» Pas de mise à jour possible pour mon nuvi 1490
» Nuvi 3597, quel logiciel pour mise à jour firmware
» Mise à jour cartographique City Navigator Europe NT 2017 pour GPS Garmin sur Suzuki SX4 S-Cross
» Garmin Falk-Marco Polo TravelGuide

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: