Discussion :

[geeksideofme]

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

Code :

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

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

[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

[geeksideofme]

comment acceder aux élements du tableau Variant..?

[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 [].

[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...

[geeksideofme]

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 :

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

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 :

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

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

ça convient??

[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).

[geeksideofme]

Ç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 ...

[Médinoc]

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

[geeksideofme]

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??

[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.

[geeksideofme]

merci
je teste tous ça et vous tiens au courant

[geeksideofme]

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 :

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

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??
    }
 
}

[Médinoc]

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 :

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
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);
}