18 respuestas en este tema

[pcicom]

SALUDOS.. a Todos..

Esta vez recurro a ustedes ya que no he encontrado la solucion, lo extraño del caso es que esto ya lo habia realizado en proyectos ANTERIORES y con Bases de DATOS en Linux, de hecho en LINUX no existe el PROBLEMA, unicamente en WINDOWS..  debe ser algo que me falla en la declaracion de las FUNCIONES..

Bueno..

Necesito CREAR una UDF en FIREBIRD corriendo en WINDOWS.

Actualmente me marca el ERROR al INSTALAR una FUNCION

Invalid token.
invalid request BLR at offset 59.
function XSUMA1 is not defined.
module name or entrypoint could not be found.

Lo extraño del CASO es que la UDF la he probado haciendo su referencia y con un programa que estoy testeando pero no he encontrado el problema..  (ANEXO programa)..

Agradecere le puedan echar un OJO a ver que esta SUCEDIENDO..

He agregado funciones de FB_UTILS.dll , por ejemplo el ABS...  lo declaro y si FUNCIONA..

la DLL la copia al directorio de ...firebird\udf   


SALUDOS

[egostar]

Hola amigo, pues a mi si me funciona, te adjunto la imagen de lo que hizo.

Salud OS

Archivos adjuntos

•  1608_083164ad7336610a890d15609048f850fac4dce0.jpg   112,11KB   19 descargas

[pcicom]

El problema no esta ahi...  esta cuando la DECLARO en FIREBIRD he intento EJECUTARLA con
un

SELECT xsuma(100,50) from rdb$database;

ahi es donde me da el ERROR mencionado..

Invalid token.
invalid request BLR at offset 59.
function xsuma1 is not defined.
module name or entrypoint could not be found.

El programita de ARRIBA lo hice para checar si realmente estaba bien la DLL, que al parecer si esta bien.. pero en
FIREBIRD no funciona por alguna razon que me tiene vuelto LOCO... en linux no tengo ninguna BRONCA solo en WINDOWS con la DLL.. y la verdad no se que sea..

[egostar]

Ahhh 

Con razón se me hizo raro jajajajaja

Salud OS

[Wilson]

Corriste el scrpit declarando la UDF?

ejemplo

sql

DECLARE external FUNCTION XSUMA
	cstring(255)
	RETURNS cstring(255) free_it
	entry_point 'Xsuma' module_name 'TuDll';

[egostar]

Hola

He generado en mi IBExpert lo siguiente

sql

DECLARE EXTERNAL FUNCTION F_XSUMA1
    INTEGER,
    INTEGER
RETURNS INTEGER BY VALUE
ENTRY_POINT 'xsuma1' MODULE_NAME 'myudfs'

Ejecuto la sentencia

sql

SELECT xsuma1(10,5) FROM rdb$database

Y me muestra el siguiente error

An error was found in the application program input parameters for the SQL statement.
Dynamic SQL Error.
SQL error code = -804.
Function unknown.
XSUMA1.

Salud OS

[pcicom]

Si SI LO CORRI

sql

DECLATE EXTERNAL FUNCTION XSUMA1
    INTEGER,INTEGER
    RETURNS INTEGER
    ENTRY_POINT 'xsuma1' module_name 'myudfs';

DE HECHO en el ADJUNTO viene una muestra de la LIBRERIA y de un TESTEADOR de la DLL..
pero DECLARADA en FIREBIRD simplemente no FUNCIONA..

[egostar]

Asi lo hago pero no funciona tampoco.

sql

DECLARE EXTERNAL FUNCTION "xsuma1"
    INTEGER,
    INTEGER
RETURNS INTEGER BY VALUE
ENTRY_POINT 'xsuma1' MODULE_NAME 'myudfs'

Archivos adjuntos

•  1610_03c07c1c72e28a96008dcb71e0b955f3046634ea.jpg   79,63KB   10 descargas

[pcicom]

LO EXTRAÑO y QUE DESCARTA que SEA MI FIREBIRD es que si declaro una funcion de la libreria ib_UDF.dll

sql

DECLARE EXTERNAL FUNCTION abs 
	DOUBLE PRECISION
	RETURNS DOUBLE PRECISION BY VALUE
	ENTRY_POINT 'IB_UDF_abs' MODULE_NAME 'ib_udf';

y la EJECUTO

sql

SELECT abs(1000) FROM rdb$database

..........  CON ELLA SI FUNCIONA...

ENTONCES debo SUPONER que algo en la DLL no le permite reconocer el NOMBRE de las funciones contenidas.

[pcicom]

LO MISMO me INDICA a MI..

Archivos adjuntos

•  1612_3363069b558ee20899f67d41b4fb1ad1812cae44.jpg   87,01KB   8 descargas

[egostar]

Eso mismo pienso, la dll tiene algo que no le gusta a Frebird

Salud OS

[egostar]

Tengo otra UDF que si me pide parámetro, es raro

Salud OS

Archivos adjuntos

•  1614_c9df98eda683a8b0a67bad8d7fa1d0e12415b89b.jpg   73,02KB   9 descargas

[pcicom]

SI Alguien tiene una mini UDF hecha en DELPHI y funcionando en FIREBIRD en WINDOWS que pueda sacarnos de la DUDA, ya que existencialmente la DLL funciona..    JEJEJE me la bañe con eso de existencial.

[pcicom]

DE HECHO AMI SI ME PIDE E INDICA PARAMETROS...

Archivos adjuntos

•  1616_c3c9589a44e7a7052cb3d13b7d6d7ae93dc18dd5.jpg   35,78KB   5 descargas

[pcicom]

creo que es mas FACIL que alguien nos pasa una mini DLL que si FUCIONE en FIREBIRD P/WINDOWS.. 

[egostar]

creo que es mas FACIL que alguien nos pasa una mini DLL que si FUCIONE en FIREBIRD P/WINDOWS.. 

Yo creo que eso es lo mejor

Salud OS

[eduarcol]

A ver, el problema esta en la declaracion de la DLL, aparentemente Firebird tiene problemas con la clausula NAME, lo hice asi y funciono:

delphi

library myudfs;
 
uses
  Unitudf in '..\unitudf.pas';
 
Function F_XSUMA1(nV1,nV2:Integer):Integer; export;
begin
   F_XSuma1 := nV1 + nV2;
end;
 
 
exports F_XSUMA1;
 
begin
 
end.

[eduarcol]

Lo acabo de confirmar, el problema esta en la clausula NAME, así también funciona

delphi

library myudfs;
 
uses
  Unitudf in 'unitudf.pas';
 
exports
 
       F_XSUMA1,
       F_XSUMA2,
       F_XSUMA3,
       F_PORCENTAJE name 'PORCENTAJE',
       F_MASPORCENTAJE name 'MASPORCENTAJE',
       F_MENOSPORCENTAJE name 'MENOSPORCENTAJE',
       F_SINPORCENTAJE  name 'SINPORCENTAJE',
       ATRAZO  name 'ATRAZO',
       PENALIZACION name 'PENALIZACION',
       INTERES name 'INTERES',
       INTERES_A name 'INTERES_A',
       INTERES_M name 'INTERES_M';
 
begin
 
end.

[pcicom]

Gracias EDUARCOL..

Entonces DEBE o NO debe de IR... la clausula NAME...

Lo checo y te aviso...

GRACIAS..  CHAVOS...