Discussion :

[monmien]

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 :

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

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 :

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

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 :

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

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

devient bien en delphi

Code :

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

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

Merci d'avance

[Paul TOTH]

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

Code :

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

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

[monmien]

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

Code :

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

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é

[Paul TOTH]

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

Code :

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

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

[monmien]

La declaration en C++ est comme ca:

Code :

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

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

[Paul TOTH]

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

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

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 ?

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

[Paul TOTH]

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

[monmien]

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