Fonction crypter de kgf

Salut Klaus.

Je cherche à utiliser la fonction crypter de kgf et pour test j'ai écris ces quelques lignes :

Code:

dim fichier$
dim pwd1$
dim pwd2$
dim kgf$
dim res%



fichier$ = Param_value$(1)
caption 0,fichier$

kgf$ = file_extract_path$(Param_value$(0))+"files\KGF.dll"
dll_on kgf$

pwd1$ = "ak17_Z#hP8"
pwd2$ = "Tous les hommes naissent libres et égaux. C'est du moins ce qu'il pensent."

res% = dll_call4("crypter",adr(pwd1$),adr(pwd2$),adr(fichier$),1)

message str$(res%)
END

et voilà le résultat du programme interprété :

Je passe le fichier en drag & drop.
 
Je n'ai pas de message si je me sers du compilateur mais le fichier n'est pas crypté.


( Je suis sous W10  64 bits )

J'ai reproduit le problème chez moi. Je vais maintenant pouvoir le pister et le corriger.

Le problème est corrigé. Recharge KGF.dll et ça marchera.

Super Klaus !
Tout fonctionne au poil.

Une petite question.
Comment on sait que le boulot est fini ?

Ben... lorsque la fonction crypter retourne avec son code retour, c'est terminé. Tant que le travail est en cours, la fonction de retourne pas. En fait, elle est vraiment très rapide !

Salut Klaus.

la bonne écriture serait donc:
   
   res% = 1
   res% = dll_call......
   while res%<>0
      wait 1000
   end_while

pour éviter de créer un bug sur une fonction ou procédure qui se servirait du fichier passé à la moulinette.

Non, Yannick !

La fonction ne retourne que lorsque le travail est terminé ! Tant que la conversion est en cours, on reste dans la DLL et il n'y a pas de retour. Lorsque la fonction termine en retournant son résultat res%, le travail est effectibement terminé. Pour le dire de façon plus technique: il n'y a pas de traitement asynchrone.

Tu as peut-être l'impression que le travail n'est pas terminé parce que la fonction est ultra rapide, mais c'est trompeur. Pour ressentir un délai perceptible, il faidrait crypter un fichier de plusieurs méga-octets... et encore ! Même là, c'est très rapide.

Ok Klaus, j'ai compris.