Discussion :

[ch16089]

Bonjour,
Quand je recompile sous Delphi 11 mes dll créées avec Delphi 7, les chaînes de caractères passées en PChar ne sont pas prises en compte par les fonctions quand la dll est appelée par Excel ou par un programme compilé en Delphi 7.
Si j'appelle la dll recompilée par Delphi 11 par un programme compilé par Delphi 11, l’argument en PChar est bien transmis et traité par la fonction.
Quel est le problème ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
library Dll;
 
uses
  Windows, SysUtils;
 
{$R *.res}
 
Function Texte1(const aTexte: PChar): Boolean; stdcall;
 
begin
  MessageBox(0, aTexte, 'Texte1', mb_ok);
  Result := true;
end;
 
Exports
  Texte1;
 
begin
end.

Merci pour votre aide.

[SergioMaster]

Bonjour,


Depuis D2008 et l'apparition de l'UNICode dans Delphi les Pchar sont en fait de PWideChar alors que pour les versions antérieures ce sont des PAnsiChar

Les chaînes de caractères passées en PChar ne sont pas prises en compte

Conclusion: il faut forcer la déclaration

Code :

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

Function Texte1(const aTexte: PAnsiChar): Boolean; stdcall;

[ch16089]

Bonjour,
Merci pour la solution, j'avais oublié cette évolution depuis D2008 et que j'avais bien pris en compte dans d'autres dll !