Buen dia despues de estar en una ardua investigacion de las udf y darle un ojo al articulo de UDF de este foro, no puedo resolver este problema intento crear una udf que contiene un codigo siemple y sin chiste, como prueba para crear la libreria que necesito para mi aplicacion , pero no he podido con la prueba
, esto es lo que he hecho pero no encuentro porque no funciona
Esta es mi DLL
Código:
unit Unit1;
interface
function StrMid(pCadena : String; iIndex : Integer ; iNum : integer) : ShortString; cdecl; export;
implementation
function StrMid(pCadena : String; iIndex : Integer ; iNum : integer) : ShortString;
begin
result := copy(pCadena,iIndex,Inum);
end;
end.
y este es el codigo que utilizo en interbase
Código:
DECLARE EXTERNAL FUNCTION F_FSSTRMID
CSTRING(256) CHARACTER SET NONE, INTEGER, INTEGER
RETURNS CSTRING(256) CHARACTER SET NONE FREE_IT
ENTRY_POINT 'StrMid' MODULE_NAME 'fsStrMid';
esta es la prueba que hago
Código:
select SUS_IDUSUARIO from S_USUARIO WHERE SUS_IDUSUARIO = cast(F_FSSTRMID('123',1,1) as integer)
pero al momento de ejecutar esto , hace un shutdow y tengo que cerrar la consola , alguna idea
de lo que estoy haciendo mal o algun paso que halla omitido
Bueno de antemano muchas gracias