Discussion :

[zeprogrameur]

Bonjour,
Comme indiqué dans le titre, j'essaye de lister mes propriétés et méthode d'un objet COM avec RTTI (s'il y'a une autre méthode, je suis preneur!):

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
 
uses typinfo;
 
var MyObjCom: TObjCom;
.....
 
procedure TForm1.FormCreate(Sender: TObject);
var
  Count, Loop: Integer;
  List: TPropList;
begin
  Count := GetPropList(TypeInfo(TObjCom), tkAny, @List);
  Listbox1.Items.BeginUpdate;
  for Loop := 0 to Pred(Count) do
    Listbox1.Items.Add(List[Loop]^.Name);
  Listbox1.Items.EndUpdate;
end;

Le pb, c'est que RTTI ne me renvoie que les prop. published.
Question: Comment renvoyer toutes les prop. ou à défaut, dans mon activex, comment mettre mes prop. et méthodes à published?

[zeprogrameur]

personne n'a une petite idée?

[Laurent Dardenne]

Salut,
le RTTI est dédié à Delphi, aux classes Delphi, pour COM je regarderais plutôt du coté de la librairie de type : ActiveX.ITypeInfo et ITypeLib

Un exemple mais il faut creuser le code source
http://pchapuis.developpez.com/typelibreader/

[zeprogrameur]

ok, merci beaucoup!
Je suis en train d'éplucher le code, si ça intéresse qq'un, je posterai ma fonction.

[Laurent Dardenne]

Je suis en train d'éplucher le code

Dans ce cas il ne faut pas être économe de ces efforts

si ça intéresse qq'un, je posterai ma fonction.

Oui je suis preneur, j'allais faire la même chose pour la FAQ Delphi.

[zeprogrameur]

Voila, une fonction qui permet dans un objet COM, de récupérer sous la forme d'un string, les propriétés et méthodes de cet objet:

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
 
function TMyObjCom.Get_GetListProps: String;
var MyITypeInfo: ITypeInfo;
      MyPTypeAttr: PTypeAttr;
      MyPFuncDesc: PFuncDesc;
      MyFuncName, MyFuncDoc: WideString;
      i, GetNbProp : Integer;
begin
  result:='';
 
  Self.GetTypeInfo(0,0,MyITypeInfo);
  MyITypeInfo.GetTypeAttr(MyPTypeAttr);
 
  //Renvoie le nb de methode...
  GetNbProp:= MyPTypeAttr^.cFuncs;
 
  for i:=0 to GetNbProp-1 do begin
          //MyPFuncDesc: pointeur de description de la methode.
          if succeeded(MyITypeInfo.GetFuncDesc(i, MyPFuncDesc)) Then
            //Le tag de la methode est recupere par MyFuncName
            if succeeded(MyITypeInfo.GetDocumentation(MyPFuncDesc^.memid, @MyFuncName, @MyFuncDoc,nil, nil)) then result:= result + MyFuncName + ';';
  end;

[Laurent Dardenne]

Je suis en train de regarder ce point mais cela nécessite un peu plus de code pour accéder à ces infos.

En tout cas merci .

[zeprogrameur]

Je suis en train de regarder ce point mais cela nécessite un peu plus de code pour accéder à ces infos.

En tout cas merci .

oui, la fonction est basique: elle permet juste de lister toutes les prop/methodes d'une interface, et donc on récupère celles qui sont héritées de IDispatch (Invoke....): Si on veut distinguer les prop héritées et les autres, ça nécessite + de code!

[Laurent Dardenne]

Après réflexion j'ai une question simple à te poser :

j'essaye de lister mes propriétés et méthodes d'un objet COM

Quel est ton objectif exactement ?

[zeprogrameur]

Après réflexion j'ai une question simple à te poser :

j'essaye de lister mes propriétés et méthodes d'un objet COM

Quel est ton objectif exactement ?

Par exemple, pour une interface, j'ai une fonction qui sort dans un fichier texte la liste de toutes les propriétés d'une instance de mon interface.
Si j'ajoute ou je retire une prop., je suis obligé de modifier cette fonction.

[Laurent Dardenne]

Merci.