Xailer & OZ Software

Martin
Yo uso PageScript como DLL con Harbour y para llamar la dll

#ifdef __XHARBOUR__
#xtranslate Method <Classname>:<x> => Method <x>
#include "hbclass.ch"
#include "Dll.ch"
#else
#define DLL_STDCALL NIL
#include "xailer.ch"
#include "Dll.ch"
#endif
::hDll:= DllLoad("PScript.dll") // Handle of the .DLL
IF Empty( ::hDll )
::nError := PSE_DLLNOTLOADED // DLL not loaded error
else
::nError := DllCall(::hDll, DLL_STDCALL, "PSInit")
if ::nError == PSE_NOERROR
DllCall(::hDll, DLL_STDCALL, "PSSetCoorSystem",PS_TOPLEFT)
endif
endif

Un Saludo
GABO

On 12/11/2012 5:06 PM, Gabriel Ornelas wrote:
> Martin
> Yo uso PageScript como DLL con Harbour y para llamar la dll
>
> #ifdef __XHARBOUR__
> #xtranslate Method <Classname>:<x> => Method <x>
> #include "hbclass.ch"
> #include "Dll.ch"
> #else
> #define DLL_STDCALL NIL
> #include "xailer.ch"
> #include "Dll.ch"
> #endif
>
> ::hDll:= DllLoad("PScript.dll") // Handle of the .DLL
> IF Empty( ::hDll )
> ::nError := PSE_DLLNOTLOADED // DLL not loaded error
> else
> ::nError := DllCall(::hDll, DLL_STDCALL, "PSInit")
> if ::nError == PSE_NOERROR
> DllCall(::hDll, DLL_STDCALL,
> "PSSetCoorSystem",PS_TOPLEFT)
> endif
> endif
>
>
> Un Saludo
> GABO
Gracias Gabriel.
Ya lo habia resuelto.
Puedes ver el post en el Foro Pro
En ese código que muestras , estas incluyendo la libreria hbxpp.lib en
el proyecto ?
Saludos

No incluyo la libreria de xHarbour. unicamente uso Harbour