Discussion :

[wimbish]

Bonjour,

J'essaye d'afficher une barre de progression durant la copie de mes fichier.
Actuellement j'utilise ce bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Result_dll = API("kernel32","CopyFileExA" , &lpExistingFileName, &lpNewFileName,&CallBackProgress, Null,Null,0x00001000)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
PROCEDURE CallBackProgress(TotalFileSize est un entier système ,TotalBytesTransferred est un entier système ,StreamSize est un entier système,StreamBytesTransferred est un entier système, dwStreamNumber est un entier système,dwCallbackReason est un entier système,hSourceFile est un entier système,hDestinationFile est un entier système,lpData est un entier système)
 
LIB_Libellé1 = NumériqueVersChaîne(PartieEntière((StreamSize * 10000) / (TotalFileSize * 10000) * 100)) + "% complete....."+TotalBytesTransferred+"++"+StreamSize
{JAUGE_Jauge1..Nom,indChamp}..BorneMin = 0
{JAUGE_Jauge1..Nom,indChamp}..BorneMax = TotalFileSize
{JAUGE_Jauge1..Nom,indChamp}..Valeur = StreamSize
RENVOYER 0

J'aimerais envoyer le nom de la jauge en paramètre à la fonction CallBackProgress (pour afficher la progression dans une table) et jusque-là présent aucuns résultat !!

En théorie on doit utiliser "lpData" mais je n'y arrive pas.
De plus, les valeurs de paramètres de la fonction de callback en débogage me semble curieux, la syntaxe n'est peut être pas bonne.

Quelqu'un aurait il une idée ?
(Ou un bout de code plus propre pour faire cela ?)

Merci d'avance.

[frenchsting]

Il semble me souvenir d'un bout de code avec les _eve afin de permettre l'affichage de la jauge. Il faudrait que je fasse une recherche dans les "vieux" codes que j'ai chez moi.

[wimbish]

Merci,
Il n'y a pas d'urgence

[Hibernatus34]

Bonjour,

Si fCopieFichier avec frJauge ne vous convient pas, alors voici quelques remarques :
- LARGE_INTEGER n'est pas un entier système, c'est un entier sur 8. En mode 32 bits et passé par valeur, ça fait une différence.
- DWORD c'est un entier tout court (donc sur 4). En fait c'est un entier sans signe exactement.
- OK pour HANDLE et les pointeurs, là c'est des entiers système.
- Attention au jour où vous passerez en Unicode, il faudra alors utiliser CopyFileExW.
- lpData n'est qu'une donnée libre, servant à retrouver un contexte, ce que WinDev fait déjà tout seul.
- Bien que Null soit converti implicitement en 0, il n'a pas grand chose à voir avec le NULL de l'API, qui lui est un vrai 0 (entier valant 0).
- Quel est l'intérêt d'écrire {JAUGE_Jauge1..Nom,indChamp} au lieu de JAUGE_Jauge1 ? Aucun je présume.

Je n'ai pas le temps de regarder plus en détail ni de tester moi-même.
Mais déjà en utilisant des entiers sur 8 aux bons endroits ça devrait marcher mieux, non ?

[wimbish]

Merci Hibernatus34,

Avec les bons types cela fonctionne nettement mieux.

pour info:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
sNomJauge est une chaîne = JAUGE_Jauge1..Nom
Result_dll = API("kernel32","CopyFileExA" , &lpExistingFileName, &lpNewFileName,&CallBackProgress,sNomJauge,Null,0x00001000)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
PROCEDURE CallBackProgress(TotalFileSize est un entier sur 8 octets ,TotalBytesTransferred est un entier sur 8 octets ,StreamSize est un entier sur 8 octets,StreamBytesTransferred est un entier sur 8 octets, dwStreamNumber est un entier sur 4 octets,dwCallbackReason est un entier sur 4 octets,hSourceFile est un entier système,hDestinationFile est un entier système,lpData est une chaîne)
 
{lpData,indChamp}..BorneMin = 0
{lpData,indChamp}..BorneMax = TotalFileSize
{lpData,indChamp}..Valeur = TotalBytesTransferred

Ps : Dans l'appel de l'API, JAUGE_Jauge1 ne passe pas alors que JAUGE_Jauge1..Nom qui est explicitement une chaîne passe bien.

[jurassic pork]

Bonjour,

Gilles sur un forum de code source avait fourni ceci :

Pour ceux que ça interesse, j'ai fini par le faire avec l'API et une
callback de fonction Windev.
C'est performant, interruptible, on peut mettre en pause et
reprendre...

code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
FONCTION fCopieFic(sSource est une chaîne,sDest est une chaîne)
sLocSource             est une chaîne=sSource
sLocDest             est une chaîne=sDest
bRetourApi             est un booléen
nExistingFileName     est un entier=&sLocSource //Ici l'adresse de la
chaine, pourrait être la chaine en direct
nNewFileName         est un entier=&sLocDest //Ici l'adresse de la chaine,
pourrait être la chaine en direct
nData                 est un entier
nCancel             est un entier
nCopyFlags            est un entier
bRetourApi=API("KERNEL32","CopyFileExA",nExistingFileName,nNewFileName,&fCopyProgressRoutine
,nData,nCancel ,nCopyFlags)
RENVOYER bRetourApi
et la callback :
FONCTION fCopyProgressRoutine(nTotalFileSize est un entier sur 8
octets,nTotalBytesTransferred est un entier sur 8 octets,nStreamSize
est un entier sur 8 octets,nStreamBytesTransferred est un entier sur 8
octets,nStreamNumber est un entier sans signe sur 4
octets,nCallbackReason est un entier sans signe sur 4
octets,hSourceFile est un entier,hDestinationFile est un entier)
Jauge(nTotalBytesTransferred,nTotalFileSize)
//Annulation de la copie
//Pour les autres paramètres voir la MSDN
//http://msdn.microsoft.com/en-us/library/aa363854(VS.85).aspx
SI ToucheEnfoncée(teEchap,Faux) ALORS
    RENVOYER 1
FIN

Ami calmant, J.P

[Hibernatus34]

Ps : Dans l'appel de l'API, JAUGE_Jauge1 ne passe pas alors que JAUGE_Jauge1..Nom qui est explicitement une chaîne passe bien.

Si la callback est une procédure de fenêtre, les champs de la fenêtres doivent être accessibles. C'est le cas dans WD17, j'ai testé. Peut-être pas dans WD14 ?

[wimbish]

J'utilise l'indirection dans la procédure de callback car la procédure sera globale

j'utilise JAUGE_Jauge1..Nom dans l'appel de la fonction API car la valeur attendu est la chaîne "JAUGE_Jauge1" et pas la valeur de la jauge.

L'utilisation du ..Nom est une habitude afin de ne pas avoir de surprise avec certain champ et cela rend le code plus clair (selon moi)

[Hibernatus34]

D'accord, je n'avais pas compris que c'était voulu pour la rendre globale.
C'est à cause du premier code où le nom de la jauge était en dur dans la callback.

[wimbish]

Mea Culpa, c’était un bout de code de test.
Je comprend que ça t'ai interloqué.