Type VARIANT depuis vba

Version imprimable

bonjour,
j'ai une dll c++ qui reçcoit depuis vba un VARIANT (tableau(2,n) hetérogène:vba.Date et double )
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 #include <wtypes.h> // pour DATE #include <oaidl.h> // pour VARIANT DllExport double __stdcall MyFunction(VARIANT * MyArray) { std::map<DATE, double> MyMap; for(int cpt=0; cpt<n;cpt++) { // comment vider MyArray dans MyMap?? } }
y'a-t-il des cast à faire?
merci d'avance

14/10/2009, 20h18
JulienDuSud

Des cast, certainement.

Le type Variant de VB et de C++ sont les mêmes, tu peux les passer l'un à l'autre et les utiliser directement. Il faut que tu fasses le cast au type correct une fois que tu as récupéré le type.

Par contre je comprend pas ce que tu veux dire avec balancer ton Variant dans un map ? oO
14/10/2009, 20h25
geeksideofme

comment acceder aux élements du tableau Variant..?
14/10/2009, 20h51
JulienDuSud

Ah parce que VARIANT *, c'est un pointeur vers un tableau ? (je savais pas qu'on pouvait faire passer des pointeurs en VB d'ailleurs).

Tu dois alors aussi faire passer la taille du tableau.

Après, tu récupères chaque élément en déréférencant le tableau avec l' opérateur [].
15/10/2009, 10h48
Médinoc

Attends, si c'est un vrai tableau VB, ce n'est pas un simple pointeur, et le type du paramètre ne devrait pas être VARIANT mais SAFEARRAY*.

En fait, il faut surtout voir comment la fonction est déclarée en VB et comment elle est appelée...

Citation:

Envoyé par Médinoc

Attends, si c'est un vrai tableau VB, ce n'est pas un simple pointeur, et le type du paramètre ne devrait pas être VARIANT mais SAFEARRAY*.

En fait, il faut surtout voir comment la fonction est déclarée en VB et comment elle est appelée...

effectivement, SAFEARRAY semble mieux adaptée
Code:

1 2 3 4 5 6 7 8 9 Public Declare Function Myfunction Lib "MyLibrary.dll" (ByRef Myarray() As Variant) As Double //puis Sub Test() Dim MyArray(50,2) as Variant Dim res As Double //remplissage du tableau res = Myfunction (MyArray) End Sub
du coup
Code:

1 2 3 4 extern "C" __declspec(dllexport) double __stdcall MyFunction(SAFEARRAY ** MyArray) { // ??? }
ça convient??

15/10/2009, 11h51
Médinoc

Ça m'en a tout l'air: Il s'agit d'un SAFEARRAY de VARIANT (donc, pour le C et le C++, un SAFEARRAY*) passé par référence (d'où la seconde astérisque).
15/10/2009, 11h53
geeksideofme

Citation:

Envoyé par Médinoc

Ça m'en a tout l'air: Il s'agit d'un SAFEARRAY de VARIANT (donc, pour le C et le C++, un SAFEARRAY*) passé par référence (d'où la seconde astérisque).

je sait pas encore comment acceder aux élements du SAFEARRAY.
je cherche ...
15/10/2009, 11h55
Médinoc

Il y a des fonctions pour ça, du genre SafeArrayGetElement().
15/10/2009, 12h01
geeksideofme

Citation:

Envoyé par Médinoc

Il y a des fonctions pour ça, du genre SafeArrayGetElement().

oui je viens de voir..
sinon une autre question: je ne suis pas sure (dans le vb) du passage en paramètre du tableau (juste le nom). En fait pour un tableau unidimentionnel, je passait le premier élément (MyArray(0))...est-ce toujours le cas??
15/10/2009, 12h07
Médinoc

Passer le premier élément par référence est un raccourci (que je ne recommande pas) pour passer un tableau à une fonction C/C++ sans avoir à s'occuper du SAFEARRAY.

Passer le tableau lui-même passe systématiquement un SAFEARRAY* (ou un SAFEARRAY** si le tableau lui-même est passé par référence).

En clair, dans un cas, tu passes vraiment le tableau lui-même, dans l'autre cas tu triches.
Et je déconseille vivement d'essayer de tricher avec un tableau multidimensionnel.
15/10/2009, 13h36
geeksideofme

merci
je teste tous ça et vous tiens au courant

Je n'arrive toujours pas à savoir comment accéder aux élément de tableau.
le problème est qu'il y a deux dimensions et de types différents
Code:

1 2 3 4 5 6 7 8 9 10 extern "C" __declspec(dllexport) double __stdcall MyFunction(SAFEARRAY ** MyArray) { std::map<DATE, double> MyMap; for(int cpt=0; cpt<n;cpt++) { // comment vider MyArray dans MyMap?? } }

En fait, il n'y a qu'un seul type: VARIANT. Ce sont les variants en question qui contiennent deux types différents.

Si tu veux l'élément (49, 1) du tableau, il te faudra un code de ce genre:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 extern "C" __declspec(dllexport) double __stdcall MyFunction(SAFEARRAY ** refArray) { VARIANT var; long indices[2]; HRESULT hr; VariantInit(&var); indices[0] = 49; indices[1] = 1; hr = SafeArrayGetElement(*MyArray, indices, &var); /*Travail sur le variant récupéré*/ /* ... */ VariantClear(&var); }