I create a pudf.dll library an put in UDF subdirectory of firebird installation (where you can find other UDFs)
after this I use IBExpert to run the script DECLARE EXTERNAL FUNCTION pround DOUBLE PRECISION, INTEGER RETURNS DOUBLE PRECISION BY VALUE ENTRY_POINT 'pround' MODULE_NAME 'pudf'; it run ok, I find another udf under functions category with paremeter set correctly Codebue Fabio .-----------------------------. _ \ __| _|| __/____|\__ \ _ \ _| _| _| ____/\___/_| \__| P-Soft di Codebue Fabio & C. sas via B.Storti, 19 24060 - Chiuduno - BG Italy Phone: +39.030.839435 Fax: +39.030.5100306 Mobile: +39.348.3515786 .-----------------------------. Web : www.p-soft.biz EMail: [EMAIL PROTECTED] -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Michael Van Canneyt Sent: Thursday, March 13, 2008 9:52 AM To: [EMAIL PROTECTED]; FPC-Pascal users discussions Subject: Re: [fpc-pascal] Firebird UDF On Thu, 13 Mar 2008, Codebue Fabio - P-Soft wrote: > This is my UDF source > > library pudf; > {$mode objfpc}{$H+} > uses > Classes; > > function pround(var valore: real; ndec: integer):real;export; > var > i: integer; > risultato: real; > ndivisore: integer; > begin > risultato:= valore; > ndivisore:= 1; > for i:= 1 to ndec do > begin > risultato:= risultato*10; > ndivisore:= ndivisore*10; > end; > result:= round(risultato)/ndivisore; > end; > > exports > pround name 'pround'; > > begin > end. > > but after insert into my fdb with instruction > > DECLARE EXTERNAL FUNCTION pround > DOUBLE PRECISION, INTEGER > RETURNS DOUBLE PRECISION BY VALUE > ENTRY_POINT 'pround' MODULE_NAME 'pudf'; > > if I use it with an instruction like this > > select round(123.1233, 2) as nrounded from rdb$database > > I have back this error > > Invalid token. > invalid request BLR at offset 59. > function PROUND is not defined. > module name or entrypoint could not be found. > > do you have some idea regarding this error? Where did you put the library, what is the library name ? Michael. _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
