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