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

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:

---

1 2 3

STDMETHOD(get_MyComplexClass(ComplexClass** Value)); STDMETHOD(set_MyComplexClass(ComplexClass* Value));

---

J'arrive à utiliser le set comme ceci:

Code:

---

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:

---

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:

---

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:

---

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

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:

1. L'utilisation "normale" du pointeur intelligent:
   
   Code:

   ---

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

   ---

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

   ---

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

   ---

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

Oui, c'est du Borland.

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

Code:

---

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

---

Et pas juste:

Code:

---

1 2	TCOMIComplexClass CC2;

---

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

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

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:

---

1 2 3

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

---

Et coté serveur, un truc comme ça:

Code:

---

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.

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

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:

---

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:

---

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:

---

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?

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

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:

---

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

Quand je fais:

Code:

---

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.