Discussion :

[mattfr69]

Bonjour à tous,

J'ai crée un composant ActiveX qui contient beaucoup de propriétés.
Ce composant est utilisé dans une application avec VBA.

J'aimerais faire des catégories de propriétés pour simplifier l'utilisation du composant.
Pour cela je dois implémenter l'interface ICategorizeProperties (http://msdn.microsoft.com/en-us/libr...roperties.aspx) qui n'est pas connue d'origine sous Delphi.

J'ai essayé de l'ajouter avec ses deux méthodes, mais je n'arrive pas à faire fonctionner correctement.
Après le premier appel de GetCategoryName, cela reviens dans la méthode mais les paramètres ne sont plus valides et l'application hôte crash.
Je crois qu'il faut faire une boucle en récupérant la liste des propriétés avant de quitter la méthode GetCategoryName mais je ne sais pas comment le faire.

Est-ce que quelqu'un pourrait m'aiguiller sur ce problème ?

Merci d'avance

[ShaiLeTroll]

ICategorizeProperties c'est pour l'interaction de d'un Package avec son IDE Visual Studio !

Est-ce qu'un ActiveX COM peut avoir cela !
Est-ce qu'un VsPackage et un ActiveX sont compatibles ?
Déjà, il est clair qu'il te faut Visual Studio d'installer pour que Delphi trouve les TLB, tu peux ainsi les ajouter comme dépendance au mettre titre que StdOle2...

Fait gaffe a utiliser des WideString et d'en conserver le contenu dans ton objet !
En C++Builder, j'avais déclarer un WideString en variable locale passer à un B_STR, même si on pouvait s'en sortir sans crash,
j'ai constaté que plusieurs chaines partageaient le même espace mémoire géré par Windows pour les B_STR car côté appelant, le B_STR était utilisé directement sans WideString donc sans compteur et tout ce qui va avec !
En Delphi, si tu utilise bien WideString, cela fonctionne correctement

[mattfr69]

ICategorizeProperties est aussi utilisé pour l'interaction d'un contrôle ActiveX avec l'IDE du VBA.

Cette interface est bien "appelée" par le container qui utilise mon contrôle (je reçois le queryinterface).

Je n'utilises pas les TLB, j'ai fait la déclaration complète de l'interface directement dans mon unité (peut-être que mon erreur est là, mais je ne vois pas pourquoi l'utilisation du TLB est nécessaire..).
Ma déclaration :

Code :

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

1
2
3
4
5
6
 
type ICategorizeProperties = interface(IUnknown)
    ['{4D07FC10-F931-11CE-B001-00AA006884E5}']
    function GetCategoryName(PROPCAT: Int32;lcidCategory : UInt32; out pbstrName: WideString): HResult; stdcall;
    function MapPropertyToCategory(dispid: Int32; out ppropcat: PInt32): HRESULT; stdcall;
  end;

Mon unité est une version modifiée de "Vcl.AxCtrls" pour permettre la création d'un composant WindowLess (aucun Handle de fenêtre, etc...).

J'ai bien utilisé des WideString justement, mais comme ça ne fonctionnait pas, j'ai essayé plusieurs types différents mais aucun résultat concluants....
Le widestring est une sortie de la fonction (j'ai essayé var et out, même résultat).

J'ai sûrement un problème avec le pointage de ce WideString qui correspond à un BSTR* mais je n'arrive pas à voir (comprendre) d'où vient ce pointage.

Par contre ton idée d'installer Visual Studio pour avoir un TLB peut peut-être m'aider à confirmer la bonne déclaration.

[ShaiLeTroll]

Je n'utilises pas les TLB, j'ai fait la déclaration complète de l'interface directement dans mon unité (peut-être que mon erreur est là, mais je ne vois pas pourquoi l'utilisation du TLB est nécessaire..).

Lorsque je fais un ActiveX, je déclare toute mes interfaces et les implémentations dans le TLB via l'outil fourni
VBA doit en plus fonctionner le LateBinding ce qui doit avoir besoin justement des déclarations de type fourni par la TLB
C'est le fonctionnement pour SES propres interfaces !

Mais comme ton interface est un standard de Microsoft, il y a forcément une TLB qui décrit ICategorizeProperties dans le System
J'avoue que je n'ai jamais tenté et je n'ai pas la réponse !

Ne pas confondre la déclaration Delphi de ICategorizeProperties et sa déclaration COM contenu dans une TLB du system qui fourni les DispID et tout le tralala COM nécessaire au LateBinding

Par contre ton idée d'installer Visual Studio pour avoir un TLB peut peut-être m'aider à confirmer la bonne déclaration.

Si le VBA l'utilise, c'est surement cet outil qui contient la déclaration !
J'écrivais mes VBS sous Notepad, je n'ai jamais fait de VBA dans Excel ou autre !

Mes VBS était souvent fourni comme exemple de coder de mes objets COM (qui encapsulait des DLL Win32 pour les boulets ne sachant pas les utiliser)
Ainsi je faisais en sorte d'utiliser des passages de paramètres soit compris par le VBS, il y avait ainsi de bonne chance qu'un autre langage supporte mes objets correctement (j'ai eu des dev C# ou VB.NET qui avait du mal à comprendre la différence entre une DLL Win32 et une DLL contenant un COM et qui comprenait que ma DLL Win32 n'était pas une Assembly)

Enfin, je vois du PInt32 ? MapPropertyToCategory renvoie un pointeur ?
J'ai toujours un doute sur ce genre de pointer

je dirais que "PROPCAT* ppropcat" en C++ c'est "out ppropcat: Int32" en delphi
je dirais que "PROPCAT** ppropcat" en C++ c'est "out ppropcat: PInt32" en delphi

le in et out du C++ idl ne sont que indicatif, dans le C++, out ça n'existe pas, c'est toujours du pointeur !

Code c++ :

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

1
2
3
4
HRESULT ICategorizeProperties::MapPropertyToCategory(
   [in] DISPID dispid, 
   [out] PROPCAT* ppropcat
);

Idée bien moche !!!
Déclare tes WideString en global pour chaque catégorie, tu peux faire un tableau si veux
et tu renvoie le contenu de la globale par simple affectation dans pbstrName

C'est juste au cas ou l'appelant ne prend pas la peine d'incrémenter le compteur de référence d'une OleStr (voir SysAllocString) et si ton WideString est locale à la fonction, une fois la fonction fini, tu décrémente et Windows considère que l'emplacement mémoire est libre !

autre remarque !
En Delphi, tu peux aussi utiliser le SafeCall dans certains cas, cela simplifie les out et rend implicite le HResult

Code :

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

1
2
3
4
5
type ICategorizeProperties = interface(IUnknown)
    ['{4D07FC10-F931-11CE-B001-00AA006884E5}']
    function GetCategoryName(PROPCAT: Int32;lcidCategory : UInt32): WideString; safecall;
    function MapPropertyToCategory(dispid: Int32): Int32; safecall;
  end;

[mattfr69]

Merci pour tes réponses, concernant les pointeurs, j'ai toujours des doutes avec les correspondances entre C++ et Delphi mais j'ai essayé beaucoup de possibilités et je n'ai pas réussi.

Sinon, je dois expliquer un peu mon contrôle ActiveX, c'est un contrôle WindowLess donc sans aucun Handle de fenêtre et je n'ai pas trouvé d'autre moyen sous Delphi que de récréer la classe TActiveXControl (Vcl.AxCtrl) en ajoutant l'interface IOleInPlaceObjectWindowless.

Concernant les TLB, je ne suis pas vraiment expert en objets COM mais je ne vois pas trop pour quelle raison j'aurais besoin d'un TLB vu que c'est une interface que mon contrôle doit renvoyer lui-même quand il reçoit une requête de la part du container via la function ObjQueryInterface.
Cette fonction renvoies seulement l'interface demandée de mon propre objet et donc le container utilise alors le latebinding pour accéder aux méthodes de l'interface demandée (dans mon cas le GetCategoryName).
Est-ce que je me trompes ?