[WD17] Passage de paramètres et variants

[thierrybatlle]

Bonjour à tous,

J'utilise une méthode "SetRefArray" d'un OCX qui attend un OleVariant, voici l'information que j'ai :

function SetRefArray(Type: String; newValue : OleVariant) : Boolean;
newValue
The input Variant array.

J'ai un exemple Delphi qui est :

Code :

1
2
3
4
5
6
7
8
9
10
  frame: Variant;
  frame := VarArrayCreate([0, 7], varVariant);

  frame[0] := 630*16; frame[1] := 450*16;
  frame[2] := 900*16; frame[3] := 450*16;
  frame[4] := 900*16; frame[5] := 530*16;
  frame[6] := 630*16; frame[7] := 530*16;

  gxvar.SetRefArray('I4', frame);

"VarArrayCreate" consiste à construire un nouveau tableau de dimension 8.

Dans mon code j'ai :

Code :

1
2
3
4
5
6
7
8
9
10
11
tabFrame		est un tableau de 8 Variants

tabFrame[1] = 630 * 16; tabFrame[2] = 450 * 16;
tabFrame[3] = 900 * 16; tabFrame[4] = 450 * 16;
tabFrame[5] = 900 * 16; tabFrame[6] = 530 * 16;
tabFrame[7] = 630 * 16; tabFrame[8] = 530 * 16;

vFrame = tabFrame

AX_GXVariant>>SetRefArray("I4", ConstruitVariantAutomation(vFrame))

ou

Code :

1
2
AX_GXVariant>>SetRefArray("I4", ConstruitVariantAutomation(tabFrame))

Cela ne fonctionne pas ...

Si quelqu'un a une idée ?

Merci bien.