Discussion :

[butch]

Bonjour.
Je suis en train de passer de D7 à DXE et lors de la conversion d'un projet, je suis tombé sur un truc étrange.

Le problème est résumé par l'exemple suivant qui affiche 0 sous D7 et 8 sous DXE.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var
myIntf:IUnknown;
myInt1,myInt2:integer;
begin
 myIntf:=TinterfacedObject.create;
 myInt1 := integer(pointer(myIntf));
 myInt2 := integer(pointer(TObject(myIntf)));
 showmessage(inttostr(myInt1 - myInt2));
 myIntf :=nil;
end;

Il semblerait que sous DXE, l'instruction myIntf:=TinterfacedObject.create renvoie un pointeur vers la partie iunknown de l'objet créé alors que sous D7, elle renvoie un pointeur vers l'objet créé.

Est ce une modification officielle ou un bug ?

[Paul TOTH]

c'est une "fonctionnalité", sous XE il est possible de retrouver l'objet à partir de l'interface...donc TObject(myIntf), qui n'a pas de sens sous D7, est valide sous XE et retourne le TInterfacedObject

[butch]

Salut.
Malheureusement pour moi, cela avait du sens pour le type qui a écrit le composant que je fais passer sous dxe (la boite dream company qui nous a vendu le composant n'existe plus)

Il créé des objets de type idispatch et les stocke dans un tstrings. (d'ou le transtypage) pour les récupérer après. donc lorsqu'il les stocke, il cast sa variable idispatch vers tobject, et quand il les récupére il cast le pointeur stocké dans la tstrings vers un type iunknown.


La variable iunknow était ensuite redonnée à un composant com via iactiveScripteSite::getItemInfo et là, patatra , violation d'accès.
J'ai mis un moment avant de comprendre ce qui se passait !

[Paul TOTH]

Salut.
Malheureusement pour moi, cela avait du sens pour le type qui a écrit le composant que je fais passer sous dxe (la boite dream company qui nous a vendu le composant n'existe plus)

Il créé des objets de type idispatch et les stocke dans un tstrings. (d'ou le transtypage) pour les récupérer après. donc lorsqu'il les stocke, il cast sa variable idispatch vers tobject, et quand il les récupére il cast le pointeur stocké dans la tstrings vers un type iunknown.


La variable iunknow était ensuite redonnée à un composant com via iactiveScripteSite::getItemInfo et là, patatra , violation d'accès.
J'ai mis un moment avant de comprendre ce qui se passait !

Je pense qu'en passant par un type Pointer intermédiaire ça devrait fonctionner

Code :

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

TObject(Pointer(myIntf))

ceci dit ce genre de manipulation est a prendre avec des pincettes, dans XE2 64bits, les pointeurs passent en 64bits alors que Integer reste sur 32 bits ! (cf NativeInt qui est selon le cas en 32 ou 64 bits)

[butch]

Bonjour.
Oui, c'est la correction que j'ai faite.

Merci pour l'info sur xe2. Cela promet encore pas mal de modifs dans ce composant ! Mais sur le cas dont on parle je ne vois pas l'incidence que cela peut avoir ?

[Paul TOTH]

Bonjour.
Oui, c'est la correction que j'ai faite.

Merci pour l'info sur xe2. Cela promet encore pas mal de modifs dans ce composant ! Mais sur le cas dont on parle je ne vois pas l'incidence que cela peut avoir ?

non mais dans ton exemple tu compares les valeurs via des Integer

[butch]

ha oui !