Xailer & OZ Software

Hola a todos, tengo que llamar a una funcion de la API y viendo los post
del foro encontre esto :
Antonio,
La contribución de xHarbour What32 tiene algo al respecto. Del fichero
contribwhat32examplesimport.prg:
STATIC USER32
STATIC GDI32
STATIC COMCTL32
STATIC KERNEL32
STATIC WINSPOOL
STATIC WINMM
INIT PROCEDURE LoadLibs()
USER32 := LoadLibrary("USER32")
GDI32 := LoadLibrary("GDI32")
COMCTL32 := LoadLibrary("COMCTL32")
KERNEL32 := LoadLibrary("Kernel32")
WINSPOOL := LoadLibrary("WINSPOOL.DRV")
WINMM := LoadLibrary("WINMM")
RETURN
EXIT PROCEDURE FreeLibs
FreeLibrary(USER32)
FreeLibrary(GDI32)
FreeLibrary(COMCTL32)
FreeLibrary(KERNEL32)
FreeLibrary(WINSPOOL)
FreeLibrary(WINMM)
RETURN
// MCI
#define MCIERROR DWORD
#define MCIDEVICEID UINT
IMPORT WINMM FUNCTION BOOL mciExecute(LPCSTR cCmd ) // obsolete
IMPORT WINMM FUNCTION BOOL mciSendStringA(LPCSTR lpstrCommand,
LPSTR lpstrReturnString, UINT uReturnLength, HWND hwndCallback) AS
mciSendString
IMPORT WINMM FUNCTION BOOL sndPlaySoundA(LPCSTR pszSound, UINT
fuSound) AS sndPlaySound
IMPORT WINMM FUNCTION MCIERROR mciSendCommandA(MCIDEVICEID mciId,
UINT uMsg, DWORD dwParam1, DWORD dwParam2) AS mciSendCommand
IMPORT WINMM FUNCTION MCIDEVICEID mciGetDeviceIDA(LPCSTR pszDevice) AS
mciGetDeviceID
IMPORT WINMM FUNCTION MCIDEVICEID mciGetDeviceIDFromElementIDA(DWORD
dwElementID, LPCSTR lpstrType ) AS mciGetDeviceIDFromElementID
IMPORT WINMM FUNCTION BOOL mciGetErrorStringA(MCIERROR mcierr,
LPSTR pszText, UINT cchText) AS mciGetErrorString
// SPOOLER
IMPORT WINSPOOL FUNCTION BOOL ClosePrinter( HANDLE hPrinter )
IMPORT WINSPOOL FUNCTION BOOL EndDocPrinter(HANDLE hPrinter)
IMPORT WINSPOOL FUNCTION BOOL EndPagePrinter(HANDLE hPrinter)
Un saludo,
<antonio.ortega@puentelibros.com> escribió en el mensaje
news:424a8e23$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> En FW para llamar a una funcion dentro de una DLL de windows poniamos
DLL32
> Function NombredeLafuncion ( parametros ), como lo debo hacer con
Xailer ?.
>
> GPA.
>
> Antonio F. Ortega
>
>
Pero no tengo el comando IMPORT, de donde lo puedo sacar o si alguien me
puede pasar un ejemplo de como llamar a una funcion de a API se lo
agradecere. La funcion que tengo que llamar es CallNamedPipe.
Saludos Atte
Christian Assenza

Christian,
tienes que hacer los "wrappers" que necesites. Echa un vistazo a un mensaje
de René Flores de ayer mismo en el foro pro, que explica muy bien cómo se
usa el "sistema extendido" para hacer los "wrappers".
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

Jose F. Gimenez escribió:
> Christian,
>
> tienes que hacer los "wrappers" que necesites. Echa un vistazo a un mensaje
> de René Flores de ayer mismo en el foro pro, que explica muy bien cómo se
> usa el "sistema extendido" para hacer los "wrappers".
>
Muchas gracias por la celeridad, voy a buscar el mensaje