problème delphi XE !

* Bonjour *

Mon problème est le suivant :
le code suivant importe un menu externe qui se trouve dans un fichier dll

Code:

---

buf:array [0..511] of char;

---

Code:

---

Plugins[1].GetPluginName(@buf[0]);

---

retourne le nom du plugin dans la variable buf.

Code:

---

1 2 3

InsertMenu(Menu.Handle, $FFFFFFFF, (MF_BYPOSITION or MF_POPUP or MF_ENABLED), MDPlugins[PluginCount].PluginMenu,PChar(@buf[0]));

---

J'utilise cette fonction pour insérer le menu externe dans le menu principal de l'application.
Avec delphi 2007 pas de problème, mais avec delphi XE le menu s'affiche avec des caractère bizarres.
Quel est le problème ?

problème AnsiChar / Unicode ?

peut être.
par exemple, le code suivant donne un résultat incorrect :

Code:

---

ListPluginLog.Items.Insert(0, 'plugin: '+ pchar(@buf[0]));

---

alors que le code suivant est correct :

Code:

---

ListPluginLog.Items.Insert(0, 'plugin: '+ pAnsichar(@buf[0]));

---

mais le problème avec la fonction Insertmenu est que le compilateur détecte une erreur si on utilise la fonction comme suit :

Code:

---

1 2 3

InsertMenuw(Menu.Handle, $FFFFFFFF, (MF_BYPOSITION or MF_POPUP or MF_ENABLED), MDPlugins[PluginCount].PluginMenu,PAnsichar(@buf[0]));

---

et en traduisant la chaîne AnsiChar utilisée pour la liste des plugins en chaîne Unicode pour insérer le menu ?

Essaye plutot InsertMenuA au lieu de InsertMenuW (A pour Ansi, W pour Wide).
Sinon, tu peux effectivement caster ta PAnsiChar en PWideChar, la conversion sera faite automatiquement par delphi

:lol: Merci à tous.
Effectivement l'utilisation de InsertMenuA donne la bonne solution :

Code:

---

1 2 3

InsertMenuA(Menu.Handle, $FFFFFFFF, (MF_BYPOSITION or MF_POPUP or MF_ENABLED), MDPlugins[PluginCount].PluginMenu,@buf[0]);

---

le résultat est correct, mais vraiment un caisse de tête et j'ai été obligé à remplacer toutes les déclaration string par ansistring pour voir l'application s'exécute correctement.

en fait tu as 2 approches :
- soit tu passe tout en PAnsiChar pour rester comme avant (ce que tu as fait)
- soit tu fais passer ton appli en unicode (plus ou moins automatique avec XE).
Dans ce cas, vu que tu as une dll qui retourne du PAnsiChar, il faut que tu traite correctement cet appel. Tu peux le faire comme ca (je penses car je n'ai pas XE) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

var buf:array [0..511] of AnsiChar; wideName: WideString; begin Plugins[1].GetPluginName(@buf[0]); ... WideName := PAnsiChar(buf); //conversion implicite en widestring InsertMenu(Menu.Handle, $FFFFFFFF, (MF_BYPOSITION or MF_POPUP or MF_ENABLED), MDPlugins[PluginCount].PluginMenu,PWideChar(WideName));

---

(n'oublie pas de changer la declaration de ta fonction GetPluginName pour qu'elle prenne un PAnsiChar en parametre)