définition de variables

Version imprimable

16/04/2013, 14h40
thierrybatlle

définition de variables

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 :

Citation:

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.
16/04/2013, 15h09
OnePoint

Bonjour,

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

:)

Bonjour,

cela ne fonctionne pas.
Voici un bout de code :

Code:

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.

16/04/2013, 17h58
OnePoint
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:

1 2 3 4 data est un Buffer AX_PrApi>>GetRfidFileB(sCardName, PRTypes.PR_RFID_EF_COM,data)
17/04/2013, 09h12
thierrybatlle

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
18/04/2013, 11h46
OnePoint

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. :)
23/04/2013, 09h41
thierrybatlle

1 pièce(s) jointe(s)

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.

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:

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

25/04/2013, 12h29
thierrybatlle

1 pièce(s) jointe(s)

Bonjour,

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

Merci bien.
25/04/2013, 13h46
OnePoint

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.

Citation:

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. :ccool:

Code:

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.

1 pièce(s) jointe(s)

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

Voici mon code :

Code:

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:

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

Citation:

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. :ccool:

Citation:

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. :cry:

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:

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:

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

30/04/2013, 16h47
thierrybatlle

Bonjour,

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

Je n'arrive pas à voir pourquoi.

Merci bien.

Bonjour,

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

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.