Librerias para crear UDF's para FireBird

[armadillo]

Colegas del Foro,
Estoy  empezando a hacer mis primeros pinitos programando librerias, y
las  estoy  haciendo en Lazarus/FreePascal, ya que yo utilizo Firebird
con  Linux, y Lazarus me da la ventaja de poder compilar en varios SO.
Bien, no he tenido mucha suerte con el tema, asi que pregunto a ver si
alguien podría darme una mano.
Buscando  información  en  Internet,  cosa  que  mucho no encontré (en
castellano por supuesto), he llegado a crear esto:

library MisUDFs;

{$mode objfpc}{$H+}

uses
  Classes;

function Duplicar(var valor:real):real;export;
begin
  result:=valor*2;
end;

exports
Duplicar name 'Duplicar';

begin
end.

Como  ven es una simple libreria con una sola funcion llamada Duplicar
que simplemente toma un valor y lo multimplica por 2 y listo.

Luego  publique esta UDF en Firebird 1.5 (la que uso), de la siguiente
manera:

DECLARE EXTERNAL FUNCTION DOBLE
    DOUBLE PRECISION
    RETURNS DOUBLE PRECISION BY VALUE
    ENTRY_POINT 'Duplicar' MODULE_NAME 'libMisUDFs';

Hasta  aqui  todo  perfecto, ningun error, luego para probar la UDF en
Firebird, ejecute la siguiente sentencia:

SELECT
  precio,
  doble(precio)
FROM ventaDET

pero el resultado no es el deseado, lo que sale es lo siguiente:
  PRECIO  DOBLE
  ------  -----
 698.940  0.000
 412.790  0.000
 .......  .....
 123.010  0.000

Como ven en la columna DOBLE siempre obtengo el resultado 0.000.
Puede  ser  que  el  problema  este en los tipos de datos, cosa que yo
realmente  no  tengo  claro,  si en este caso en FreePascal utilizo un
dato de tipo real, que tipo de dato debería utilizar en FireBird?



Disculpen  si  este  no  es la lista adecuada para hacer esa consulta,
pero  se  que  hay  gente muy capacitada en la lista que utiliza este
tipo de herramientas.

Desde ya muchas gracias

--
Saludos,
 Walter                          mailto:armadillo2003@yahoo.es

[Mario]

Colegas del Foro

Hola

Estoy  empezando a hacer mis primeros pinitos programando librerias, y
las  estoy  haciendo en Lazarus/FreePascal, ya que yo utilizo Firebird
con  Linux, y Lazarus me da la ventaja de poder compilar en varios SO.

Esa ventaja suele ser mayor cuando se utiliza un lenguaje algo más portable. Por ejemplo, C/C++

Buscando  información  en  Internet,  cosa  que  mucho no encontré (en
castellano por supuesto)

Pues tienes información en castellano muy cerca de aquí, en el artículo Interbase - Desarrollo de UDF sobre Linux, de Eduardo Bottini, que encontrarás en http://www.grupoalbor.com/delphi/?opc=articulos

he llegado a crear esto:

Visto por encima, falta...

function Duplicar(var valor:real):real;export;

... el convenio de llamada, que debe ser cdecl.

function Duplicar(var valor:real):real; cdecl; export;
begin
  result:=valor*2;
end;

Saludos
Mario