![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
#1
|
|||
|
|||
Problemas con UDF
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
![]() 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. 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'; Código:
select SUS_IDUSUARIO from S_USUARIO WHERE SUS_IDUSUARIO = cast(F_FSSTRMID('123',1,1) as integer) ![]() Bueno de antemano muchas gracias
__________________
Edgar Talavera |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
|