Discussion :

[Stef_D]

Je pense que c'est impossible mais ne sait-on jamais.
COM, OLE... ça reste un peu flou pour moi tout ça malheureusement :-/

J'explique mon problème :

Je dois utiliser les services d'une application externe et voilà les seuls éléments que l'on m'a fourni :

Code :

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

1
2
3
4
I_TrucModule = interface(IDispatch)
      function openModule(const parameters: WideString; out ret: integer): integer;
      function closeModule(handle: integer): integer;
end;

Youpi, ça fait bien maigre !

Dans ma joie j'ai essayé ceci :

Code :

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

1
2
3
4
5
6
7
8
 
procedure truc;
var
   IModule: I_TrucModule;
begin
   IModule:= CreateComObject(I_TrucModule) as I_TrucModule;
   ...
end;

Bien sur, ça ne fonctionne pas, Delphi se plaint que l'interface n'a pas d'identification d'interface (GUID).
Effectivement y'en a pas.

si je modifie la déclaration de l'interface comme suit :

Code :

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

1
2
3
4
5
I_TrucModule = interface(IDispatch)
    ['{ECB83782-59AE-11D5-8AC5-0010DC1854D7}']
      function openModule(const parameters: WideString; out ret: integer): integer;
      function closeModule(handle: integer): integer;
end;

Là ça compile car j'ai mis un numéro de GUID fictif...
le bon, je l'ai pas... Dois-je impérativement l'avoir ? ou existe-il une méthode magique pour récupérer un GUID d'interface ou directement une instance à partir de son nom (ITruc par exemple) ?
Merci d'avance !

[Laurent Dardenne]

Youpi, ça fait bien maigre !

Faut "positiver", cela aurait pu être pire

Dois-je impérativement l'avoir ?

Ce serais bien oui, sinon comment savoir quel est l'objet qui implémente cette interface ?
On ne t'as pas fournit une boule de cristal, franchement il y en a qui exagére 8)

[Stef_D]

Youpi, ça fait bien maigre !

Faut "positiver", cela aurait pu être pire

Dois-je impérativement l'avoir ?

Ce serais bien oui, sinon comment savoir quel est l'objet qui implémente cette interface ?
On ne t'as pas fournit une boule de cristal, franchement il y en a qui exagére 8)

Merci, c'est bien ce qu'il me semblait...
J'espérais peut-être une fonction qui puisse à partir du nom d'une interface (héritant de IDispatch) retrouver l'objet qui l'implémente.
Enfin s'il est possible d'avoir plusieurs objets implémentant la même interface cela poserait problème (je sais pas si c'est possible).

[HumanTool]

salut,
je sais que dans ComObj.pas il ya les fonctions StringToGUID() et GUIDToString(), peut être que tu les utiliser ? (je ne les ai jamais utilisé mais leur noms sont expicites et l'aide fonctionne sur c fonctions...)
sinon dans ActiveX.pas y a les fonctions API StringFromCLSID, CLSIDFromString; à voir (la non plus je ne les ai pas utilisée)

bon courage

[Stef_D]

Merci, c'est exactement ce que je cherchais !!
J'ai pas encore essayé (je vais le faire) mais comme tu dis, le nom des fonctions est plutot explicite

[Stef_D]

Arf, je me suis un peu emballé... ces fonctions permettent de convertir le GUID ou CLSID en string et vice-versa, mais ne permettent pas de retourner un CLSID à partir d'un nom d'interface. Merci encore.
Je pense que ça ne doit pas être possible, tout simplement.

[HumanTool]

ah...tant pis mais c'est bon pour infos !

[Stef_D]

je te remercie d'avoir essayé de m'aider
J'ai demandé plus d'infos à la personne qui m'a donné les documents... ça va encore prendre une plombe je le sens.

[HumanTool]

[inoussa]

Salut

L'interet d'une interface reside en autres dans le fait de pouvoir l'mplémenter par plusieurs classes.Donc ca ne pose aucun problème;Pour exemple tous les objets COM implémentent IUnknown.

Une même classe peut implémenter plusieurs interfaces.

[Stef_D]

Salut

L'interet d'une interface reside en autres dans le fait de pouvoir l'mplémenter par plusieurs classes.Donc ca ne pose aucun problème;Pour exemple tous les objets COM implémentent IUnknown.

Une même classe peut implémenter plusieurs interfaces.

Salut,

De ce fait, il est impossible d'avoir une fonction qui, pour un nom d'interface donnée, puisse me retrouner un GUID ou CLSID d'objet implémentant cette interface ?
Et ainsi pouvoir en récupérer une instance...

[Laurent Dardenne]

Il te faut avant tout connaitre le propriétaire de cette interface (Objet Delphi ou COM) ou au moins une référence quelconque, ensuite tu peux utiliser la Supports de l'unité Sysutils qui permet de déterminer si un objet, une interface ou une classe supporte une interface donnée :

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
 //Appel sur une interface 
function Supports(const Instance: IInterface; const IID: TGUID; out Intf): Boolean; 
begin 
  Result := (Instance <> nil) and (Instance.QueryInterface(IID, Intf) = 0); 
end; 
 
 //Appel sur une classe 
function Supports(const Instance: TObject; const IID: TGUID; out Intf): Boolean; 
var 
  LUnknown: IUnknown; 
begin 
  Result := (Instance <> nil) and 
            ((Instance.GetInterface(IUnknown, LUnknown) and Supports(LUnknown, IID, Intf)) or 
             Instance.GetInterface(IID, Intf)); 
end; 
 
 //Appel sur une référence de classe 
function Supports(const AClass: TClass; const IID: TGUID): Boolean; 
begin 
  Result := AClass.GetInterfaceEntry(IID) <> nil; 
end;

[Graffito]

Bonjour,

Peut-être une idée :
Les GUID sont enregistré dans la base de registre.
- l'ouvrir avec le programme RegEdit,
- essayer de trouver la chaine "TrucModule" et voir si il y a un GUID qui correspond dans clé,valeur ou données.