KGF_dll - nouvelles versions

La doc de KGF.dll est maintenant complète en ce qui concerne les fonctions Syneditxxx ! Elles sont documentées dans une nouvelle section Synedit. Il suffit de charger KGF.chm. Pas de changement dans KGF.dll.

Cette nouvelle doc est également intégrée dans le programme d'installation de Synedit_Editor.

Invité

En rapport avec la discution sur ton site, j'ai fait un essai pour imprimer.
Comme je n'ai presque plus d'encre, j'ai repris Greencloud, qui est un utilitaire d'économie d'encre, pour voir le résultat. Et là je pense qu'il y a problème.

Comme je travaille dans un endroit sombre, j'ai configuré les couleurs pour avoir un écran qui fatigue (à mon sens) moins les yeux. Donc j'ai un fond noir, ce qui donne, tel que j'ai défini:

écran:

Au vu du résultat pour imprimer sans le fond, voilà ce que cela donne:

impression:

Je ne suis pas sûre qu'il soit nécessaire de mettre en couleur, la méthode de Jack n'est pas mal, il met les mots clés en gras, mais ça il faut en discuter avec tout le monde.

Ensuite, il y a le nombre de pages, il faudrait pouvoir choisir les pages à imprimer. Pour mon programme qui n'est pas fini, j'ai déjà 51 pages, et si je veux imprimer, il me faut faire un choix pour n'imprimer qu'un certain nombres de pages. J'imagine Pedro... essayer avec ses 34000 lignes vouloir imprimer. Il est toujours possible de sélectionner une partie de l'écran pour la recopier dans un autre onglet, servant à l'impression.

Là je sors de cette discussion, laissons la place à d'autres intervenants.

En attendant une solution de la part de Klaus, tu peux imprimer vers une imprimante pdf => tu obtiendras un document pdf que tu pourras alors imprimer avec la mise en page de ton choix et dont tu pourras choisir la page de départ et de fin.

Invité

Merci Jicehel.
Je ne veux pas imprimer, je montre juste le résultat du teste. D'ailleur j'ai plus d'encre.

Et même il y a un problème de couleur, dans mon cas si je voulais imprimer, il faudrait que je redéfinisse toutes les couleurs juste pour imprimer. Klaus voulait savoir si j'avais fait l'essai d'imprimer, et je fais un rapport.

Avec GreenCloud, j'ai l'aperçu des pages imprimées, et d'ailleurs je peux choisir les pages à imprimer, et le niveau d'encre pour l'économie. Mais la plupart d'entre-vous imprimez directement sur l'imprimante.

Avec le choix d'impression, il n'y a aucun choix, ni celui de l'imprimante, ni du sens d'orientation, ni rien ... C'est l'impression par défaut directement.

Tu as raison après tout, c'est indigne de notre Klaus national ça, juste l'impression sans que l'on ait un minimum d'options... Il s'était laissé allé à la facilité sur ce coup là !! ^^
Bon, j'arrète de plaisanter et je vous laisse continuer vos tests et programmation.

Klaus, quelqu'un te défie !!! Laughing

Sachant que tu aimes les défis, on s’attend à du nouveau.

D'accord, d'accord... Je vois que vous voulez plus de souplesse pour l'impression. Je vais ajouter la possibilité de choisir et paramétrer l'imprimante.

Mais cela ne règle pas le problème de fond, pour Cosmos70. Il a un écran noir, avec l'écriture en blanc et couleurs claires comme le jaune. Cela se détache bien sûr bien du fond noir, mais est difficilement lisible sur papier blanc. Or, l'objet Synedit que j'utilise, n'imprime pas le fond, ni pour le texte, ni pour la marge gauche avec les numéros de page. Et il y a une bonne raison à cela: cela viderait les cartouches d'encre en un rien de temps ! Et je le laisserai comme ça - en aucun cas, j'essayerai d'imprimer le fond.

Solution 1: utiliser du papier noir (mdr - désolé, je n'ai pas pu me retenir...)
Solution 2: choisir des couleurs et styles visibles sur fond noir et sur fond blanc
Solution 3: utiliser un fond clair non-blanc de sorte à pouvoir utiliser des couleurs et styles plus foncés

Désolé den ne pas avoir à offrir mieux. Mais essayez d'imprimer un document d'un traitement de texte qui est rédigé sur fond noir - vous m'en direz des nouvelles.

Invité

J'avais posé la question par curiosité, après m'être rendu compte que imprimer ne faisait pas parti de Synedit.

Ne peux-tu pas reprendre le texte et l'imprimer en noir et blanc comme la plupart des éditeurs. Panoramic met en gras les commandes, peut-être partir sur ce principe pour Synedit, c'est pas mal.

Personnellement je trouve que la majorité de mes sources ont trop de lignes pour envisager l'impression, surtout qu'un code est rarement définitif, et si je parle de numéro de page, c'est que imprimer a son utilité lorsqu'on a un problème et qu'on veut voir une partie du code de loin pour faciliter le décodage.

De toute façon on peut prendre une sélection du code, et le recopier dans Panoramic pour imprimer.

@Cosmos70:
Je viens de mettre en place une nouvelle version. La seule nouveauté: la fonction "Imprimer" ouvre maintenant le sélecteur d'imprimantes de Windows. Tu peux y choisir l'imprimante, puis toutes les options de l'imprimante choisie, y compris, dans l'onglet "Couleur", de la mettre en nuances de gris. C'est le même fonctionnement que pour tout programme Windows. Cela devrait résoudre ton problème...

Invité

Merci Klaus.

Citation :: Cela devrait résoudre ton problème...

Mais pas de problème pour moi. Je ne fais que montrer ~~l'état des lieux~~ les conséquences éventuelles.

Nouvelle version:
KGF.dll V3.95 du 04/12/2014

Nouveautés:
nouvelle fonction GetPrinterNames

Modules modifiés:
KGF.dll
KGF.chm

Les sources et la doc sont à jour.

Voici une démo:

Code:: dim res%, s$
memo 10 : bar_both 10
dll_on "KGF.dll"
res% = dll_call1("GetPrinterNames",handle(10))
end

Simple, non ? Et en voici le résultat (sur ma machine):
KGF_dll - nouvelles versions - Page 5 Aa211

On ne peut plus simple.
Testé et approuvé. Bravo!

Nouvelle version:
KGF.dll V3.96 du 04/12/2014

Nouveautés:
- la fonction GetPrinterNames a subi deux changements:

Code:: 1. pour la liste retournée, il faut passer le handle d'un objet LIST et non plus d'un objet MEMO
2. le résultat numérique n'est plus le nombre d(imprimantes installées, mais le numéro de l'imprimante par défaut (1, 2, ...)

- la fonction PrinterManager a reçu 4 nouveaux codes fonction:

Code:: 8 = Sélectionner l'imprimante de nom adr(opt%) comme imprimante par défaut
9 = Sélectionner l'imprimante de numéro opt% comme imprimante par défaut
10 = Sélectionner l'imprimante de nom adr(opt%) comme imprimante temporaire
11 = Sélectionner l'imprimante de numéro opt% comme imprimante temporaire

Modules modifiés:
KGF.dll
KGF.chm

Les sources et la doc sont à jour.

Ceci permet, par exemple, de programmer une SUB de configuration de l'imprimante. En voici un premier jet:

Code:: ' test_ConfigurerImprimante.bas

dim res%

dll_on "KGF.dll"
ConfigurerImprimante(1000)

end

sub ConfigurerImprimante(obj%)
dim_local no% : no% = obj%
if label("CloseCnfImp")=0
label CloseCnfImp, ConfImpDef, ConfImpNom, ConfImpPay
dim ConfigurerImprimante% : ConfigurerImprimante% = obj%
dim ConfigurerImprimanteDefaut% : ConfigurerImprimanteDefaut% = 0
dim ConfigurerImprimantePhnd%, ConfigurerImprimantePdev%, ConfigurerImprimanteS$
form no% : on_close no%,CloseCnfImp : width no%,600 : height no%,300
caption no%,"Configuration de l'imprimante à effet immédiat"
top no%,(screen_y-height(no%))/2 : left no%,(screen_x-width(no%))/2
list no%+1 : parent no%+1,no% : on_click no%+1,ConfImpNom

height no%+1,200 : width no%+1,150 : top no%+1,10 : left no%+1,10
check no%+2 : parent no%+2,no% : top no%+2,10 : left no%+2,180
caption no%+2,"Par défaut" : on_click no%+2,ConfImpDef
check no%+3 : parent no%+3,no% : top no%+3,30 : left no%+3,180
caption no%+3,"Paysage" : on_click no%+3,ConfImpPay
else
no% = ConfigurerImprimante%
show no%
inactive 0
end_if

res% = dll_call1("GetPrinterNames",handle(no%+1))
ConfigurerImprimanteDefaut% = res%
if res%>0
res% = dll_call2("SelectListBoxItem",handle(no%+1),res%)
mark_on no%+2
end_if
exit_sub
CloseCnfImp:
hide ConfigurerImprimante%
active 0
return
ConfImpNom:
' ConfigurerImprimanteS$ = item_index$(ConfigurerImprimante%+1)
' res% = dll_call4("PrinterManager",8,adr(ConfigurerImprimantePhnd%),adr(ConfigurerImprimantePdev%),adr(ConfigurerImprimanteS$))
res% = dll_call4("PrinterManager",11,adr(ConfigurerImprimantePhnd%),adr(ConfigurerImprimantePdev%),item_index(ConfigurerImprimante%+1))
clear ConfigurerImprimante%+1
mark_off ConfigurerImprimante%+2
res% = dll_call1("GetPrinterNames",handle(ConfigurerImprimante%+1))
res% = dll_call2("SelectListBoxItem",handle(ConfigurerImprimante%+1),res%)
off_click ConfigurerImprimante%+2
if ConfigurerImprimanteDefaut%=item_index(ConfigurerImprimante%+1)
mark_on ConfigurerImprimante%+2
else
mark_off ConfigurerImprimante%+2
end_if
on_click ConfigurerImprimante%+2,ConfImpDef
return
ConfImpDef:
off_click ConfigurerImprimante%+2
if checked(ConfigurerImprimante%+2)=1
if ConfigurerImprimanteDefaut%<>item_index(ConfigurerImprimante%+1)
res% = dll_call4("PrinterManager",9,adr(ConfigurerImprimantePhnd%),adr(ConfigurerImprimantePdev%),item_index(ConfigurerImprimante%+1))
ConfigurerImprimanteDefaut% = item_index(ConfigurerImprimante%+1)
end_if
else
mark_on ConfigurerImprimante%+2
end_if
on_click ConfigurerImprimante%+2,ConfImpDef
return
ConfImpPay:
res% = dll_call4("PrinterManager",4,adr(ConfigurerImprimantePhnd%),adr(ConfigurerImprimantePdev%),checked(ConfigurerImprimante%+3))
return
end_sub

La procédure peut être appelée autant de fois que nécessaire. Elle crée, au premier appel, ses propres variables et objets qu'elle retrouve aux appels suivants. Le seul paramètre est le numéro d'objet de départ utilisable par la procédure (dans l'exemple, c'est 1000). La procédure crée actuellement 4 objets.

Et, note importante, les changements sont répercutées immédiatement dans le système, sans validation particulière.

Super boulot Klaus. J'espère que Jack pourra intégrer ces fonctions dans Panoramic directement pour améliorer la partie gestion des imprimantes en s'appuyant entre autre sur tes sources.

Bon, ben, je retourne me mettre à jours... Laughing

Tu n'utilises pas l'outil de maj auto de la dll de Klaus ?

A force de nettoyage, je ne sais plus où il est passé.
Disparu de la circulation, perdu de vue... Sad

Regardes là: https://panoramic.1fr1.net/t3036-233-du-14-mai-2013-ajout-fonctions-pour-mise-a-jour-auto
Bonne soirée à toi Ygeronimi

En son temps, je m' étais fait un truc comme çà mais, je ne sais pourquoi, il ne fonctionne plus.

J'ai déterré mon utilitaire KGF_updater.bas qui fait les mises à jour automatiques. Il a fallu corriger KGF_SUB.bas et OBJ_SUB.bas, tous deux disponibles, soit sur mon site, soit sur mon WebDav dossier Sources\KGF soit dans DLLs\KGF_SUB. On peut alors utiliser KGF_Updater.bas que je donne ici, pour plus de facilité:

Code:: ' ******************************************************************************
' * KGF_UPDATER *
' * ---------- *
' * Version 0.4 du 04/12/2014 *
' ******************************************************************************

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.comxa.com/versions/KGF.dll"
  dim url2$ : url2$ = "http://klauspanoramic.comxa.com/versions/BDR.dll"
  dim url3$ : url3$ = "http://klauspanoramic.comxa.com/versions/KGF_SUB.bas"
  dim url4$ : url4$ = "http://klauspanoramic.comxa.com/versions/KGF.chm"
  dim url5$ : url5$ = "http://klauspanoramic.comxa.com/versions/KGF.doc"
  dim url6$ : url6$ = "http://klauspanoramic.comxa.com/versions/KGF.pdf"
  dim url7$ : url7$ = "http://klauspanoramic.comxa.com/versions/BDR_SUB.chm"
  dim url8$ : url8$ = "http://klauspanoramic.comxa.com/versions/BDR_SUB.doc"
  dim url9$ : url9$ = "http://klauspanoramic.comxa.com/versions/BDR_SUB.pdf"
  dim url10$ : url10$ = "http://klauspanoramic.comxa.com/versions/Synedit_Editor_Setup.zip"
  dim path$ : path$ = Dir_Current$+""
' dim KGF$ : KGF$ = path$+"KGF.dll"
' dim BDR$ : BDR$ = path$+"BDR.dll"
  dim KGF$ : KGF$ = "KGF.dll"
  dim BDR$ : BDR$ = "..\BDR\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/Synedit_Editor_Setup.zip/"
  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,290,400,"KGF UPDATER")
  font_name 0,"arial"
  O_Alpha(110,0,1,15,10,0,0,"Choisissez les fichiers à mettre à jour :")
  font_color 110,0,0,255 :font_bold 110
  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 10
   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 10
   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,190,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,190,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 10
   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(url9,D$+"BDR_SUB.pdf"):position 14,position(14)+1:display:End_if
  if checked(10)=1:DownloadFile(url10$,D$+"Synedit_Editor_Setup.zip"):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 checked(10)=1
   if file_exists(path$+"Synedit_Editor_Setup.zip")=1 :file_delete path$+"Synedit_Editor_Setup.zip":end_if
   file_rename D$+"Synedit_Editor_Setup.zip",path$+"Synedit_Editor_Setup.zip"
   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
   if file_extract_name$(i$)="Synedit_Editor_Setup.zip":file_copy KGF$,dir$+"Synedit_Editor_Setup.zip":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"

Les URLs ont été modifiées pour tenir compte du nouveau site. Et j'ai ajoute Synedit_Editor dans la liste...

Je vais regarder tout cela de près, très près... Laughing

Merci Klaus, c'est vrai que j'avais oublié que le site avait changé depuis...

Des petites corrections :

---lignes 218 à 258 du programme :
à chaque adresse définie par path$+"......"
il faut ajouter un \ : path$+"\......"

---ligne 185 du programme :

Code:: if file_exists(KGF$):file_delete KGF$:End_if

il faut rajouter =1
if file_exists(KGF$)=1:file_delete KGF$:End_if

---ligne 3419 de KGF_Sub.bas

Code:: ' res% = DLL_call2("DownloadFile",adr(url$),adr(fic$))
sub DownloadFile(url$,fic$)
if variable("DownloadFile")=0 : dim DownloadFile% :end_if
KGF_res% = DLL_call2("DownloadFile",adr(url$),adr(fic$))
DownloadFile% = KGF_res%
end_sub

il faut rajouter % à :
if variable("downloadfile%")=0

Merci, Ygeronimi. Voici mes commentaires:

Citation :: ---lignes 218 à 258 du programme :
à chaque adresse définie par path$+"......"
il faut ajouter un \ : path$+"\......"

Ce n'est pas exact. path$ contient déjà ce caractère. Voir ligne 36:

Code:: dim path$ : path$ = Dir_Current$+"\"

Citation :: ---ligne 185 du programme :

Code:
if file_exists(KGF$):file_delete KGF$:End_if

Exact. Je prends. Idem d'ailleurs en ligne 205:

Citation :: if file_exists(BDR$)=1 then file_delete BDR$

Citation :: ---ligne 3419 de KGF_Sub.bas

Code:
' res% = DLL_call2("DownloadFile",adr(url$),adr(fic$))
sub DownloadFile(url$,fic$)
if variable("DownloadFile")=0 : dim DownloadFile% :end_if
KGF_res% = DLL_call2("DownloadFile",adr(url$),adr(fic$))
DownloadFile% = KGF_res%
end_sub

Exact. Je prends.

J'ai tout mis en place sur le WebDav et sur mon site. Voici la version à jour de KGF_Updater.bas:

Code:: ' ******************************************************************************
' * KGF_UPDATER *
' * ---------- *
' * Version 0.4 du 04/12/2014 *
' ******************************************************************************

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.comxa.com/versions/KGF.dll"
dim url2$ : url2$ = "http://klauspanoramic.comxa.com/versions/BDR.dll"
dim url3$ : url3$ = "http://klauspanoramic.comxa.com/versions/KGF_SUB.bas"
dim url4$ : url4$ = "http://klauspanoramic.comxa.com/versions/KGF.chm"
dim url5$ : url5$ = "http://klauspanoramic.comxa.com/versions/KGF.doc"
dim url6$ : url6$ = "http://klauspanoramic.comxa.com/versions/KGF.pdf"
dim url7$ : url7$ = "http://klauspanoramic.comxa.com/versions/BDR_SUB.chm"
dim url8$ : url8$ = "http://klauspanoramic.comxa.com/versions/BDR_SUB.doc"
dim url9$ : url9$ = "http://klauspanoramic.comxa.com/versions/BDR_SUB.pdf"
dim url10$ : url10$ = "http://klauspanoramic.comxa.com/versions/Synedit_Editor_Setup.zip"
dim path$ : path$ = Dir_Current$+"\"
' dim KGF$ : KGF$ = path$+"KGF.dll"
' dim BDR$ : BDR$ = path$+"BDR.dll"
dim KGF$ : KGF$ = "KGF.dll"
dim BDR$ : BDR$ = "..\BDR\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/Synedit_Editor_Setup.zip/"
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,290,400,"KGF UPDATER")
font_name 0,"arial"
O_Alpha(110,0,1,15,10,0,0,"Choisissez les fichiers à mettre à jour :")
font_color 110,0,0,255 :font_bold 110
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 10
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 10
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,190,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,190,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 10
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(url9,D$+"BDR_SUB.pdf"):position 14,position(14)+1:display:End_if
if checked(10)=1:DownloadFile(url10$,D$+"Synedit_Editor_Setup.zip"):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$)=1 : 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$)=1 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 checked(10)=1
if file_exists(path$+"Synedit_Editor_Setup.zip")=1 :file_delete path$+"Synedit_Editor_Setup.zip":end_if
file_rename D$+"Synedit_Editor_Setup.zip",path$+"Synedit_Editor_Setup.zip"
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
if file_extract_name$(i$)="Synedit_Editor_Setup.zip":file_copy KGF$,dir$+"Synedit_Editor_Setup.zip":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"

Je constate.

Avant de rajouter le \ dans les adresses, tout se retrouvait sur mon bureau
Après ce rajout, tout est à sa place.
scratch

Je vais essayer en faisant un nouveau dossier avec les sources que tu as mise à jour.
Je verrai bien ce que cela renvoi mais surtout où... Laughing

» KGF_dll - nouvelles versions
» Nouvelles versions
» Synedit_Editor - nouvelles versions
» KGF_dll - nouvelles versions
» KGF_dll - nouvelles versions