Discussion :

[Blondin77]

Bonjour,

j'ai créé une dll pour faire interagir mon programme avec excel via les interfaces.

Je crée un objet avec des propriétés dans mon code delphi. Dés lors dans ma macro j'ai accès à cet objet et aux différentes propriétés définies.

Cependant, j'ai décidé de rajouter une propriété contenant une image afin de récupérer cette image dans excel et de l'afficher dans mes menus.
J'ai donc eu le code suivant

Code :

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

 property IcoPict: IPictureDisp read Get_IcoPict write Set_IcoPict;

avec

Code :

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

1
2
3
4
5
6
7
8
9
function TMyObject.Get_IcoPict: IPictureDisp;
var
 Icone: TIcon;
begin
 Icone := TIcon.Create;
 Icone.Handle := LoadIcon(HInstance, 'MAINICON');
 result := Tpicture(Icone) as IPictureDisp;
 icone.free;
end;

cependant lorsque j'appelle dans ma macro

Code :

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

myobject.IcoPict

cela ne fonctionne pas. Il me dit que l'interface n'est pas supporté.

Quelqu'un aurait-il une idée?

Merci d'avance

[ShaiLeTroll]

As-tu fais un register de l'objet via RegSvr32 ?
Test avec un client Delphi pour débugger plus facilement !
As-tu fais un CreateObject avant ?

[Blondin77]

merci pour ta réponse malheureusement j'avais déjà essayé tes suggestions.
J'ai fait un regsvr32 pour être sûr qu'il prend la bonne dll.
Je travaille déjà sous un client delphi et mon objet existe.

[Franck SORIANO]

TIcon, c'est bien la classe définie dans Graphics.pas.

Depuis quand est-ce que TIcon implémente l'interface IPictureDisp ?

Il ne suffit pas de faire un cast pour que la classe implémente IPictureDisp (d'ailleurs TPicture ne l'implémente pas non plus !).

Ca ne marchera jamais de cette façon.

Il me semble que la méthode préconisée par Microsoft lorsqu'on écrit une extension COM pour Office, c'est de passer par le presse-papier (je sais c'est un peu dégueux, mais ça marche).

Dans l'objet COM, tu charges ton image et tu la copie dans le press-papier.

Puis dans Excel, tu définis l'image du menu avec PasteFace().

[Blondin77]

merci beaucoup, je vais essayer cela.

Encore une question : quelle classe implémente l'interface IPictureDisp ?

bien à vous.

[Franck SORIANO]

A ma connaissance, aucune classe Delphi.

Cette interface est déclarée dans ActiveX. Elle a sans doute été définie par Microsoft pour permettre aux appli VB de manipuler des images provenant d'objets COM ou de serveur OLE.

En revanche, tu dois pouvoir l'implémenter toi-même dans une classe dérivée d'un TAutoObject, qui aggrègerait un TBitmap par exemple...