Convertir un pointer en chaîne et chaîne en pointer multiplateforme

Bonjour,

pour convertir un pointer en chaine, je le transforme en LongInt (trouvé sur ce forum) et inversement.
Le problème c'est que LontInt est un entier (de –2147483648..2147483647) or en FreePascal c'est un LongWord (0..4294967295 donc à convertir en LongWord plutôt qu'en LongInt) mais, sous architecture 64 bits, c'est un entier 64 bits mais comment faire pour être compatible multi-plateforme ?
Car impossible de convertir une chaine en pointer directement or si le code est compilé sur du 64 bits on risque d'avoir un dépassement de capacité non ?

PS : au passage comment sait-on que l'on compile avec FPC et pas delphi. Je crois avoir vu, mais je ne retrouve pas, une constante FPC ?

Gio,

Je me demande très vivement quel est l'intérêt de convertir le contenu d'une chaîne en pointeur.

Bonjour !

Il existe en Free Pascal deux types d'entiers : Integer (signé) et Cardinal (non signé), dont la taille dépend de l'architecture et du mode de compatibilité définis dans les options de compilation (voir la FAQ). Cela t'affranchirait du souci de taille.

Pour ce qui est de tester, lors de la compilation, si c'est bien FPC qui est à l'oeuvre, tu peux utiliser la directive

Code:

---

1 2 3 4 5

{$IFDEF FPC} // Code spécifique à Free Pascal {$ELSE} // ... {$ENDIF}

---

En fait, j'ai trouvé dans la doc FPC que le type Cardinal est toujours mappé en LongWord. Donc ça revient au même.

Que veux-tu faire exactement ? Il y a peut-être un autre moyen de faire ça ?

Citation:

---

Envoyé par bubulemaster

En fait, j'ai trouvé dans la doc FPC que le type Cardinal est toujours mappé en LongWord. Donc ça revient au même.

---

Ah oui, tu as raison, au-dessus de 32 bits, seul l'entier signé Integer est réellement mappé en fonction de la taille par défaut de l'architecture. Cela m'avait échappé. :oops:
Mais ne peux-tu travailler avec de l'entier signé ?

En fait, je créer un moteur de script comme PHP pour voir comment ça fonctione (pour l'instant je ne gère que les variables et les boucles, les if et un début de fonctions). Vous pouvez vous le procurer sur http://php4php.free.fr/sws/. Ce n'est qu'une ébauche et je suis en train de grandement l'améliorer.
Donc, je gère les pointeurs (pratique pour les fonctions). Pour que ce soit plus facile je stocke dans la variable de mon script le pointeur FPC sur la variable.
Voilà pourquoi je cherche à convertir un pointeur en chaine (car mais variable dans mon script ne sont que des chaines).

J'ai trouvé une astuce. Je génère un nombre unique que j'enregistre dans un TStringList et je fais la correspondance avec un tableau de pointer de fonction.