Passage d'une interface en paramètre de méthode COM

**sylvain.cool** · 15/04/2008, 17h11

Bonjour,

Voila mon problème :

J'ai un objet DCOM appelé "Enveloppe". Il a une propriété "ComplexClass" qui est un autre objet DCOM. On peut accéder à cette propriété via 2 accesseurs :

Code :

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

1
2
3
 
  STDMETHOD(get_MyComplexClass(ComplexClass** Value));
  STDMETHOD(set_MyComplexClass(ComplexClass* Value));

J'arrive à utiliser le set comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
TCOMIComplexClass CC = CoComplexClass::Create();
 
// ... mise a jour de varialbes a l'interieur de CC
 
// On créé l'objet distant
TCOMIEnveloppe serveur;
 
serveur = CoEnveloppe::CreateRemote(L"10.167.20.154"); 
 
// on set la ComplexClass dans l'objet distant
reponse = serveur.set_MyComplexClass((ComplexClass*)CC );

J'ai vérifié, ça marche nickel !

Mais je n'arrive pas utiliser le get.
J'essaie comme ca:

Code :

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

1
2
3
4
 
TCOMIComplexClass * CCptr = new TCOMIComplexClass;
 
reponse = serveur.get_MyComplexClass( (ComplexClass**) CCptr );

Mais ça ne marche pas. Je pense qu'il faut appeler le méthode "create" comme pour créer CC dans le code au-dessus.

Du coup j'ai essayé ça:

Code :

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

1
2
3
4
5
 
TCOMIComplexClass * CCptr;
CCptr = (TCOMIComplexClass *)&CC;
 
reponse = serveur.get_MyComplexClass( (ComplexClass**) CCptr );

Là, il plante à la seconde ligne. Quand il essaie de prendre l'adresse de CC.

De même avec:

Code :

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

1
2
3
4
 
TCOMIComplexClass CC2 = CoComplexClass::Create();
 
reponse = serveur.get_MyComplexClass( (ComplexClass**) &CC2 );

Quelqu'un a-t-il une idée?
Pourquoi il ne veut pas que je passe l'adresse de l'interface?
Comment résoudre le problème?

Merci d'avance pour toute vos réponses

**Médinoc** · 16/04/2008, 09h40

En fait, le problème majeur est donc que tu as du mal à interfacer un pointeur intelligent COM fourni par ton EDI avec une méthode qui retourne un pointeur bête...

À ta place, j'essaierais deux choses:

L'utilisation "normale" du pointeur intelligent:

Code C++ :

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

1
2
TCOMIComplexClass CC2;
reponse = serveur.get_MyComplexClass( &CC2 );

L'utilisation d'un pointeur bête intermédiaire:

Code C++ :

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

1
2
3
4
5
6
7
TCOMIComplexClass CC2;
{
	ComplexClass *p=NULL;
	reponse = serveur.get_MyComplexClass( &p );
	CC2 = TCOMIComplexClass(p);
	//NOTE: Voir dans la doc des pointeurs intelligents de ton système pour savoir 	s'il faut faire p->Release() ou non.
}

**Médinoc** · 16/04/2008, 09h50

PS: D'où te viennent ces classes de pointeurs intelligents ?
C'est du Borland ?

**sylvain.cool** · 16/04/2008, 10h44

Oui, c'est du Borland.

**sylvain.cool** · 16/04/2008, 10h46

En fait, si je veux utiliser les méthodes de mon interface, il faut que je fasse:

Code :

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

1
2
 
TCOMIComplexClass CC2 = CoComplexClass::Create();

Et pas juste:

Code :

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

1
2
 
TCOMIComplexClass CC2;

Du coup, derrière, il n'accepte plus que je fasse un "&" sur mon objet CC2.

**Médinoc** · 16/04/2008, 11h07

Le problème, c'est que là, il n'y a rien à créer, puisque le pointeur intelligent sera affecté suite au get...

**sylvain.cool** · 16/04/2008, 16h14

Donc en fait, je dois juste envoyer un pointeur et c'est coté serveur que ça se passe.

Donc je fais comme ça coté client:

Code :

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

1
2
3
 
TCOMIComplexClass CC2;
reponse = serveur.get_MyComplexClass( (ComplexClass**)&CC2 );

Et coté serveur, un truc comme ça:

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
 
         // On créé un objet COM
         TCOMIComplexClass * CCptr = new TCOMIComplexClass;
	 *CCptr = CoComplexClass::Create();
 
	 long valeurTmp;
	 LPSTR phraseTmp;
	 LPSAFEARRAY tabTmp;
 
         // NOTE: complexClassImpl contient les données et hérite de l'objet. COM ComplexClass
 
         // On récupère les données contenues dans complexClassImpl 
	 this->complexClassImpl->get_nb(&valeurTmp);  
	 CCptr->set_nb(valeurTmp);
 
	 this->complexClassImpl->get_phrase(&phraseTmp);
	 CCptr->set_phrase(phraseTmp);
 
	 this->complexClassImpl->get_tab(&tabTmp); 
	 CCptr->set_tab(tabTmp); 
 
         // on donne le pointeur à Value
	 Value = (ComplexClass**)(&CCptr);

Mais ça ne marche pas.

Je sors nickel de la fonction, mais je ne peut pas accéder aux données via les get.

**Médinoc** · 16/04/2008, 16h30

En fait, pour ce genre de truc, je te déconseillerais d'utiliser les pointeurs intelligents, car dans tous les cas la propriété doit retourner un pointeur bête.

Ou mieux, fais déplacer la question vers le sous-forum Borland, car je ne connais pas assez les pointeurs intelligents Borland pour t'aider (contrairement aux pointeurs intelligents ATL, MFC ou Visual C++ Compiler COM support).

**sylvain.cool** · 17/04/2008, 10h21

Ouais, mais quand je laisse un message dans le sous-forum Borland, personne ne répond (ce n'est pas une critique du sous-forum, mais un constat).

Sinon, du côté serveur, je fais:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
STDMETHODIMP TEnveloppeImpl::get_MyComplexClass(ComplexClass** Value)
{
  try
  {	 
	 HRESULT reponse;
	 reponse = this->complexClassImpl->CreateInstance(Value);
 
	 if(!SUCCEEDED(reponse))
		switch(reponse){ 
			case REGDB_E_CLASSNOTREG:	
				texte = "...";
				Form1->Memo1->Lines->Add(texte);
				break;
			case E_NOINTERFACE:	
				texte = "...";
				Form1->Memo1->Lines->Add(texte);
				break;
			case CLASS_E_NOAGGREGATION: 	
				texte = "...";
				Form1->Memo1->Lines->Add(texte);
				break; 
			case CO_S_NOTALLINTERFACES: 	
				texte = "...";
				Form1->Memo1->Lines->Add(texte);
				break;
			default:   
				texte = "Reponse inconnue???: 0x";
				AnsiString tmp;
				tmp.IntToHex(reponse,8);
				texte += tmp; 
				Form1->Memo1->Lines->Add(texte);
				break;
	 } 
	 else{ 
		texte = "Location and connection to the specified class object was successful.";
		Form1->Memo1->Lines->Add(texte);
	 }
 
	 long valeurTmp;
	 LPSTR phraseTmp;
 
	 (*Value)->get_nb(&valeurTmp);
	 (*Value)->get_phrase(&phraseTmp);
 
	texte = "Nb: ";
	texte += valeurTmp;
	Form1->Memo1->Lines->Add(texte); 
 
	texte = "Phrase: ";
	AnsiString tmp = phraseTmp;
	texte += tmp;
	Form1->Memo1->Lines->Add(texte); 
  }
  catch(Exception &e)
  {
	return Error(e.Message.c_str(), IID_IEnveloppe);
  }
  return S_OK;
};

CreateInstance me retourne bien une interface.
Mais je n'ai pas les bonnes valeurs (nb et phrase) dans Value.
Par contre, côté client je récupère bien une interface, mais qui contient aussi n'importe quoi.

Du coup je recopie les valeurs dans l'interface:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
STDMETHODIMP TEnveloppeImpl::get_MyComplexClass(ComplexClass** Value)
{
  try
  {	 
	 HRESULT reponse;
	 reponse = this->complexClassImpl->CreateInstance(Value);
 
	 if(!SUCCEEDED(reponse))
		switch(reponse){ 
			case REGDB_E_CLASSNOTREG:	
				texte = "...";
				Form1->Memo1->Lines->Add(texte);
				break;
			case E_NOINTERFACE:	
				texte = "...";
				Form1->Memo1->Lines->Add(texte);
				break;
			case CLASS_E_NOAGGREGATION: 	
				texte = "...";
				Form1->Memo1->Lines->Add(texte);
				break; 
			case CO_S_NOTALLINTERFACES: 	
				texte = "...";
				Form1->Memo1->Lines->Add(texte);
				break;
			default:   
				texte = "Reponse inconnue???: 0x";
				AnsiString tmp;
				tmp.IntToHex(reponse,8);
				texte += tmp; 
				Form1->Memo1->Lines->Add(texte);
				break;
	 } 
	 else{ 
		texte = "Location and connection to the specified class object was successful.";
		Form1->Memo1->Lines->Add(texte);
	 }
 
         // NOTE: cette methode permet de recopier les valeurs de complexClassImpl et les mets dans Value
         this->complexClassImpl->update(Value);
 
	 long valeurTmp;
	 LPSTR phraseTmp;
 
	 (*Value)->get_nb(&valeurTmp);
	 (*Value)->get_phrase(&phraseTmp);
 
	texte = "Nb: ";
	texte += valeurTmp;
	Form1->Memo1->Lines->Add(texte); 
 
	texte = "Phrase: ";
	AnsiString tmp = phraseTmp;
	texte += tmp;
	Form1->Memo1->Lines->Add(texte); 
  }
  catch(Exception &e)
  {
	return Error(e.Message.c_str(), IID_IEnveloppe);
  }
  return S_OK;
};

Le code de update:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
void TComplexClassImpl::update(ComplexClass ** aCopier){
	long valeurTmp;
	LPSTR phraseTmp;
 
	this->get_nb(&valeurTmp);  
	(*aCopier)->set_nb(valeurTmp);
 
	this->get_phrase(&phraseTmp);
	(*aCopier)->set_phrase(phraseTmp);
}

Si je fais ça, j'ai les bonnes valeurs dans Value, mais coté serveur. Quand je reviens coté client, l'interface n'est plus bonne et je ne peux pas accéder au gets.

Une idée?

**Médinoc** · 17/04/2008, 10h46

Euh, qu'est-ce que tu espères avoir dans nb et phrase, alors que tu viens tout juste de créer l'objet?

PS: As-tu un fichier .idl aussi? Les "sens" des pointeurs sont-ils bien réglés ? (au cas où il y aurait du marshalling).

**sylvain.cool** · 17/04/2008, 10h58

En fait, l'objet "this->complexClassImpl" contient plusieurs propriétés, dont nb et phrase. Ces propriétés ont été mise à jour précédemment par le programme.

En fait, je créé un objet COM côté client.
Je l'envoi coté serveur via un set_MyComplexClass(ComplexClass*).
ComplexClass est le nom d'une CoClass décrite en IDL.
set_MyComplexClass est une méthode d'un autre objet COM.

Une fois l'objet mis à jour coté serveur, je vérifie que j'ai les bonnes valeurs et fait un traitement dessus.

Ensuite, je cherche à récupérer cet objet via get_MyComplexClass(ComplexClass**).
Le paramètre est bien définit en output (double pointeur contrairement au set).

Du coup, en faisant this->complexClassImpl->CreateInstance, j'espere recuperer une interface sur this->complexClassImpl qui contiennt deja les bonnes valeurs.

Mais l'interface retournée ne contient pas ces valeurs.
Et si je les recopient, je n'ai plus d'interface coté client. La methode get_MyComplexClass retourne l'erreur:

Code :

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

1
2
 
L accès à cet emplacement mémoire n est pas valide.

Dans le cas où je ne recopie rien, je n'ai pas d'erreur (et pas les bonnes valeurs).

**sylvain.cool** · 18/04/2008, 14h15

Quand je fais:

Code :

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

1
2
 
complexClassImpl->CreateInstance(Value);

L'interface retourné dans Value ne pointe-t-elle pas sur la structure complexClassImpl (qui contient déjà des valeurs)?

apparemment non, mais peut-être ai-je mal fais quelque chose.

Passage d'une interface en paramètre de méthode COM

C++

Discussions similaires

Partager

Partager