Discussion :

[vedge2000]

Bonjour,

Petit problème, je voudrais passer en x64 pour Interbase Serveur mais je dois recompiler la librairie UDF en 64 et j'ai des problèmes les fonctions qui traite avec des pchar... J'ai en retour que le premier caractère ou une erreur:

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
 
unit MathFncs;
 
interface
 
function TestPChar(var Value: Double): PChar; cdecl; export;
...
 
implementation
 
uses
  Windows, SysUtils, ibexternals;
 
function TestPChar(var Value: Double): PChar;
begin
  result :='Test';
end;
...

Dans ce cas, j'obtiens 'T', si je mets autre chose soit un message d'erreur ou un 'T'...

Quelqu'un peut m'aider?

Merci d'avance!


Edit :

Ca progresse :

Code :

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

1
2
3
4
5
6
7
function TestPChar(var Value: Double): PAnsiString;
var
   Valeur:AnsiString;
begin
  Valeur := Format('%8.2m',[Value]);
  result := PAnsiString(Valeur);
end;

Avec ceci, j'ai la bonne valeur qui me revient mais de 255 caractères. Apparement le DLL 32 bits fait la même chose!

Je vais regarder toutes les fonctions que j'utilise et si je vois des erreurs, je reviendrai sur le forum.

[ShaiLeTroll]

PChar, PAnsiChar, PWideChar

J'ai en retour que le premier caractère ou une erreur:

Typique du Zéro de l'octet High du Wide considéré à tord comme un Zéro Terminal Ansi

[Paul TOTH]

function TestPChar(var Value: Double): PAnsiString;
var
Valeur:AnsiString;
begin
Valeur := Format('%8.2m',[Value]);
result := PAnsiString(Valeur);
end;[/code]

Avec ceci, j'ai la bonne valeur qui me revient mais de 255 caractères. Apparement le DLL 32 bits fait la même chose!

Je vais regarder toutes les fonctions que j'utilise et si je vois des erreurs, je reviendrai sur le forum.

alors tout ceci n'est pas un problème de bit mais d'Unicode manifestement, comme le dit Shai.

Ceci dit, la fonction TestPChar ci-dessus est horrible ! la variable locale Valeur est détruite en fin de fonction, retourner son adresse n'a pas de sens.

[vedge2000]

alors tout ceci n'est pas un problème de bit mais d'Unicode manifestement, comme le dit Shai.

Ceci dit, la fonction TestPChar ci-dessus est horrible ! la variable locale Valeur est détruite en fin de fonction, retourner son adresse n'a pas de sens.

Oui entièrement d'accord!

Pour la solution :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
..
  uses ib_util;
..
 
function AjouterTEST(const p: PAnsiChar): PAnsiChar; cdecl;
var
s: string;
begin
  s := (string(p))+'Test';
  Result := ib_util_malloc(Length(s) + 1);
  StrPCopy(Result, AnsiString(s));
end;}

Pour Interbase :

Code :

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

1
2
3
4
5
 
DECLARE EXTERNAL FUNCTION CHANGEMYSTRING
CSTRING(255) CHARACTER SET ISO8859_1
RETURNS CSTRING(255) CHARACTER SET ISO8859_1 FREE_IT
ENTRY_POINT 'AjouterTEST' MODULE_NAME 'FreeUDFLib.dll';