Pb de creation UDF sous Delphi [Résolu]

[dehorter olivier]

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 :

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 :

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 :

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]

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]

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]

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

[dehorter olivier]

Je vais tester les 2 fonctions, mais je vois peu de raisons quelles ne marchent pas ...

pour le firebird.conf

c'est ecrit

#udfAccess = Restrict UDF

est ce un Pb ?

----
J'ai teste les fonctions : pas de PB

[Cl@udius]

Envoyé par dehorter olivier

est ce un Pb ?

C'est l'option par défaut, l'accès aux UDFs est restreint au sous-dossier UDF de Firebird. Donc c'est OK.

[Cl@udius]

Re,

Ce n'est pas un pb Firebird mais Delphi !

Code :

1
2
function UDF_Test1(const Entree: PChar): PChar;  stdcall;

Pourquoi var ?!!

@+ Claudius

[dehorter olivier]

je ne sais pas; c'etait indique sur le tutorial (adresse au debut de mon message)

en tout cas en le remplacant par CONST ca ne change rien !!!!

d'autres idees ?

[makowski]

quelle version de Windows ?

[dehorter olivier]

Windows XP et 2000

en delphi 7 une ideeeeeee


en tout cas bon reveillon

[dehorter olivier]

Bonne annee a tous

j'ai retente aujourd'hui, mais le message d'erreur est different !!!!


j'ai lance :

Code :

SELECT test1('fff') FROM rdb$database;

ca devrait renvoyer 'FFF'

et je recois ca comme message d'erreur

Unsuccessful execution caused by system error that does not preclude successful execution of subsequent statements.
return data type not supported

de nouvelles idees ?

olivier

PS : je n'ai rien change au code DELPHI de l'UDF

[Cl@udius]

Salut et bonne année.

Envoyé par dehorter olivier

PS : je n'ai rien change au code DELPHI de l'UDF

J'ai créé ta DLL (avec const et non var) , déclaré la fonction Test1, et cela fonctionne sans souci.



@+

[dehorter olivier]

salut


J'ai auss mis CONST

mais surtout j'ai ferme le moteur 'FIREBIRD' puis l'ai rouvert et la ca marche

Donc il semble que pour les modification de la DLL soit prise en compte il faille rebooter le serveur FIREBIRD

i am happy

merci

a+
olivier