Discussion :

[lil_jam63]

Bonjour, je suis en train de convertir une dll C++ en Delphi et j'avoue que j'ai un peu de mal, notemment avec cette partie:

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
 
CComModule _Module;
 
BEGIN_OBJECT_MAP(ObjectMap)
OBJECT_ENTRY(CLSID_RemoteWMP, CRemoteWMP)
END_OBJECT_MAP()
 
/////////////////////////////////////////////////////////////////////////////
// DLL Entry Point
 
extern "C"
BOOL WINAPI DllMain(HINSTANCE hInstance, DWORD dwReason, LPVOID /*lpReserved*/)
{
    if (dwReason == DLL_PROCESS_ATTACH)
    {
        _Module.Init(ObjectMap, hInstance);
        DisableThreadLibraryCalls(hInstance);
    }
    else if (dwReason == DLL_PROCESS_DETACH)
        _Module.Term();
    return TRUE;    // ok
}

C'est le point d'entrée de la Dll, _Module est de type CComModule.

Voilà ma convertion pour l'instant

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
 
function DllEntry(dwReason: DWord): boolean;
begin
  if (dwReason = DLL_PROCESS_ATTACH) then
    begin
        _Module.Init(ObjectMap, hInstance);
        DisableThreadLibraryCalls(hInstance);
    end
  else if (dwReason = DLL_PROCESS_DETACH) then
    _Module.Term();
  result := true;
end;
 
...
begin
  DllProc := @DLLEntry;
  DllEntry(DLL_PROCESS_ATTACH);
end.

Mes questions sont:
Quel est l'équivalent de CComModule en delphi?
Quel est l'équivalent du type STDAPI en delphi? (HResult peut être)
Qqn peut-il m'expliquer cette partie:

Code :

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

1
2
3
4
 
BEGIN_OBJECT_MAP(ObjectMap)
OBJECT_ENTRY(CLSID_RemoteWMP, CRemoteWMP)
END_OBJECT_MAP()

Merci de votre aide.

[lil_jam63]

Personne n'as une petite idée de ce que celà peux vouloir dire

Code :

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

1
2
3
4
 
BEGIN_OBJECT_MAP(ObjectMap)
OBJECT_ENTRY(CLSID_RemoteWMP, CRemoteWMP)
END_OBJECT_MAP()

et comment passer celà en delphi.
Quel est l'équivalent de CComModule en delphi?

[e-ric]

Salut

Le peu que j'ai pratiqué en C/C++ me laisse penser que

Code :

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

1
2
3
4
 
BEGIN_OBJECT_MAP(ObjectMap) 
OBJECT_ENTRY(CLSID_RemoteWMP, CRemoteWMP) 
END_OBJECT_MAP()

sont des macros (tradition du langage pour leur nommage en majuscule) recherche dans les fichiers listés dans les directives include.

CCOmModule ne me dit rien. Que fait la DLL ?

cdlt

e-ric

[e-ric]

Ah, j'oubliais

Tu devrais plutôt poser ta question sur le forum C++. Tu as plus de chance de trouver des réponses, au moins pour obtenir la signification du code, la conversion viendra ensuite...

e-ric

[lil_jam63]

Merci e-ric d'avoir pris la peine de me répondre?
J'avais dejà fait quelques recherches qui m'ont permis de savoir que c'était une macro mais malheureusement, je n'en sait pas plus à ce sujet.
Et ce type CCOmModule me semble être un objet COM mais aucune idée de la méthode de traduction en delphi.
Quelque chose me dit que je devrais voir du côté de OLECheck() mais je n'ai encore jamais vraiment utiliser les objets COM/COM+