Problème de création d'udf [Résolu]

[devalender]

Bonjour à tous

j'ai hésité un peu avant de poster ici, mais dans les cas je serai redirigé en fonction de vos conseils:
voici le code delphi de l'udf (code emprunter dans la faq):

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
library Madll;
uses
  SysUtils,
  windows,
  Classes;
{$R *.res}
FUNCTION ib_util_malloc(l: integer): pointer; cdecl; external 'ib_util.dll';
FUNCTION ChangeMyString(const p: PChar): PChar; cdecl;
var
s: string;
begin
s := extractfilename(string(p));
Result := ib_util_malloc(Length(s) + 1);
StrPCopy(Result, s);
end;
begin
end.

Voici la déclaration dans firebird :

Code :

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

voici ma requête d'appel à l'UDF :

Code :

SELECT CHANGEMYSTRING(champ15) FROM MESINFORMATIONS

voici mon code d'erreur :

Invalid token.
Invalid request BLR at offset 63.
Function CHANGEMYSTRING is not defined.
Module name or entrypoint could not be found.

j'ai mis ma dll dans le dossier UDF de firebird et j'ai rédémarer mon serveur !

ou ai je péché ?

Merci à tous

[JustMe]

il te manque :

Code :

1
2
3
4
exports 
  ChangeMyString;
begin
end.

pour que ta fonction soit utilisable par les programmes appelant, sinon elle est local.

[devalender]

Effectivement ! merci