Discussion :

[sanawnaw]

salut
petite question
ext ce que je peux remplacer CoCreateInstance par new pour créer une instance dans C++?

qd je l'utilise

Code :

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

1
2
3
4
 
	Emulation *pEmul;
 
	pEmul=new Emulation();

ça me génère une erreure
merci d'avance

[ram-0000]

CoCreateInstance sert à créer un objet au sens COM/DCOM du terme
new sert à créer un objet au sens C++/Objet du terme

Ce n'est pas du tout la même chose donc non, tu ne peux pas

[yan]

CoCreateInstance sert à créer un objet au sens COM/DCOM du terme
new sert à créer un objet au sens C++/Objet du terme

Ce n'est pas du tout la même chose donc non, tu ne peux pas

+1

[sanawnaw]

salut
bah le pb c'est ke moi je veux créer un objet COM
g créer l'objet "Emulation" d un prog C++

Code :

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

1
2
3
4
5
6
7
8
 
HRESULT hr = CoInitialize(NULL);
 
	Emulation *pEmul ;
 
//	pEmul=new Emulation();
 
hr = CoCreateInstance(CLSID_Emulation, NULL, CLSCTX_INPROC_SERVER, __uuidof(IEmulation),(LPVOID *) &pEmul );

et puis je l'ai appelé depuis VB et ç là ke ça plante voici le code vb

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
 
Set objWMAObject = CreateObject("test2.Application")
 Dim i As Long
 
   i = 0
   objWMAObject.test (5)
 
   Do
        i = i + 1
       Set objWMAEmul = objWMAObject.Emul
        MsgBox (objWMAEmul.xxx)
 
        Set objWMAEmul = Nothing
 
  Loop Until i = 5

et ça plane au niveau de la deuxième iteration

merci d'avance

[Médinoc]

Tu ne nous en dit pas assez.

De plus, ton pointeur est de type Emulation alors que tu demandes une IEmulation...

J'ignore comment est implémentée ta classe COM, mais:

• Le client ne devrait même pas connaître le type Emulation
• Si la classe COM est implémentée par la technique des classes C++ imbriquées, tu vas droit dans le décor.

[sanawnaw]

bah oui
la classe COM est implémentée par des classes C++ imbriquées
g en fait un objet Application qui est le début et au sein g Emulation

Code :

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

1
2
3
4
5
6
STDMETHODIMP Application::get_Emul(IEmulation **pVal)
{
	*pVal=Emul;
	return S_OK;
}

en fait g mnt utilisé creataInstance au lieur de coCrezateInstance et le trus des 3 niveaus marche bien en VB

Code :

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

1
2
 
MsgBox (objWMAObject.Emul.xxx)

mais en fait qd j'ajoute le set ds la boucle ça se plante par ce ke moi je veux créer plusieurs " objWMAObject.Emul.xxx"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Do
        i = i + 1
 
      Set objWMAEmul = objWMAObject.Emul
 
       MsgBox (objWMAObject.Emul.xxx)
 
       ' Set objWMAEmul = Nothing
 
  Loop Until i = 5

Merci bcp