UDF no funciona en xp

[GustavoCruz]

Efectivamente,

Reinicié el servicio, instalé y desintalé firebird 2.1 y 2.5 para ver si era cuestión de versiones y nada. por lo que supese que debía de tratarse del SO ya que en 7 me funciona perfectamente, pero también pienso que eso no tiene nada que ver...,

actualmente tengo instalado firebird 2.5

Gracias por tu tiempo

Gustvo Cruz

[Casimiro Noteví]

Cada vez que instalas una versión volverás a dar de alta la udf, se supone

[GustavoCruz]

Efectivamente mi amigo Casimiro Notevi.

Me gustaría que me colaboren con esto, tomen el código que puse y compilen ustedes, quizas funcione...

Gracias por vuestra ayuda

[defcon1_es]

Hola. Varias cosas que yo tendría en cuenta:

1) Yo pondría en los uses a la unit ShareMem

Código Delphi [-]
unit Conversiones;  

interface  

uses Sharemem, ib_util, SysUtils, Classes;

Código Delphi [-]
library g_udf;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  Sharemem,
  SysUtils,
  Classes,
  Conversiones in 'Conversiones.pas',
  ib_util in 'ib_util.pas';

{$R *.res}
  exports    
    NumeroALetra;

begin

end.

2) El fichero g_udf.dll debe estar en la carpeta UDF de Firebird

3) Borra la definición de la función de tu base de datos y vuelve a darla de alta tal como sugiere jhonny

[GustavoCruz]

Hola amigo defcon1_es

esto es lo que me muestra ahora

Invalid data type, length, or value.
function A_LETRAS could not be matched.

la declaración en la base de datos es la siguiente:

Código SQL [-]
DECLARE EXTERNAL FUNCTION A_LETRAS
    DOUBLE PRECISION,
    CSTRING(10)
RETURNS CSTRING(600) FREE_IT
ENTRY_POINT 'NumeroALetra' MODULE_NAME 'g_udf';

Ya no se qué hacer...

Gracias por vuestro tiempo

[Casimiro Noteví]

Por qué no nos escribes paso a paso, exactamente, todo lo que haces. Ya sabes, 4 ojos ven más que 2. Y en este caso 400 ojos ven más que 2

[guillotmarc]

Te sería mucho más cómodo traducir este código Delphi a Transact-SQL y así ponerlo en un procedimiento almacenado.

De esta forma no te tendrás que preocupar de UDF's, lo tendrás siempre disponible en tu base de datos. No te tendrás que preocupar de distribuirlo en nuevas instalaciones, de si tu servidor corre en Windows o en Linux, de si será compatible con nuevas versiones de Firebird, etc. ... ...

Claro que esa traducción no es trivial, pero las ventajas sobre una UDF valen la pena.