ce forum concerne la programmation sous Delphi

Delphi dll

Bonjour,

J'ai créé une dll en delphi (controle activex) et l'ouvre depuis une application. Jusqu'ici tout va bien là ou ca se corse c'est quand depuis l'application je passe un objet par une méthode de la dll qui accepte un olevariant et que dans la dll j'essaye de le caster dans un type interface défini dans un paquet d'éxécution (attention l'objet implémente bien l'interface), il n'arrive pas à me caster l'objet....
alors qu'il devrait...

Si qqn a une idée

Ex:

(iint est déclaré dans Package.bpl');

TObj=class(TInterfacedObject, IInt)
end;


...
MyObj:=TObj.create;
LoadLibrary('MyDLL.dll');

int:=CreateOleObject('ActiveX.Object');
int.Method1(MyObj);

FreeLibrary('MyDll.dll');
...


dans la dll
============

procedure Method1(obj: Olevariant)
var
aInt: IInt;
begin
// cchez moi ce test est toujours faux
if Supports(Obj, IInt, aInt) then
begin
end;
end;

Alerter Rezoweb si ce message est illégal