Pointer et conversion sur Self et TObject

Bonjour

Le code suivant me pose problème:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

var Form7: TForm7;   implementation   {$R *.dfm}   function Pt(Obj: TObject): NativeUint; begin Result := NativeUint(@Obj); end;   procedure Comp(P: NativeUINT); var K: NativeUint; begin K := Pt(Form7); if P = K then ShowMessage( TForm7( Pointer(P)^ ).Name ); end;   procedure TForm7.FormCreate(Sender: TObject); var V1, V2: NativeUint; begin V1 := Pt(Self); V2 := Pt(Form7); Comp(V2); end;

---

Dans le FormCreate, V1 et V2 sont égaux.
Mais dans Comp, K est différent de P alors que je le récupère de la même façon que dans FormCreate

Et là, je ne comprends pas pas trop le pourquoi du comment :-(

Pour Delphi les objets sont en fait des pointeurs sur des objets. Il suffit de virer le @ devant obj et ça devrait fonctionner.

Code:

---

1 2 3 4 5

function Pt(Obj: TObject): NativeUint; begin Result := NativeUint(Obj); end;

---

Citation:

---

Envoyé par Papy214

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure Comp(P: NativeUINT); var K: NativeUint; begin K := Pt(Form7); if P = K then ShowMessage( TForm7( Pointer(P)^ ).Name ); end;   procedure TForm7.FormCreate(Sender: TObject); var V1, V2: NativeUint; begin V1 := Pt(Self); V2 := Pt(Form7); Comp(V2); end;

---

---

Il y a que moi que cela choque de travailler un coup avec un type NativeUInt d'un côté et un type Pointeur de l'autre ?

Il me semble que ce code pourrais être simplifié en utilisant exclusivement des Pointeurs.

Oui, je sais, c'est bizarre mais j'ai une bonne raison de faire ça ;)

Je dois coder une classe qui reprend exactement les mêmes procédures avec les même paramètres qu'un activeX existant.
Enfin, une partie seulement des fonctions, heureusement pour moi.
Le but est de remplacer l'activex par mon objet sans toucher au code source du projet.

Et plusieurs de ces fonctions utilisent un handle de type integer comme paramètre.
Sauf que j'utilise un objet et non un TControl.
Donc, pas de handle. Et pas le peine d'en créer un si je peux éviter.
En interne, je peux utiliser n'importe quelle valeur entière.
Chaque instance de la classe doit avoir un identificateur entier (comme si c'était son handle).
Cet identificateur me sert dans un système de message pour faire communiquer les objets les uns avec les autres.
D'abord, j'ai utilisé un compteur en variable de classe.
Et je me suis dis que pour éviter ça, je pourrais simplement utiliser l'adresse de l'objet.
Mais comme il me faut un entier, je caste l'adresse en entier et je passe cette valeur dans ma structure de message.
à réception du message par l'instance correspondante, je me sers de la valeur que je caste à nouveau en pointer puis dans le type voulu pour pointer sur l'objet.

Voili voilà !

Citation:

---

Envoyé par p.leali

Pour Delphi les objets sont en fait des pointeurs sur des objets. Il suffit de virer le @ devant obj et ça devrait fonctionner.

Code:

---

1 2 3 4 5

function Pt(Obj: TObject): NativeUint; begin Result := NativeUint(Obj); end;

---

---

Oh le voilà ! Bienvenue ! :D

J'essaye demain. Le vpn est cassé depuis 2 jours et le bureau est inaccessible depuis chez moi.

Result := NativeUint(@Obj) ne peut pas fonctionner. @Obj est un pointeur sur la variable Obj locale à la fonction et non son contenu.

V1 et V2 sont égaux parce qu'une variable locale est désallouée à la sortie de la fonction. Le deuxième appel immédiat à Pt peut donc réutiliser la même adresse que le premier pour sa variable Obj.
Dans Comp, ça ne joue plus puisque cette fonction a également un paramètre. C'est ce paramètre P qui sera à l'adresse du Obj précédent (tu peux contrôler, P = @P). A l'appel de Pt depuis Comp, Obj sera décaler sur la pile ;)

Paul : Effectivement, ça fonctionne avec le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

function Pt(Obj: TObject): NativeUint; begin Result := NativeUint(Obj); end;   procedure Comp(P: NativeUINT); var K: NativeUint; begin K := Pt(Form7); if P = K then ShowMessage( TForm7( Pointer(K) ).Name ); end;   procedure TForm7.FormCreate(Sender: TObject); var V1, V2: NativeUint; begin V1 := Pt(Self); V2 := Pt(Form7); Comp(V2); end;

---

Andnotor :

Je ne comprends pas ton raisonnement. V1 et V2 contiennent l'adresse (convertie en entier) de mon TForm.
Les 2 variables contiennent la même valeur puisque j'appelle 2 fois la fonction sur le même objet dénommé de 2 manières différentes.
Dans Comp, le résultat de la fonction devrait donner la même valeur puisque puisque j'appelle la fonction de la même façon.
Enfin, il me semble :(

Citation:

---

Envoyé par Andnotor

Result := NativeUint(@Obj) ne peut pas fonctionner. @Obj est un pointeur sur la variable Obj locale à la fonction et non son contenu.

V1 et V2 sont égaux parce qu'une variable locale est désallouée à la sortie de la fonction. Le deuxième appel immédiat à Pt peut donc réutiliser la même adresse que le premier pour sa variable Obj.
Dans Comp, ça ne joue plus puisque cette fonction a également un paramètre. C'est ce paramètre P qui sera à l'adresse du Obj précédent (tu peux contrôler, P = @P). A l'appel de Pt depuis Comp, Obj sera décaler sur la pile ;)

---

ou alors, tu veux dire que dans ma fonction, P est un pointer sur un pointer ?

Citation:

---

Envoyé par Papy214

Je ne comprends pas ton raisonnement. V1 et V2 contiennent l'adresse (convertie en entier) de mon TForm.

---

Pas avec @Obj, c'est l'adresse de Obj qui est retournée et non son contenu. Tu peux appeler Pt() sur n'importe quoi, même nil si tu veux, tu auras toujours le même résultat ;)

Citation:

---

Envoyé par Papy214

ou alors, tu veux dire que dans ma fonction, P est un pointer sur un pointer ?

---

C'est ça, Obj est une variable pointeur typé. @Obj est un pointeur sur cette variable de type pointeur ;)

Citation:

---

Envoyé par Papy214

Oui, je sais, c'est bizarre mais j'ai une bonne raison de faire ça ;)

Je dois coder une classe qui reprend exactement les mêmes procédures avec les même paramètres qu'un activeX existant.

---

Ah, si tu as des contraintes externes, c'est différent, je retire ce que j'ai dit ;)

Citation:

---

Envoyé par der§en

Ah, si tu as des contraintes externes, c'est différent, je retire ce que j'ai dit ;)

---

il reste possible de gérer un index dans une liste, on un dictionnaire Index->Objet qui permet de vérifier la validité de l'objet avant de l'utiliser...mais l'usage d'un THandle pour stocker un objet est tout à fait valide :)

Citation:

---

Envoyé par Paul TOTH

il reste possible de gérer un index dans une liste, on un dictionnaire Index->Objet qui permet de vérifier la validité de l'objet avant de l'utiliser...mais l'usage d'un THandle pour stocker un objet est tout à fait valide :)

---

C'est ce que j'avais fait au départ. Un simple compteur en variable de classe incrémenté à chaque création d'objet et qui donnait un id différent pour chaque instance.
La solution était simple et tout à fait conforme à l'usage que je voulais en faire.
Ça fonctionnait très bien mais je trouvais ça superflu si je pouvais utiliser l'adresse de l'objet lui-même.

Comment aurais-tu fait dans un cas pareil ? Utilisation du compteur ou utilisation de l'adresse de l'objet ?

Citation:

---

Envoyé par Papy214

C'est ce que j'avais fait au départ. Un simple compteur en variable de classe incrémenté à chaque création d'objet et qui donnait un id différent pour chaque instance.
La solution était simple et tout à fait conforme à l'usage que je voulais en faire.
Ça fonctionnait très bien mais je trouvais ça superflu si je pouvais utiliser l'adresse de l'objet lui-même.

Comment aurais-tu fait dans un cas pareil ? Utilisation du compteur ou utilisation de l'adresse de l'objet ?

---

je crois que la dernière fois que j'ai eut à faire ce genre de chose j'utilisais directement le pointeur objet, mais je gardais dans un TList toutes les instances susceptibles d'être exploitées afin de vérifier que l'objet soit valide.

Code:

---

1 2 3 4 5 6 7

function UtiliseObject(Obj: TMonObject): Integer; begin if MaListe.IndexOf(Obj) < 0 then Exit(-1); Result := Obj.Fonction(); end;

---

l'autre approche fonctionne aussi mais complique la gestion de la liste

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

function UtiliseObject(Handle: THandle): Integer; var Obj: TMonObject; begin if (Handle < 0) or (Handle >= MaList.Count) then Exit(-1); Obj := MaList[Handle]; if Obj = nil then Exit(-1); Result := Obj.Fonction(); end;

---

quand un objet est détruit MaList est forcé à nil s'il existe des objets avec un Index plus grand afin de ne pas changer l'index des objets dans la liste

Ta solution est plus complète que la mienne mais dans mon cas, j'ai forcément un id de l'objet qui va recevoir le message.
Et si le handle n'existe plus, de toutes façons, le message ne sera pas traité.

Si à l'avenir je devais prendre en compte le problème que tu décris, je m'inspirerai de ta méthode.

Merci