Discussion :

[jeffS]

Bonjour,

Je me prends la tete depuis 4 jours sur un problemes et j'espere que vous pourrez m'aider!

Je suis en train de créer un objet automation en C++ (une DLL) qui sera appelé de VB. Je n'arrive pas a me passer un tableau d'objets entre VB et C++. Un object simple passe: je déclare mon parametre LPDISPATCH et je recupere mon objet sans probleme. Par contre pour ce qui est d'un tableau d'objet c'est une autre histoire....

Merci de votre aide

Jeff

[farscape]

salut,
quels type d'objets ?
ça m'etonnerait que ça soit compatible.

[Gabrielly]

Salut

Pourquoi ne pas transiter par des VARIANTS ou COleVariant?

Gabrielly

[jeffS]

J'ai crée une classe dérivée de l'interface IDispatch que j'instancie depuis VB.

Pour passer cette classe en tant qu'objet simple, ma fonction C++ prenait comme argument un pointeur IDispatch et j'utilisait COLEDispatchDriver pour accéder a mon objet. Jusque la, aucun problemes.

Maintenant je souhaite passer un tableau de cette classe. J'ai essayer de récupérer le tableau en tant que VARIANT du coté c++, mais bien que j'arrive a retrouver les dimensions du tableau je n'arrive pas a faire quelque chose du contenu...

[Gabrielly]

Montre nous ton code?

Gabrielly

[jeffS]

ok je vous montre deja ce que j ai reussi a faire:

La DLL:

La librairy s'appelle EmosLib
J'ai une classe CEmosDatabase qui est l'object principal
J'ai une classe CEmosSPParams qui est l'object que je vais instancier dans mon code VB et passer a une méthode de CEmosDatabase.

la fonction AcceptSingleArguemnt accepte un objet et le traite en tant que CEmosSPParams:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
void CEmosDatabase::AcceptSingleArgument(LPDISPATCH TestClass) 
{
	CString str1;
	IEmosSPParams p1;
 
	p1.AttachDispatch(TestClass);
 
	str1 = p1.GetParamName();
 
	p1.DetachDispatch();
}

le code idl associé:

Code :

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

void AcceptSingleArgument(IDispatch* TestClass);

Le code VB:

Code :

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

1
2
3
4
5
6
Dim db As New EmosLib.EmosDatabase
Dim MyClass As New EmosLib.EmosSPParams
 
MyClass.ParamName = "TestParamName"
 
Call db.AcceptSingleArgument(MyClass)

Voila pour ce qui marche... Maintenant je souhaite que ma fonction AcceptSingleArgument accepte non pas 1 objet CEmosSPParams mais un tableau de cet objet (suite au prochain post...)

[jeffS]

le code VB devient donc:

Code :

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

1
2
3
4
5
6
Dim MyClass(1 To 2) As New EmosLib.EmosSPParams
 
MyClass(1).ParamName = "TestParamName1"
MyClass(2).ParamName = "TestParamName2"
 
Call db.AcceptMultipleArguments(MyClass)

Et voila ce que j'ai essayé du coté de la DLL:

code idl:

Code :

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

void AcceptMultipleArguments(VARIANT TestClass);

la fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
void CEmosDatabase::AcceptMultipleArguments(const VARIANT FAR& TestClass) 
{
	if( TestClass.vt & VT_ARRAY )
	{
		long l_ubound, l_lbound;
 
		SafeArrayGetUBound(TestClass.parray,1,&l_ubound);
		SafeArrayGetLBound(TestClass.parray,1,&l_lbound);
 
 ...
	}
}

C'est le plus loin que j'ai pu aller... les valeurs l_ubound et l_lbound sont bonnes mais je ne sais pas quoi faire avec le TestClass.parray pour récupérer mes objets... (du moins sans que ca plante )
(bis )

[jeffS]

je le saurais pour la prochaine fois

[Rely]

En il faut utiliser "SafeArrayAccessData" et "CCmdTarget::FromIDispatch" pour avoir accès aux élément

ça donne

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
 
void CEmosDatabase::AcceptMultipleArguments(const VARIANT FAR& TestClass) 
{
	if( TestClass.vt & VT_ARRAY ) { 
      long l_ubound, l_lbound; 
 
      SafeArrayGetUBound(TestClass.parray,1,&l_ubound); 
      SafeArrayGetLBound(TestClass.parray,1,&l_lbound); 
 
	  LPDISPATCH HUGEP *pDElts;
	  CEmosSPParams * pDElt;
 
	  SafeArrayAccessData((SAFEARRAY FAR*) TestClass.byref, (void HUGEP* FAR*)&pDElts);
 
	  for(int i = l_ubound; i<=l_lbound;i++) {
 
		  pDElt = (CEmosSPParams * )CCmdTarget::FromIDispatch(pDElts[i]);
		  /* Utiliser pDElt */
	  }
 
	  SafeArrayUnaccessData((SAFEARRAY FAR*) TestClass.byref);
 
   } 
 
}

[Rely]

Non plutôt!

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
 
void CEmosDatabase::AcceptMultipleArguments(const VARIANT FAR& TestClass) 
{ 
   if( TestClass.vt & VT_ARRAY ) { 
      long l_ubound, l_lbound; 
 
      SafeArrayGetUBound(TestClass.parray,1,&l_ubound); 
      SafeArrayGetLBound(TestClass.parray,1,&l_lbound); 
 
     LPDISPATCH HUGEP *pDElts; 
     IEmosSPParams  P; 
 
     SafeArrayAccessData((SAFEARRAY FAR*) TestClass.byref, (void HUGEP* FAR*)&pDElts); 
 
     for(int i = l_ubound; i<=l_lbound;i++) { 
 
        P.AttachDispatch((pDElts[i]); 
        str1 = P.GetParamName(); 
        (...)
        P.DetachDispatch();  
     } 
 
     SafeArrayUnaccessData((SAFEARRAY FAR*) TestClass.byref); 
 
   } 
 
}