KGF_dll - nouvelles versions

Oups... C'est corrigé !

Nouvelle version:
KGF.dll V4.77 du 06/06/2015

Nouveautés:
- correction d'un bug dans la fonction KGFupdate (URL de l'ancien site)

Modules modifiés:
KGF.dll

La doc est inchangée. Les sources sont à jour.

Nouvelle version:
KGF.dll V4.78 du 08/06/2015

Nouveautés:
- nouvelle fonction: SetFTPMode

Modules modifiés:
KGF.dll
KGF.chm

La doc est à jour. Les sources sont à jour.

Cette nouvelle fonction a pour le moment 1 seul paramètre qui permet de gérer l'affichage des messages d'erreurs internes. Par défaut, ces messages ne sont pas affichés. Cette fonction permet de signaler à KGF.dll d'afficher ces messages.

Il y a un truc.
Depuis ma dernière mise à jour vs 4.77
mon kgf updater ne fonctionne plus !

Code:: hide 0
Variables()
Labels()
Gui()
show 0
Update()
end

SUB Variables()
dim Vs$ : Vs$="1.0"
dim kgf$: kgf$="G:\Ressources\Dlls\KGF.dll"
END_SUB

SUB Labels()
END_SUB

SUB GUi()
Height 0,130
Width 0,350
Top 0,(screen_y-height(0))/2
Left 0,(screen_x-width(0))/2
Caption 0,"KGF Updater - Vs "+Vs$
Color 0,0,130,0

Alpha 1
Top 1,20
Left 1,20
Font_name 1,"Times new roman" : Font_size 1,10 : Font_bold 1 : Font_color 1,250,250,0
caption 1,"Mise à jour de KGF.dll"

Progress_bar 2
Top 2,40
Left 2,20
WIdth 2,280
Min 2,0 : Max 2,4 : Position 2,0
END_SUB

SUB Update()
dim_local version%,version$,version2$,fic$,res%,url$,fic2$,i%

dll_on kgf$

' récupération de la version sur machine
version$ = string$(255," ")
version% = DLL_call1("KGFdllVersion",adr(version$))
version$ = trim$(version$)
Caption 1,"Récupération de la version utilisée"
Position 2,1
pause 2000

' récupération de la version sur serveur
fic$="C:\Temp\KGF.txt"
res% = DLL_call1("GetActualVersions",adr(fic$))
file_open_read 3,fic$ : file_readln 3,version2$ : file_close 3
version2$ = trim$(version2$)
Caption 1,"Récupération de la version en cours"
Position 2,2
pause 2000

' chargement de la nouvelle version si besoin
if version$<>version2$
fic2$="C:\Temp\KGF.dll"
url$="http://klauspanoramic.comxa.com/versions/KGF.dll"
res% = DLL_call2("DownloadFile",adr(url$),adr(fic2$))
end_if
Caption 1,"Chargement de la nouvelle version"
Position 2,3
pause 2000
dll_off

' Mise en place de la nouvelle version
if file_exists(fic2$)=1
file_delete kgf$
file_rename fic2$,kgf$
file_delete fic$
end_if
Caption 1,"Chargement de la nouvelle version"
Position 2,4
pause 2000
hide 0

' Message info
dll_on kgf$
version$ = string$(255," ")
version% = DLL_call1("KGFdllVersion",adr(version$))
version$ = trim$(version$)
i% = message_information_ok("Vous utilisez :"+chr$(13)+version$)
dll_off
Terminate
END_SUB

Ce n'est ni ton programme ni KGF.dll. Apparemment, mon site n'est pas accessible en ce moment...

Après

Code:: res% = DLL_call1("GetActualVersions",adr(fic$))

ajoute un test d'existence du fichier. Si le fichier n'existe pas, c'est que le site est inaccessible.

Le site est à nouveau accessible. C'était un problème de l'hébergeur.

J'ai créé une copie du site chez un autre hébergeur, et cette version sera bientôt en ligne. Je m'en servirai de site "miroir" qui sera utilisé par ma fonction KGFupdate() au cas où le site principal serait inaccessible.

Nouvelle version:
KGF.dll V4.79 du 11/06/2015

Nouveautés:
- courtcircuiter le cache dans les fonctions FTP
- ajout d'un deuxième paramètre à SetFTPMode

Modules modifiés:
KGF.dll
KGF.chm

La doc est à jour. Les sources sont à jour.

Par défaut, le cache est maintenant exclu du fonctionnement des fonctions FTP. Ceci peut être réactivé par le nouveau paramètre à SetFTPMode qui a maintenant la syntaxe suivante:

Code:: res% = dll_call2("SetFTPMode",verbose%,cache%)

En mettant 1 dans le paramètre cache%, on réactive l'utilisation du cache.

Genial merci klaus, je test ce soir

Salut klaus Very Happy

,
J'ai tester et malheureusement cela ne fonctionne pas, j'ai bien télécharger la dernière version. (4.7.9)

J'ai même tenter avec
res% = dll_call2("SetFTPMode",0,0)
res% = dll_call2("SetFTPMode",1,0)
res% = dll_call2("SetFTPMode",0,1)
res% = dll_call2("SetFTPMode",1,1)

J'ai fait un test radical :
Je me suis connecter avec le ftp de panoramic, j'ai supprimer data.txt avec WinSCP j'ai ensuite cliquer sur FTP vers memo et il n'a pas détecter que le fichier n'existe pas (si je déconnecte et me reconnecte avec FTP de panoramic c'est pareil !)

La seul solution actuel serai de faire un programme qui ne face que ce connecter au ftp , copier le fichier du FTP au local et se fermer. C'est panoramic qui lancerai ce programme en boucle. Rolling Eyes

Le problème c'est que ce n'est pas du tout rapide et plutôt sale comme méthode

je te conseil de tester directement par toi même ? http://www.commentcamarche.net/download/telecharger-251-winscp
Ou recherche WinSCP ou filezilla ?

Merci tout de même, c'est pas grave si tu n'y arrive pas

Ok, je vais tester avec FileZilla.

merci

Tu n'abandonne pas facilement toi lol!

Je dirais que l'abandon est une chose inconnue pour Klaus.

lol!

Non, je n'abandonne pas. Je suis en train de mettre au point la solution. En fait, jimx78, tu t'es laissé piéger par la gestion du timer à 200 ms, qui vient entrer en conflit avec une des opérations de téléchargement d'un fichier ou d'une liste de fichiers du dossier. Et boum...

La solution sera purement Panoramic, en adaptant la technique de programmation aux contraintes techniques, à la fois du FTP dont on ne maîtrise pas la réactivité, et du timer. Au niveau de la DLL, tout fonctionne correctement. Patience...

ok je désactive le timer à présent,

Code:: ' PROGRAMME PRINCIPALE##########################################################
label quitter_programme , connexion_ftp , deconnexion_ftp , tester_connexion_ftp , envoyer_ftp , recevoir_ftp
dim res%, server$, id$, pwd$ , port%
dim org$, dest$ , bin%
dim fic$
dim version%
caption 0,"Serveur FTP" : height 0,600 : width 0,340*2 : top 0,screen_y/5 : left 0,screen_x/3
dll_on "KGF.dll"
version% = DLL_call1("KGFdllVersion",adr(version%))
if version% < 479 then res% = DLL_call0("KGFupdate")
' ##############################################################################
edit 1 : hint 1,"Serveur" : width 1,300 : top 1,10 : left 1,10
edit 2 : hint 2,"Utilisateur" : width 2,300 : top 2,40 : left 2,10

edit 3 : hint 3,"Mot de passe" : width 3,300 : top 3,70 : left 3,10
edit 4 : hint 4,"Numéro de port (21 si vide)" : width 4,300 : top 4,100 : left 4,10

button 5 : caption 5,"Connexion" : width 5,300 : top 5,130 : left 5,10 : on_click 5,connexion_ftp
button 6 : caption 6,"Déconnexion" : width 6,300 : top 6,160 : left 6,10 : on_click 6,deconnexion_ftp : inactive 6
button 7 : caption 7,"Tester la connexion" : width 7,300 : top 7,190 : left 7,10 : on_click 7,tester_connexion_ftp
Alpha 8 : caption 8,"Déconnecter" : top 8,220 : left 8,10 : color 8,255,0,0

memo 9 : width 9,300 : height 9,300: top 9,250 : left 9,10 : bar_vertical 9
inactive 9

text 1,"minecraft33.omgserv.com"
text 2,"11469_test"
text 3,"panoramic"

button 10 : caption 10,"Memo vers FTP + Clique forcer sur FTP vers memo" : width 10,300 : top 10,10 : left 10,330 : on_click 10,envoyer_ftp
memo 11 : width 11,300 : height 11,150: top 11,40 : left 11,330 : bar_vertical 11
hint 11,"Message à envoyer"

button 12 : caption 12,"FTP vers memo" : width 12,300 : top 12,250 : left 12,330 : on_click 12,recevoir_ftp
memo 13 : width 13,300 : height 13,150: top 13,280 : left 13,330 : bar_vertical 13
hint 13,"Message recu" : inactive 13

bin%=0
label bug
button 50 : on_click 50,bug

' timer 14 : timer_interval 14,1000 : on_timer 14,recevoir_ftp : timer_off 14
on_close 0,quitter_programme
end : ' PROGRAMME PRINCIPALE#################################################FIN
' SOUS PROGRAMME PRINCIPALE#####################################################

quitter_programme:
timer_off_all
res% = dll_call1("KillProcessByHandle",handle(0))
return

connexion_ftp:
inactive 5 : inactive 6 : inactive 7
clear 9
if len(text$(1)) > 0 then server$ = text$(1)
if len(text$(2)) > 0 then id$ = text$(2)
if len(text$(3)) > 0 then pwd$ = text$(3)
if len(text$(4)) > 0 then port% = text$(4)

res% = dll_call3("IdentifyMyFTP",adr(server$),adr(id$),adr(pwd$))
res% = dll_call1("OpenFTP",port%)
gosub tester_connexion_ftp
if res% = 1
res% = dll_call1("GetCurrentFolderFilesOnFTP",handle(9))
gosub recevoir_ftp
end_if
return

deconnexion_ftp:
res% = dll_call0("CloseFTP")
gosub tester_connexion_ftp
return

tester_connexion_ftp:
res% = dll_call0("IsFTPOnline")
if res% = 1
caption 8,"Connecter" : color 8,0,255,0
inactive 5 : active 6 : active 7
' timer_on 14
else
caption 8,"Déconnecter" : color 8,255,0,0
inactive 6 : active 5 : active 7
' timer_off 14
clear 9
end_if
return

envoyer_ftp:
if file_exists("data.txt")=1 then file_delete "data.txt"
file_save 11,"data.txt"
fic$ = "data.txt"
res% = dll_call2("UploadFileToFTP",adr(fic$),1)
goto recevoir_ftp
return

recevoir_ftp:
clear 13
if file_exists("datalocal.txt")=1 then file_delete "datalocal.txt"
org$ = "data.txt"
dest$ = "datalocal.txt"
res% = dll_call3("DownloadFileFromFTP",adr(org$),adr(dest$),bin%)
file_load 13,"datalocal.txt"
return

bug:
if res% = 1
res% = dll_call1("GetCurrentFolderFilesOnFTP",handle(9))
end_if
return

' SOUS PROGRAMME PRINCIPALE##################################################FIN

Bon courage

Bon, la solution maintenant ! J'ai fait plusieurs choses, toutes dans le code Panoramic:
1. j'ai passé le timer de 200 ms à 500 ms. Ceci n'est pas obligatoire, mais facilite un peu le déroulement du programme. Cependant, avec les autres modifications que j'ai faites, tu peux sans problème revenir à 200 ms.
2. je désactive systématiquement le timer lorsqu'une opération est demandée sur le FTP, et je ne le réactive qu'après la fin de cette opération. Ceci garantit qu'une opération FTP ne sera jamais interrompue par un évènement timer. En effet, comme la routine appelée par le timer charge la liste des fichiers et le fichier data.txt, et comme on ne maîtrise absolument pas la durée ce cette opération, le timer peut très bien se déclencher à nouveau avant la fin de l'opération en cours. Et c'est le plantage assuré - on ne récupère plus rien, puisque l'opération demandée ne pourra jamais aller à son terme.
3. j'ai créé un mémo 19, caché par la commande HIDE. Et je récupère la liste des fichiers, non pas dans le mémo 9, mais le mémo 19. Et c'est seulement après la fin de la réception de cette liste que j'efface le mémo 9 pour y recopier le contenu du mémo 19. On n'a donc pas cette période des fois longue où le mémo 9 s'efface sans afficher quoi que ce soit.
4. et finalement, j'ai sécurisé la réception du fichier data.txt en vérifiant deux choses: d'une part l'existance du fichier reçu, et d'autre part, le contenu (il pourrait être vide...). J'ai mis des traitements en comentaire au cas où le fichier serait vide ou la liste des fichiers non reçue.

Voilà. Assez de baratin, voici le code. Je l'ai testé en renommant avec FileZilla, le fichier data.txt sur le FTP en data1.txt, et vice-versa. Et le programme réagit parfaitement...

Code:: ' PROGRAMME PRINCIPALE##########################################################
label quitter_programme , connexion_ftp , deconnexion_ftp , tester_connexion_ftp , envoyer_ftp , recevoir_ftp
dim res%, server$, id$, pwd$ , port%
dim org$, dest$ , bin%, i%
dim fic$
caption 0,"Serveur FTP" : height 0,600 : width 0,340*2 : top 0,screen_y/5 : left 0,screen_x/3
dll_on "KGF.dll"

' ##############################################################################
edit 1 : hint 1,"Serveur" : width 1,300 : top 1,10 : left 1,10
edit 2 : hint 2,"Utilisateur" : width 2,300 : top 2,40 : left 2,10

edit 3 : hint 3,"Mot de passe" : width 3,300 : top 3,70 : left 3,10
edit 4 : hint 4,"Numéro de port (21 si vide)" : width 4,300 : top 4,100 : left 4,10

button 5 : caption 5,"Connexion" : width 5,300 : top 5,130 : left 5,10 : on_click 5,connexion_ftp
button 6 : caption 6,"Déconnexion" : width 6,300 : top 6,160 : left 6,10 : on_click 6,deconnexion_ftp : inactive 6
button 7 : caption 7,"Tester la connexion" : width 7,300 : top 7,190 : left 7,10 : on_click 7,tester_connexion_ftp : inactive 7
Alpha 8 : caption 8,"Déconnecter" : top 8,220 : left 8,10 : color 8,255,0,0

memo 9 : width 9,300 : height 9,300: top 9,250 : left 9,10 : bar_vertical 9
memo 19 :hide 19
inactive 9

text 1,"minecraft33.omgserv.com"
text 2,"11469_test"
text 3,"panoramic"

button 10 : caption 10,"Memo vers FTP + Clique forcer sur FTP vers memo" : width 10,300 : top 10,10 : left 10,330 : on_click 10,envoyer_ftp
memo 11 : width 11,300 : height 11,150: top 11,40 : left 11,330 : bar_vertical 11
hint 11,"Message à envoyer"

button 12 : caption 12,"FTP vers memo" : width 12,300 : top 12,250 : left 12,330 : on_click 12,recevoir_ftp
memo 13 : width 13,300 : height 13,150: top 13,280 : left 13,330 : bar_vertical 13
hint 13,"Message recu" : inactive 13

bin%=0

res% = dll_call2("SetFTPMode",0,0)

timer 14 : timer_interval 14,500 : on_timer 14,recevoir_ftp : timer_off 14
on_close 0,quitter_programme
end : ' PROGRAMME PRINCIPALE#################################################FIN
' SOUS PROGRAMME PRINCIPALE#####################################################

quitter_programme:
  timer_off_all
  res% = dll_call1("KillProcessByHandle",handle(0))
  return

connexion_ftp:
  inactive 5 : inactive 6 : inactive 7
  clear 9
  clear 13
  if len(text$(1)) > 0 then server$ = text$(1)
  if len(text$(2)) > 0 then id$ = text$(2)
  if len(text$(3)) > 0 then pwd$ = text$(3)
  if len(text$(4)) > 0 then port% = text$(4)

  res% = dll_call3("IdentifyMyFTP",adr(server$),adr(id$),adr(pwd$))
  res% = dll_call1("OpenFTP",port%)
  gosub tester_connexion_ftp
  return

deconnexion_ftp:
  timer_off 14
  res% = dll_call0("CloseFTP")
  gosub tester_connexion_ftp
  return

tester_connexion_ftp:
  timer_off 14
  res% = dll_call0("IsFTPOnline")
  if res% = 1
   caption 8,"Connecté" : color 8,0,255,0
   inactive 5 : active 6 : active 7
   timer_on 14
  else
   caption 8,"Déconnecté" : color 8,255,0,0
   inactive 6 : active 5 : active 7
   timer_off 14
   clear 9
  end_if
  return

envoyer_ftp:
  timer_off 14
  if file_exists("data.txt")=1 then file_delete "data.txt"
  file_save 11,"data.txt"
  fic$ = "data.txt"
  res% = dll_call2("UploadFileToFTP",adr(fic$),1)
  gosub recevoir_ftp
  return

recevoir_ftp:
  timer_off 14
  clear 19
  res% = dll_call1("GetCurrentFolderFilesOnFTP",handle(19))
  if count(19)>0
   clear 9
   for i%=1 to count(19)
   item_add 9,item_read$(19,i%)
   next i%
  else
' item_add 9,"vide"
  end_if
  org$ = "data.txt"
  dest$ = "datalocal.txt"
  if file_exists(dest$)=1 then file_delete dest$
  res% = dll_call3("DownloadFileFromFTP",adr(org$),adr(dest$),bin%)
  if file_exists(dest$)=1
   clear 13
   file_load 13,dest$
   if count(13)=0 then item_add 13,"Oups..."
  else
   clear 13
' item_add 13,"vide"
   res% = dll_call0("CloseFTP")
   res% = dll_call1("OpenFTP",port%)
  end_if
  timer_on 14
  return

' SOUS PROGRAMME PRINCIPALE##################################################FIN

Bon courage pour la suite !

EDIT

5ème modification: lorsque le téléchargement du fichier data.txt échoue (pour cause d'absence), Windows perd le contexte FTP, et plus rien n'est possible après. J'ai donc simplement ajoute la fermeture du FTP, puis la réouverture, en cas d'erreur, et tout marche bien !

Klaus

Not correct arithmetic expression : Error in function .line : 39

Code:: res% = dll_call2("SetFTPMode",0,0)

Tu n'as pas la bonne version de KGF.dll... actuellement, c'est la version 4.79 du 11/06/2015.

Je m'en doutais un peu.
KGF.dll (nouvelle version) téléchargée : OK!

KGF_dll - nouvelles versions - Page 30 Merci_10

Félicitation ! cela à marcher !

J'ai pas encore regarder le code je regarde ça un autre jour. Merci beaucoup

Super ! Du coup, j'ai appris aussi quelque chose: refaire fermeture/ouverture du FTP en cas d'erreur ! Je me demandais pourquoi FileZilla le fait si souvent (on le voit dans le log qui défile). Maintenant, j'ai compris !

Et tu vois, je le fais avec

Code:: res% = dll_call2("SetFTPMode",0,0)

ce qui bloque l'utilisation du cache. Si tu fais

Code:: res% = dll_call2("SetFTPMode",0,1)

il trouve le fichier data.txt le plus souvent dans le cache s'il n'existe pas sur le FTP, mais pas toujours. Ca dépend de l'effacement sporadique du cache par l'explorateur internet. C'est donc

Code:: res% = dll_call2("SetFTPMode",0,0)

qu'il faut employer pour être tranquille.

Dis Klaus, qu’est-ce que tu prends au petit déjeuner pour que tu sois si intelligent ? Laughing

Moi, il m’arrive parfois de digérer une poignée d’équations différentielles, mais ça ne change rien ! Surprised

Ben, les équations différentielles, ça a été ma bête noire, en terminale et à la fac ! Par contre, tout ce qui est logique (mathématique, j'entends), drivers, noyaux de systèmes d'exploitations, procédures de télécommunication, ce genre de choses - voilà ce qui constitue mon ordinaire !

Nouvelle version:
KGF.dll V4.80 du 13/06/2015

Nouveautés:
- la fonction KGFupdate utilise l'URL du site miroir en cas d'échec de chargement à partir du site principal

Modules modifiés:
KGF.dll

La doc est inchangée. Les sources sont à jour.

Nouvelle version:
KGF.dll V4.81 du 17/06/2015

Nouveautés:
- nouveau code 33 pour SyneditFunction

Modules modifiés:
KGF.dll
KGF.chm

La doc est à jour. Les sources sont à jour.

Ce nouveau code efface l'ensemble du texte de l'objet Synedit visé.

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