como usar DLL

mario.angelini1 · Mensaje por **mario.angelini1** » Lun Abr 06, 2009 8:31 pm

Boa tarde,
Xailer 2:
Se construo uma DLL somente com FUNCTION(), como faço para chamar
a funcão da DLL?
Ex FUNC.DLL:
FUNCTION X001()
RETURN(RLOCK())
FUNCTION X002()
RETURN(FLOCK())
FUNCTION X003()
RETURN(NETERR())
Como chamar qualquer uma destas funçíµes a partir do programa?
Estudei em Xailer2Samples mas não econtrei a solução:
LOCAL nHandle
nHandle := HB_LibLoad( "FUNC.dll" )
* TFormInDLL():New(Self):ShowModal()
HB_LibFree( nHandle )
Grato
Mário
www.eMeAsOfT.com.br

Mensaje por **jfgimenez** » Lun Abr 06, 2009 8:44 pm

Mário,
tienes que declarar las funciones que quieras llamar de la dll como DYNAMIC.
P.ej.:
DYNAMIC X001, X002, X003
y después las puedes llamar como cualquier otra función:
LOCAL nHandle
nHandle := HB_LibLoad( "FUNC.dll" )
X001()
X002()
X003()
HB_LibFree( nHandle )
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

mario.angelini1 · Mensaje por **mario.angelini1** » Lun Abr 06, 2009 9:09 pm

Jose, funcionou!!
Gracias.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escreveu na mensagem
news:49da4d7e$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Mário,
>
> tienes que declarar las funciones que quieras llamar de la dll como
> DYNAMIC. P.ej.:
>
> DYNAMIC X001, X002, X003
>
> y después las puedes llamar como cualquier otra función:
>
> LOCAL nHandle
> nHandle := HB_LibLoad( "FUNC.dll" )
>
> X001()
> X002()
> X003()
> HB_LibFree( nHandle )
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info
>