Discussion :

[sis735]

* Bonjour *

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

Code :

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

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

Code :

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

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

retourne le nom du plugin dans la variable buf.

Code :

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

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 ?

[tourlourou]

problème AnsiChar / Unicode ?

[sis735]

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

Code :

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

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

alors que le code suivant est correct :

Code :

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

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 :

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

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

[tourlourou]

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

[guillemouze]

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

[sis735]

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

Code :

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

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.

[guillemouze]

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 :

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

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)