En Xbase++ llama a una libreiria
Y LUEGO LLAMA A LA FUNCIONES DE LA LIBRERIA
EJEMPLO
nDll := DllLoad( "HLVDD.DLL")
IF nDll = 0
? ""
? "Cannot load HLVDD.DLL"
? ""
RETURN
ENDIF
HL_LOGIN = DllPrepareCall( nDLL, DLL_STDCALL, "HL_LOGIN")
HL_LOGOUT = DllPrepareCall( nDLL, DLL_STDCALL, "HL_LOGOUT")
HL_AVAIL = DllPrepareCall( nDLL, DLL_STDCALL, "HL_AVAIL")
HL_PORTINF = DllPrepareCall( nDLL, DLL_STDCALL, "HL_PORTINF")
HL_ACCINF = DllPrepareCall( nDLL, DLL_STDCALL, "HL_ACCINF")
HL_USERINF = DllPrepareCall( nDLL, DLL_STDCALL, "HL_USERINF")
HL_MAXUSER = DllPrepareCall( nDLL, DLL_STDCALL, "HL_MAXUSER")
HL_MEMINF = DllPrepareCall( nDLL, DLL_STDCALL, "HL_MEMINF")
HL_CODE = DllPrepareCall( nDLL, DLL_STDCALL, "HL_CODE")
HL_WRITE = DllPrepareCall( nDLL, DLL_STDCALL, "HL_WRITE")
HL_READ = DllPrepareCall( nDLL, DLL_STDCALL, "HL_READ")
HL_READBL = DllPrepareCall( nDLL, DLL_STDCALL, "HL_READBL")
HL_WRITEBL = DllPrepareCall( nDLL, DLL_STDCALL, "HL_WRITEBL")
HL_ABORT = DllPrepareCall( nDLL, DLL_STDCALL, "HL_ABORT")
HL_VERSION = DllPrepareCall( nDLL, DLL_STDCALL, "HL_VERSION")
HL_HLSVERS = DllPrepareCall( nDLL, DLL_STDCALL, "HL_HLSVERS")
HL_SELECT = DllPrepareCall( nDLL, DLL_STDCALL, "HL_SELECT")
HL_READID = DllPrepareCall( nDLL, DLL_STDCALL, "HL_READID")
LA DLLLOAD CARGA LA LIBRERIA, EN XAILER SE PUEDE CARGAR UNA LIBRERIA
"Jose F. Gimenez" <
jfgimenez@wanadoo.es> escribió en el mensaje
news:42ae9bb8$[email=
1@ozsrvnegro.ozlan.local...]
1@ozsrvnegro.ozlan.local...[/email]
> Pilo,
>
> > Tiene también para Cliper, pero como se añade las librerías en xailer
>
> Me temo que lo que tengas para Clipper no te servirá. Clipper es 16 bits,
y
> xHarbour/Xailer es 32 bits. A no ser que tengas lo fuentes y puedas hacer
> las modificaciones pertinentes, no te servirá.
>
> --
> Un saludo,
>
> José F. Giménez
>
>