Pb de creation UDF sous Delphi

**dehorter olivier** · 31/12/2007, 13h06

Bonjour a tous

J'essaye de creer des UDF sous Delphi pour les utiliser sous FIREBIRD 2.0 (en utilisant le modele trouve sur : http://www.firebirdsql.org/index.php...&id=geldenhuis)

Voici le code delphi :
La libraire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
library UDF_Olivier;
 
uses
  UDF in 'UDF.pas';
 
{$R *.res}
 
exports
   UDF_Test,
   UDF_Test1;
begin
end.

et l'unite associee est :

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
20
21
22
23
24
25
26
27
28
29
30
 
unit UDF;
 
 
interface
uses
  SysUtils,
  Classes;
 
 
function UDF_Test(var
Width,Height:Integer):Integer; stdcall;
 
function UDF_Test1(var
Entree:pChar):pChar;  stdcall;
 
implementation
function UDF_Test(var
Width,Height:Integer):Integer;
begin
   Result:=Width+Height;
end;
 
function UDF_Test1(var
Entree:pChar):pChar;
begin
   Result := Pchar(UpperCase(String(Entree)));
end;
 
end.

La compilation ne pose pas de probleme et je stocke la DLL generee dans le repertoire 'UDF' de Firebird

Je declare l'UDF (test1) dans ma base avec :

Code :

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

1
2
3
4
DECLARE EXTERNAL FUNCTION TEST1
  CSTRING(80) CHARACTER SET NONE
RETURNS CSTRING(80) CHARACTER SET NONE
ENTRY_POINT 'UDF_Test' MODULE_NAME 'UDF_Olivier.dll';

Mais lorsque j'essaye d'utiliser cette fonction dans une requete ou PS (ex :

select test1(b_bagueur.prenom) from b_bagueur

qui devrait afficher le prenom en majuscule m'indique

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

Quelqu'un a t'il une idee ?

merci d'avance

Olivier

**Cl@udius** · 31/12/2007, 13h20

Salut

Est-ce une erreur de frappe, car l'ENTRY_POINT ne devrait-il pas être 'UDF_Test1' ?

De plus j'ajouterais un FREE_IT sur le RETURNS CSTRING.

@+ Claudius

**dehorter olivier** · 31/12/2007, 13h40

Grrr on ne verifie jamais assez ses messages

Il y a bien une faute d'orthographe.

J'ai modifie par reference en FEEE_IT et ca ne change rien !!

**Cl@udius** · 31/12/2007, 13h49

A priori je ne vois pas de problème.

As-tu testé ta DLL avec un petit exe test sous Delphi ? Pour s'assurer que tes 2 fonctions sont correctes.

As-tu vérifié le paramètre UDFAccess de firebird.conf qu'il ne soit pas sur None. Des fois que ...

@+ Claudius