Passage de tableaux

Version imprimable

30/11/2004, 17h58
jeffS

Passage de tableaux

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
30/11/2004, 18h07
farscape

salut,
quels type d'objets ?
ça m'etonnerait que ça soit compatible.
:D
30/11/2004, 18h21
Gabrielly

Salut

Pourquoi ne pas transiter par des VARIANTS ou COleVariant?

Gabrielly :wink:
30/11/2004, 18h49
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...
30/11/2004, 18h52
Gabrielly

Montre nous ton code?

Gabrielly :D

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:

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:

void AcceptSingleArgument(IDispatch* TestClass);

Le code VB:
Code:

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

:tagcode:

le code VB devient donc:
Code:

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:

void AcceptMultipleArguments(VARIANT TestClass);

la fonction:
Code:

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 :D )
:tagcode: (bis :D )

01/12/2004, 11h02
jeffS

je le saurais pour la prochaine fois :)

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

ça donne

Code:

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

Non plutôt!

Code:

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