Udf Interbase 7.1

[DR.LECTER]

--------------------------------------------------------------------------------

HOLA A TODOS
TENGO ESTE CODIGO ESCRITO EN DELPHI ( CREANDO UNA DLL )


library Project1;
uses
SysUtils,
StrUtils,
Classes;
{$R *.res}
type
tibdate = record
days, frac : integer;
end;

function strzero( var n , t : integer ) : String ; cdecl;export;
var
ceros, entero_char : String;
begin
ceros := '000000000000000000000000000000';
entero_char := Trim( inttostr(n) );
Result := rightstr( ceros + entero_char, t);
end;

end.

Y EL *.DLL RESULTADO SE HA COPIADO EN EL DIRECTORIO DE INTERBASE \UDF\ EN EL SERVIDOR

EN LA BASE DE DATOS CREE UNA UDF DE LA SGTE MANERA

DECLARE EXTERNAL FUNCTION STRZERO_
INTEGER,
INTEGER
RETURNS CSTRING (255) FREE_IT
ENTRY_POINT 'strzero' MODULE_NAME 'project1.dll';

pero cuando escribro este codigo :

select strzero_( fid, 3) as pp from pr_cons
( fid es un campo de la tabla PR_CONS; 3 ES UN PARAMETRO )

AL COMPILAR TENGO ESTE ERROR

fmSQLEditor.Query:
Invalid token.
invalid request BLR at offset 63.
function STRZERO_ is not defined.
module name or entrypoint could not be found.

S.O.S SOCORRRO NECESITO SU AYUDA X FVR........
DE ANTEMANO LES AGRADEZCO.. A TODOS...
P.D. ESTOY CON INTERBASE 7.1

[jachguate]

En principio, tu función debiera retornar un PChar, y no un String.

Hasta luego.

[Efren2006]

Saludos

Tengo exactamente el mismo problema del Dr. Letter con las UDF de Interbase 7.1 , estoy trabajando actualmente con Delphi 6

[jachguate]

Ahora que veo nuevamente el código, veo que le falta la clausula exports a la dll, por ello es que no es visible desde fuera el punto de entrada de la función. Acoto que lo dicho anteriormente sigue siendo válido.

[Tal]

Ahora que veo nuevamente el código, veo que le falta la clausula exports a la dll, por ello es que no es visible desde fuera el punto de entrada de la función. Acoto que lo dicho anteriormente sigue siendo válido.

Para ser más concreto(a mi es que no me quedó claro)
te falta al final del codigo un trocito para expecificar que funciones se van a exportar:

Código Delphi [-]exports
strzero;


en tu caso.
A mi me faltaba eso y al ponerlo me ha funcionado.
Que sepas que me he tenido que registrar sólo para escribirte esto así que más vale que te funcione

Suerte.

[jachguate]

Hola Tal.

Que bueno que te has registrado.

Lamentablemente, has respondido casí dos años después de la última intervención de este hilo, cuya pregunta original data del 2004!!

Te lo comento porque probablemente el forista interesado ha logrado resolver el problema hace mucho tiempo, aunque el objetivo de los foros es que la información quede aquí para quienes puedan tener el mismo problema en el futuro. Seguramente estos agradecerán tu aportación, por lo que sigue siendo igual de válida.

Dicho esto, solo me resta decirte: ¡Bienvenido al ClubDelphi!

Hasta luego.

[ozegarra]

buenas tardes, yo baje de internet esta libreria "fudlib.dll" con varias funciones.
Las funciones me estuvieron funcionando bien desde la instalacion (hace mas de dos meses) hasta hoy que trate de modificar un store procedure (donde en algun momento hacia referencia a una de las funciones cargadas) y me sale el siguiente error al querer modificar el store.

Código SQL [-]
Invalid token.
Invalid request BLR at offset 65.
Function RIGHTS is not defined.
Module name or entrypoint could not be found.

Ojo que la modificacion que hice en el store no tiene nada que ver con la funcion, es en otra lina de codigo.

Lo raro es que desde mi aplicacion Delphi ejecuto ese store y no sale error, solo al querer modificar el store o ejecutar esa funcion en algun query.

Gracias por la ayuda.

Oscar