définition de variables

**thierrybatlle** · 16/04/2013, 14h40

Bonjour,

Je dois utiliser une méthode d'un OCX dans mon application. Le fichier d'aide fournis sur cette méthode est le suivant :

GetRfidFileB

Reads files from the RFID card.

Public Function GetRfidFileB(
ByVal card As String,
ByVal file_id As Long,
ByRef data ) As Boolean
Parameters

card
The identifier of the selected card.
file_id
Identifier of the requested file. The possible values are defined in the PR_RFID_FILES enumeration.
data
File contents returned by the card.
Return Values

On error false is returned and the error code and string of the control is set appropriately.
Languages

[Visual Basic] Public Function GetRfidFileB(ByVal card As String, ByVal file_id As Long, ByRef data) As Boolean

[Delphi] function GetRfidFileB(const card: WideString; file_id: Integer; var data: OleVariant): Boolean;

[C++] bool GetRfidFileB(BSTR card, long file_id, VARIANT* data);

Si je me base sur l'exemple de Delphi comment dois-je définir ma variable "data" ?

J'ai fait un essai en définissant ma variable comme variant, mais cela ne fonctionne pas.

Merci bien.

**OnePoint** · 16/04/2013, 15h09

Bonjour,

Tu peux utiliser la fonction ConstruitVariantAutomation.
http://doc.pcsoft.fr/fr-FR/?3013062

**thierrybatlle** · 16/04/2013, 15h58

Bonjour,

cela ne fonctionne pas.
Voici un bout de code :

Code :

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

1
2
3
4
5
 
data 		est un Variant
....
AX_PrApi>>GetRfidFileB(sCardName, PRTypes.PR_RFID_EF_COM, ConstruitVariantAutomation(data))
AX_PrDoc>>Document = AX_PrApi>>ResolveRfidData(data)

Merci bien.

**OnePoint** · 16/04/2013, 17h58

Salut Thierry,

Excuse moi, je crois que je n'ai pas bien compris le premier message.

Le paramètre data est "in" ou "out" (voire même "inout") ?
• "in", c'est toi qui passe des données à la méthode,
• "out", c'est la méthode qui retourne les données.

Mon message précédent correspond au cas "in".

Dans le cas "out", c'est Windev qui fait la conversion et (à ma connaissance) il n'y a pas de possibilité de contrôler cette conversion autrement qu'en passant une variable dont le type est choisi "judicieusement".

Es-tu dans le cas "out" ? (apparemment, oui)
Si oui, quelles données récupères-tu au moyen du paramètre data ?
• une structure de données
• du texte (quel encodage)
• un paquet d'octets
• autres choses ?

Le plus universel, ce serait un buffer... Qu'en penses-tu ?

Code :

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

1
2
3
4
 
data 	est un Buffer
 
AX_PrApi>>GetRfidFileB(sCardName, PRTypes.PR_RFID_EF_COM,data)

**thierrybatlle** · 17/04/2013, 09h12

Bonjour,

Oui c'est OUT je récupère une valeur.

Quand je déclare ma variable en buffer le déroulement du programme se bloque.

Il ne veut pas que l'on passe une variable de type buffer.

Je commence à croire que je ne vais pas trouver de solution alors que ça marche très bien en Delphi et ce n'est pas le premier programme que je traduis de Delphi vers Windev sans aucun problème.

Dans Delphi la variable est déclarée comme ça : data: OleVariant;

Merci bien

**OnePoint** · 18/04/2013, 11h46

Bonjour Thierry,

Hélas, le WLangage ne fournit pas de type OLE Variant.

Il y a encore une possibilité de contournement en l'utilisant l'ActiveX "MSScriptControl.ScriptControl" (pré-installé avec Windows)

Je t'avais demandé ce que le paramètre data reçoit comme valeur et tu n'as pas répondu.
• un objet OLE Automation ?
• autre chose ?

Merci de donner cette précision indispensable.

**thierrybatlle** · 23/04/2013, 09h41

Bonjour,

Je n'avais pas vu la réponse.

Mon variant "vData" contient un tableau de 23 entier sans signe sur 1 octet.
Voir pièce jointe.

Je ne trouve pas l'activeX "MSScriptControl.ScriptControl" et comment l'utiliser ?

Merci bien.

**OnePoint** · 24/04/2013, 10h20

Bonjour Thierry,

Le WLangage ne prend pas correctement en charge le type de données OLE Variant en paramètre d'une méthode d'objet Automation.
Je te propose un code pour contourner cette limitation.

L'idée de ce contournement est :
puisque la donnée OLE Variant ne "passe pas" en paramètre, on va la récupérer comme valeur de retour de la méthode.

Une fonction VBScript permet (1) "d'enrober" le véritable appel à la méthode ciblée, et (2) de réorganiser les paramètres et retour de valeur.
Cette fonction VBScript est exécutée dans la procédure WLangage au moyen de l'ActiveX "MSScriptControl.ScriptControl".

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
 
oScript est un objet Automation "MSScriptControl.ScriptControl" 
 
sScript est une chaîne = [
 
Public Function Wrapper_GetRfidFileB(oAX, ByVal card, ByVal file_id, ByRef bResult)
    Dim data
    bResult = oAX.GetRfidFileB(card, file_id, data)
    Wrapper_GetRfidFileB = data
End Function
 
]
 
vData est un Variant
bRésultat est un booléen
 
QUAND EXCEPTION DANS
	oScript>>Language("VBScript")
	oScript>>Reset
	oScript>>AddCode(sScript)
	oScript>>Timeout(-1) // pas de timeout
	vData = oScript>>Run("Wrapper_GetRfidFileB",AX_PrApi,sCardName,PRTypes.PR_RFID_EF_COM,bRésultat)
 
FAIRE
	Erreur("Erreur exécution ScriptControl",ExceptionInfo(errInfo),ExceptionInfo(errMessage))
	RENVOYER Faux
FIN
 
// vData contient-il un tableau ?
SI vData..Type = wlTableau ALORS
	tDyn est un tableau dynamique
	sInfo est une chaîne
 
	// récupérer les données dans tDyn
	tDyn = vData
 
	POUR TOUT item DE tDyn
		sInfo += [" | "] + item
	FIN
	Info(sInfo)
	RENVOYER Vrai
SINON
	Erreur("Ce n'est pas un tableau !")
	RENVOYER Faux
FIN

**thierrybatlle** · 25/04/2013, 12h29

Bonjour,

J'ai cette erreur, voir pièce jointe.

Merci bien.

**OnePoint** · 25/04/2013, 13h46

Bonjour Thierry,

Pardonne moi, je suis sur que tu penses bien faire. Mais le message d'erreur dans une image, ce n'est pas pratique (surtout que ce n'est que du texte).

Si quelqu'un fait une recherche sur la phrase "pas convertible en paramètre automation", hé bien ton image ne lui sera pas d'une grande aide.

Envoyé par Message d'erreur

Erreur exécution ScriptControl
paramètre 2 n'est pas convertible en paramètre automation.
Vous appelé la méthode Automation 'Run'.
Le paramètre 2 n'est pas convertible en paramètre automation.

J'ai testé le code que je t'ai donné.

Dans mon test le 2ème paramètre de la méthode Run est véritablement un objet automation.
Évidemment, c'est un objet automation "factice" qui n'a rien à voir avec ta situation, mais il fallait bien que je "colle" au mieux à ton pb.
Donc j'ai instancié un objet "Scripting.Dictionary", et ça fonctionne très bien.

Code :

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

AX_PrApi est un objet Automation "Scripting.Dictionary"

Maintenant il va falloir que tu nous montres ton code et en particulier comment AX_PrApi est déclaré / alloué.

[EDIT]
et aussi les références du composant ActiveX( OCX), SVP

[/EDIT]
Merci.

**thierrybatlle** · 25/04/2013, 14h35

Excuses moi pour le fichier d'erreur. Je ferai mieux la prochaine fois.

Voici mon 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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
 
PROCEDURE TraiterRFID()
LOCAL
	sCardName 	est une chaîne UNICODE
	vData 		est un Variant
	oScript 	est un objet Automation "MSScriptControl.ScriptControl" 
	bAttention 	est un booléen
	sMrz 		est une chaîne
	bRFIOk 		est un booléen = False
	bRésultat	est un booléen
 
	sScript est une chaîne = [
 
		PUBLIC FUNCTION Wrapper_GetRfidFileB(oAX, ByVal card, ByVal file_id, ByRef bResult)
		Dim data
		bResult = oAX.GetRfidFileB(card, file_id, data)
		Wrapper_GetRfidFileB = data
		END FUNCTION
 
]
 
// On vérifie si une puce RFID est présente
SI AX_PrApi>>GetRfidCardList() > 0 ALORS
	// On récupère l'ID de la puce RFID
	bRFIOk = AX_PrApi>>GetRfidCard(0, sCardName)
	// On connecte la variable ScardName à la puce RFID
	bRFIOk = AX_PrApi>>ConnectRfidCard(sCardName)
FIN
 
 
SI bRFIOk ALORS
	SI PAS AX_PrApi>>GetRfidFileB(sCardName, PRTypes.PR_RFID_EF_COM, vData) ALORS 
		bAttention = AX_PrApi>>GetErrorCode <> GXError.GX_EACCES
		SI bAttention ALORS
			Trace("Erreur")
		SINON
			Trace("Fait le BAC")
		FIN
 
		// On récupère la MRZ
		sMrz = 	AX_PrDoc>>Field(PRDocTypes.PR_DF_MRZ1) + RC + 
				AX_PrDoc>>Field(PRDocTypes.PR_DF_MRZ2) + RC + 
				AX_PrDoc>>Field(PRDocTypes.PR_DF_MRZ3)
 
		SI PAS AX_PrApi>>MakeBAC(sCardName, sMrz) ALORS
			Erreur("Impossible de faire le MakeBac")
		SINON
 
			QUAND EXCEPTION DANS
				oScript>>Language("VBScript")
				oScript>>Reset
				oScript>>AddCode(sScript)
				oScript>>Timeout(-1) // pas de timeout
				vData = oScript>>Run("Wrapper_GetRfidFileB",AX_PrApi,sCardName,PRTypes.PR_RFID_EF_COM,bRésultat)
 
			FAIRE
				Erreur("Erreur exécution ScriptControl",ExceptionInfo(errInfo),ExceptionInfo(errMessage))
				RENVOYER Faux
			FIN
 
			SI PAS AX_PrApi>>GetRfidFileB(sCardName, PRTypes.PR_RFID_EF_COM, ConstruitVariantAutomation(vData)) ALORS
				Erreur("GetRfidFileB")
			SINON
				AX_PrDoc>>Document = AX_PrApi>>ResolveRfidData(vData)
			FIN
		FIN
	SINON	
		AX_PrDoc>>Document = AX_PrApi>>ResolveRfidData(vData)
	FIN
	// On fait le MakeBac
//	trace(gclMonDocument:GetMRZ())
//	AX_PrApi>>MakeBAC(sCardName, gclMonDocument:GetMRZ())
	Trace("RFID Surname : " + AX_PrDoc>>Field(PRDocTypes.PR_DF_SURNAME))
FIN

Mon objet activeX est un champ ActiveX déposé sur la fenêtre et dans lequel j'ai sélectionné l'objet "PrApi Control"

Initialisation de l'objet :

Code :

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

1
2
3
4
5
6
7
8
9
 
// Sélection du scanner et on teste si le scanner est sous tension
SI PAS AX_PrApi>>UseDeviceN(0,PRTypes.PR_UMODE_FULL_CONTROL) ALORS
	Erreur("Il y a un problème avec le scanner")
	FinProgramme()
FIN
 
// Définition du mode de fonctionnement du scanner
AX_PrApi>>SetProperty("freerun_mode",PRTypes.PR_FRMODE_UVLEDWARMING+PRTypes.PR_FRMODE_TESTDOCUMENT)

Je joint en pièce jointe le fichier d'aide fournis avec l'ActiveX.

Merci beaucoup

**OnePoint** · 25/04/2013, 16h24

Envoyé par thierrybatlle

Excuses moi pour le fichier d'erreur. Je ferai mieux la prochaine fois.

Franchement, il n'y a pas de mal.

Merci pour le code et la doc. Maintenant je comprends mieux.

Envoyé par Doc

The PR Api Control is a dedicated ActiveX control for controlling the document capture devices and for managing document recognition.

The PR Api Control is a control without display window. To visualize the captured images the best way is to connect a GxImage ActiveX control to the PR Api Control. In this case the PR Api Control operates as an Image source for the GxImage control.

Une remarque de choix de conception: champ ActiveX vs objet automation.

Traduction : le contrôle PR Api est un contrôle ActiveX sans interface utilisateur.

Commentaire :
Par conséquent il n'est pas nécessaire de l'utiliser à travers un Champ ActiveX .
Il est possible de l'utiliser directement comme un objet automation.

Pour que tu comprennes bien, je vais faire une comparaison.
"MSScriptControl.ScriptControl" est aussi un contrôle ActiveX sans interface utilisateur.
Lui aussi peut être créé à travers un champ ActiveX, mais ça n'a pas vraiment d'intérêt.
Il est possible (et c'est plus simple) d'instancier directement "MSScriptControl.ScriptControl" au moyen d'un objet automation (comme tu le vois dans le code que je t'ai donné).

Pourquoi le 2ème paramètre AX_PrApi n'est-il pas "convertible en paramètre automation" ?

Là encore, c'est un Pb du WLangage qui ne va pas au bout de la conversion.
En effet, comme AX_PrAPI est un Champ ActiveX, il ne va pas plus loin.

Et pourtant le Champ ActiveX prend en charge un contrôle ActiveX...
et un contrôle ActiveX, c'est une sorte de composant ActiveX...
et un composant ActiveX est appelé "objet Automation" dans la terminologie Windevienne...
En théorie, tout ça est compatible... mais pourtant ça ne fonctionne pas.

Bref, il y a une issue de secours, à savoir, référencer le contrôle ActiveX au moyen d'un objet automation, avant de le passer à la méthode "Run" de "MSScriptControl.ScriptControl" .

Un conseil

Si la méthode GetRfidFileB est appelée de nombreuses fois par l'application, alors il est préférable de créer le VBScript à l'initialisation du projet, pour éviter la surcharge de travail inutile à chaque création/ libération d'instance du contrôle ActiveX "MSScriptControl.ScriptControl".

C'est pourquoi j'ai repris ton code en faisant l'hypothèse que le VBScript est créé dans le traitement de déclaration d'une collection de procédures.

Le 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
 
 
--- Déclaration de la collection de procédures
 
oScript est un objet Automation "MSScriptControl.ScriptControl" 
 
sScript est une chaîne = [
 
	PUBLIC FUNCTION Wrapper_GetRfidFileB(oAX, ByVal card, ByVal file_id, ByRef bResult)
	Dim data
	bResult = oAX.GetRfidFileB(card, file_id, data)
	Wrapper_GetRfidFileB = data
	END FUNCTION
 
]
 
QUAND EXCEPTION DANS
	oScript>>Language("VBScript")
	oScript>>Reset
	oScript>>AddCode(sScript)
	oScript>>Timeout(-1) // pas de timeout
 
FAIRE
	Erreur("Erreur initialisation ScriptControl",ExceptionInfo(errInfo),ExceptionInfo(errMessage))
	oScript = null
 
	// il faut prévoir une gestion d'erreur plus complète...
FIN

[EDIT] Je me suis permis de retoucher ton code dont l'enchaînement de la logique conditionnelle me semblait bizarre. [/EDIT]

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 
 
--- Procédure TraiterRFID
 
PROCEDURE TraiterRFID()
LOCAL
	sCardName 	est une chaîne UNICODE
	oPRApiControl 	est un objet automation dynamique
	vData 		est un Variant
	bAttention 	est un booléen
	sMrz 		est une chaîne
	bRFIOk 		est un booléen = False
	bRésultat	est un booléen
 
// On vérifie si une puce RFID est présente
SI AX_PrApi>>GetRfidCardList() > 0 ALORS
	// On récupère l'ID de la puce RFID
	bRFIOk = AX_PrApi>>GetRfidCard(0, sCardName)
 
	SI bRFIOk ALORS
		// On connecte la variable ScardName à la puce RFID
		bRFIOk = AX_PrApi>>ConnectRfidCard(sCardName)
	FIN
FIN
 
SI bRFIOk ALORS
 
	// référencer le contrôle ActiveX pour l'utiliser comme objet automation
	oPRApiControl = AX_PrApi
 
	QUAND EXCEPTION DANS
		vData = oScript>>Run("Wrapper_GetRfidFileB",oPRApiControl,sCardName,PRTypes.PR_RFID_EF_COM,bRésultat)
 
	FAIRE
		Erreur("Erreur exécution ScriptControl",ExceptionInfo(errInfo),ExceptionInfo(errMessage))
				RENVOYER Faux
	FIN
 
	SI bRésultat ALORS 
		AX_PrDoc>>Document = AX_PrApi>>ResolveRfidData(vData)
 
		bAttention = AX_PrApi>>GetErrorCode <> GXError.GX_EACCES
 
		SI bAttention ALORS
			Trace("Erreur")
		SINON
			Trace("Fait le BAC")
 
			// On récupère la MRZ
			sMrz = 	AX_PrDoc>>Field(PRDocTypes.PR_DF_MRZ1) + RC + 
				AX_PrDoc>>Field(PRDocTypes.PR_DF_MRZ2) + RC + 
				AX_PrDoc>>Field(PRDocTypes.PR_DF_MRZ3)
 
			SI PAS AX_PrApi>>MakeBAC(sCardName, sMrz) ALORS
				Erreur("Impossible de faire le MakeBac")
			FIN
 
			Trace("RFID Surname : " + AX_PrDoc>>Field(PRDocTypes.PR_DF_SURNAME))
 
		FIN
	SINON
		Erreur("GetRfidFileB")
	FIN
 
FIN

**thierrybatlle** · 30/04/2013, 16h47

Bonjour,

A la ligne 31 j'ai toujours faux pour la valeur bRésultat.

Je n'arrive pas à voir pourquoi.

Merci bien.

**WDKyle** · 24/08/2013, 12h57

Bonjour,

Je me permet de remonter ce topic, je suis dans la même impasse avec cette erreur :

Code :

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

1
2
3
4
 
Erreur à la ligne 8 du traitement Clic sur BTN_Connect.
Vous avez appelé la méthode Automation 'Connect'.
Le paramètre 4 n'est pas convertible en paramètre automation.

Avez-vous trouvé une solution depuis ?

Merci.

définition de variables

WinDev

Discussions similaires

Partager

Partager