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?