Discussion :

[awane]

Bonjour,

Dans une discution anterieur j'avais évoquer le sujet de la fonction ActiveXEvénement dans laquel j'appel un évenement comme suit:
ActiveXEvénement("Ma_Pocedure",ActiveX,"EventNewValue")

L'évenement de cette activex :

Code :

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

1
2
3
4
5
6
7
void EventNewValue(
Long NbItems
Variant TabItemName
Variant Value
Variant Quality
Variant TimeStamp
)

Hegro m'a proposé de ne pas typer les parametres :
Ma_Pocedure(NbItems,TabItemName,...) dans ma procedure pour pouvoir exploiter les varibles par la suite.

Le problème que j'ai maintenant c'est que la variable "Value" contient un tableau de booleens et que je n'arrive pas à récuperer.


J'ai utilisé la syntaxe:

Code :

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

1
2
3
TabBool est tableu de 100 booleens
TabBool=Value
Info(TabBool[1],TabBool[2],.....TabBool[n])

Mais j'ai toujours cette erreur "le tableau ne peut pas être utiliser car il n'est pas initailisé"

J'ai utilisé aussi cette syntaxe:

Code :

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

1
2
3
TabBool est un Variant
TabBool=Value
Info(TabBool[1],TabBool[2],.....TabBool[n])

L'erreur c'est qu' on ne peut pas écrire Variant[]

Alors je me dérige vers vous pour m'aider à resoudre ce problème

[hegros]

salut,

Normalement tu dois pouvoir convertir ce variant pour le type qui va bien avec la fonction ConvertiVariant il me semble (regarde l'aide)

Je pourrais t'en dire plus demain sinon.

[awane]

Bonjour Hegros,

Avaec VariantConverti sur windev, on peut convertir que des variables simples et ne pas des complexes. C'est mon cas, car mon variant contient un tableau de boolèens.

J'ai essayé cette syntaxe:

Code :

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

1
2
3
4
 
 
TabBool est un tableau de 100 boolèens
TabBool = VariantConverti(Value)

Mais toujours la même erreur "type incompatible durant l'affectation"

Alors je ne sais qui faire

[Louis Griffont]

A mon avis il faut que tu déclares Value en tableau dynamique de 100 booleens

[awane]

MERCI kwasin pour ta reponse,

Le soucci c'est que Value on ne doit pas le typer car c'est un paramètre de l'événement de l'activex.
Donc si j utilise ta solution je ne peut plus détecter cette évenement.

[awane]

Je n'arrive tjr pas à récuperer ce tableu dans le variant.
D'apprés la documentation (Ci-joint)

Value est un Variant de type tableau de Variants.
Pour pouvoir récupérer des variables simples stockées dans "Value",il n'y a pas de problème, mais qand il s'agit d'un tableau , c'est là ou ça se complique
Voilà un morceau du code exact que j'utilse, sachant que je connais à l'avance les valeurs des variables que je doit lire (Forçage dans l'automate)

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
 
PROCEDURE Surveillance(NbItems,TabItemName,Value,Quality,TimeStamp)
Tab_Def  est un entier
AffichOK est un booléen
pos est un tableau de 2 entiers sur 1 octet
vTab_Def0 est un tableau de 64 variants
index est un entier
 
 
POUR index=1 A NbItems
 
    SELON TabItemName[index]
 
	CAS "OPC.Infos.Bit_ResultOK" : AffichOK=Value[index]  // Récuperation                     
                                                                                     Sans problème
 
        CAS "OPC.PositionVar.Pos_PFAIBLE": pos[1]=Value[index]//Récuperation                     
                                                                                     Sans problème
 
	CAS "OPC.PositionVar.Pos_PFORT": pos[2]=Value[index] // Récuperation                     
                                                                                     Sans problème
 
        CAS  "OPC.Defauts.essai" :
 
		SI Value[index]<>Null ALORS //Récuperation  Impossible                                                                                             
		Tab_Def=Value[index]
		Info(VariantConvertit(Tab_Def0[1],Tab_Def0[2],Tab_Def0[3])
		FIN
    FIN
 
FIN

Alors aider moi svp ,,, je ne sais plus ou je suis

[hegros]

Salut,

Je ne peux pas lire ton document pas de word Tu peux le mettre au format RTF ?


Sinonn tu peux aussi montrer comment tu charges ta configuration et comment tu initialises ton activeX


Nota :

En windev on ne peut pas typer les paramètres de type tableau (faire F1)

Code :

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

1
2
PROCEDURE MaFonction(PListeClient est un tableau de 10 chaine) //ne compile pas
PROCEDURE MaFonction(PListeClient est un tableau dynamique) //ne compile pas

auquel cas on utilisera typevar qui permet d'identifier le type de paramètre

[hegros]

Quel est le message d'erreur que tu as aujourd'hui ?

Je viens de regarder et en fait je recopie comme cela les valeurs du tableau Value

Code :

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

1
2
3
 
SELON ExtraitChaîne(TabItemName[i],5,".")
   CAS Majuscule("In_yvrempr1_ouv") : table_entreesTOR[1]=Value[i]

table_entreesTOR est un tableau de booleen

Il faut que tu regardes aussi la quality du message <192 c'est pas bon(voir la doc)

[awane]

Merci hegros pour tes efforts.
Ces lignes de code je les utilise déja pour récuperer la valeur d'une seule entrée TOR par exemple. Mais il y le cas ou J'ai 300 entrées TOR et cela ça va faire boucoup de lignes :

Code :

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

1
2
3
4
5
6
7
8
9

SELON ExtraitChaîne(TabItemName[i],5,".")

   CAS "Entrée1" : table_entreesTOR[1]=Value[i]
   CAS "Entrée2" : table_entreesTOR[2]=Value[i]
   CAS "Entrée3" : table_entreesTOR[3]=Value[i]
      ........
   CAS "Entrée300" : table_entreesTOR[300]=Value[i] // ça fait bcp

Alors les gens d'Applicom ont mis en place une déclaration d'un tableau de booléens dans l'activex qui une seule variabe genre EntréesTor_x_n:

EntréesTor_x_n : (VT_ARRAY|VT_Bool) sera stocké dans l'un des Value[i].
x : adresse de la première entrée à lire
n : nombre des entrées à lire
Je m' explique : Value[i] = {EntréesTor_1, EntréesTor_2,....EntréesTor_300}.

En visual basic on peut écrire sans problème:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Dim table_entreesTOR  As Variant
Dim Tabrécup(1 to 300)  As bool
 
    table_entreesTOR = Value[i]
 
    For i = 1 To 300
         Tabrécup(i) = table_entreesTOR(i)
    Next i

Mais cette syntaxe ne marche pas en windev??????

[routmout]

Tu as regarder si dans ton champ activeX tu avais bien parametré ton activeX grace a propriété ??
Si tu veut de l'aide, j'ai deja gérer un activeX pour etre en relation avec une badgeuse et en récupéré des infos.

[routmout]

Je n'arrive pas a voir ton document word.
Ton activeX coporte des descriptions et fonctions
Donc dans ta procédure du doit faire appel a ton champActiveX que tu as préalablement déclaré

exemple:
Mon_activeX>>[description][(paramètre)]
//Il suffit d'utiliser la syntaxe Automation du W-Langage

Il devrait a se moment la te retourner une ou plusieurs valeur que tu pourrai inserer dans ton tabelau