Interface et conversion C++ vers Delphi

Bonjour, j'essaie d'adapter un code C++ en delphi, c'est un code pour un objet com.

Première question:
J'ai traduit ce code en c++:

Code:

---

1 2 3 4 5 6

IApplication* pApp = NULL; hr = CoCreateInstance( clsid, NULL, CLSCTX_ALL, idIapp,(LPVOID*)&pApp );   IEngine* pEng; hr = pApp->CreateEngine( kCrnEngIdMain, &pEng );

---

par

Code:

---

1 2 3 4 5 6

pApp :=nil ; hr := CoCreateInstance( clsid, nil, CLSCTX_ALL,idIapp, pApp ); pEng:=nil;   hr:= pApp.CreateEngine(kCrnEngIdMain,pEng);

---

pApp etant déclaré ainsi : pApp:IApplication et pEng:IEngine

Au debut j'avais declaré pApp ainsi: pApp:^IApplication
mais j'obtenais une exception lors de l'appel de pApp^.CreateEngine.

Quelqu'un peut me confirmer que je m'emmêle pas dans les conversions de pointeurs ?

Seconde question :)
Il faut bien sur que je convertisse les interfaces, est ce que

Code:

---

1 2 3

virtual HRESULT __stdcall CreateEngine ( /*[in]*/ long EngId, /*[out,retval]*/ struct IEngine * * pTask ) = 0;

---

devient bien en delphi

Code:

---

function CreateEngine(EngId: Integer; out Engine:IEngine): HResult;safecall;

---

Merci d'avance :)

alors une interface sous delphi est un pointeur sur un pointer vers une table de méthodes :)

Code:

---

1 2 3 4 5 6 7 8 9

type IUnknown=^PUnknown; PUnknown=^TUnknown; TUnknow=record QueryInterface=function(const Self:IUnknown; const IID:TGUID; out obj):integer; stdcall; AddRef:function(const Self:IUnknown):integer; stdcall; Release:function(const Self:IUnknown):integer; stdcall; end;

---

c'est ce qu'on doit retrouver dans "struct IEngine * * pTask"...si IEgnine est une structure, "* *" de celle-ci est bien une interface à la Delphi.

le problème c'est que le paramètre "out" est passé par référence, ce qui en C ce traduit par une étoile de plus...du coup j'ai un doute :D

mon interface Iapplication et Iengine sont declarés comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9

IApplication = interface(IDispatch) ['{10000001-1000-0002-AEB4-0000E80C11B9}'] function CreateEngine(EngId: Integer;out Engine:IEngine): HResult;safecall; end;   IEngine = interface(IDispatch) ['{10000001-1007-0002-AEB4-0000E80C11B9}'] end;

---

Ca equivaut a la definition en struct ou pas ? Suis un poil paumé :D

comme je te l'ai dis plus haut ta déclaration est équivalente à celle ci

Code:

---

1 2 3 4 5 6 7 8

type IApplication=^PApplication; PApplication=^TApplication; // attention ! pas celle de Forms.pas ! TApplication=record Disptach:TDispatch; CreateEngine:function (const Self:IApplication; EngId: Integer;out Engine:IEngine): HResult;safecall; end,

---

ce qui faut regarder c'est comment IApplication est déclaré dans le code C :D

La declaration en C++ est comme ca:

Code:

---

1 2 3 4 5 6 7 8

struct __declspec(uuid("10000001-1000-0002-aeb4-0000e80c11b9")) IApplication : IDispatch {   virtual HRESULT __stdcall CreateEngine (   /*[in]*/ long EngId,   /*[out,retval]*/ struct IEngine * * pTask ) = 0; }

---

Ce que je capte pas dans ton code c'est qu'il y'a pas de GUID or j'en ai besoin pour invoquer l'objet com correpondant

ouais ben je suis pas assez bon en C++ pour comprendre cette déclaration :mouarf:

non mais mon code c'est juste une façon de présenter la structure interne des interfaces, IL NE FAUT PAS L'UTILISER :D j'aurais pu faire la même démonstration sur les classes Delphi et leur représentation mémoire via des record :D

le GUID est associé à l'interface dans le langage de programmation, mais il ne fait pas partie de l'interface au niveau interne en fait :)

enfin tout cela pour dire que ton code me parait bon (donc pas de"^" devant les interfaces)...mais fonctionne-t-il ? :D

le CoCreateInstance me renvoit bien quelque chose, j'arrive a appeler la fonction CreateEngine met elle retourne un code d'erreur et l'objet engine qu'elle renvoit plante si j'utilise une de ses methodes.
Du coup je sais pas trop ou se situe mon erreur, si c'est au niveau du Iapplication ou du Iengine.

Citation:

---

Envoyé par monmien

le CoCreateInstance me renvoit bien quelque chose, j'arrive a appeler la fonction CreateEngine met elle retourne un code d'erreur et l'objet engine qu'elle renvoit plante si j'utilise une de ses methodes.
Du coup je sais pas trop ou se situe mon erreur, si c'est au niveau du Iapplication ou du Iengine.

---

ah mais au fait ! IDispatch c'est donc une dispinterface :D

Finallement ca marche comme ca sans pointeur...
Juste un truc un peu zarb, je suis obliger de mettre des sleep(500) entre certaines fonctions sinon ca plante...
Par contre j'ai a chaque fois une erreur en sortie avec le CoUninitialize qui fait pouet...