Discussion :

[virtualdev]

Bonjour à tous,

Pour la création d'une archive en WD j'utilise une procédure trouvée dans les exemples fournis.

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
 
NumEvenement est un entier
NumErrZip est un entier
 
NumErrZip = zipCrée("MonArchive", SAI_REPDEST + NomArchive_SAI + ".zip")
 
SI NumErrZip = 0 ALORS
	zipNiveauCompression("MonArchive",9)
	NumEvenement = Evénement("JaugeCompression", FenEnExécution(),JaugeCompactage)
	NumErrZip = zipAjouteRépertoire("MonArchive", SAI_REP)
	SI NumErrZip <> 0 ALORS
		Erreur(zipMsgErreur(NumErrZip))
	FIN
	FinEvénement(NumEvenement)
	zipFerme("MonArchive")

code de la procédure

Code :

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

1
2
3
 
PROCEDURE JaugeCompression
Jauge(_EVE.wParam, 100)

et méchamment le système me répond
Appel WL :
Traitement de 'Procédure locale JaugeCompression' (Utilitaire_FEN.PROCEDURE.JaugeCompression), ligne 2, thread 0
Fonction 'Jauge', syntaxe 2

Que s'est-il passé ?
Le passage du paramètre 1 a provoqué une erreur.
Un élément de type 'entier système' ne peut pas être converti vers le type 'entier'.

Une idée?
Merci d'avance
virtualdev

[michel.souris]

Vu le message d'erreur essaye de changer le type du paramètre de Jauge... en passant par une variable intermédiaire...

[virtualdev]

Merci de ton aide qui m'a permis d'avancer.

Il suffisait de prendre wparam sans _eve_ devant.

virtualdev