Two fine tuning to prev mail.
This is the complete .dif file tpscript.prg:
---
--- ori\tpscript.prg Mon Sep 22 08:51:46 2008
+++ tpscript.prg Fri Apr 23 19:39:00 2010
@@ -40,12 +40,12 @@
#include "PScript.ch"
#include "FileIO.ch"
-#ifdef __XHARBOUR__
+#ifdef __HARBOUR__
// 02.06.2005 - IBTC - changed for xHarbour Builder:
#xtranslate Method <Classname>:<x> => Method <x>
- #define DLL_STDCALL NIL
#include "hbclass.ch"
+ #include "Dll.ch"
#else
#include "Xbp.ch"
#include "Dll.ch"
@@ -242,7 +242,7 @@
::hDll := DllLoad("PScript.dll") // Handle of the .DLL
-if ::hDll == 0
+if Empty( ::hDll )
::nError := PSE_DLLNOTLOADED // DLL not loaded error
else
::nError := DllCall(::hDll, DLL_STDCALL, "PSInit")
@@ -3956,4 +3956,3 @@
Function PSShutDown()
Return NIL
---
And here's a corrected hbps32.hbc:
--- hbps32.hbc
incpaths=.
libpaths=lib/${hb_plat}/${hb_comp}
libs=hbps32
libs=..\contrib\hbxpp\hbxpp.hbc
---
With these changes it works here when
I select basic tests in the test .prg
I've found in the package.
Brgds,
Viktor
On 2010 Apr 23, at 19:26, Viktor Szakáts wrote:
> Hi,
>
> Pls try solution below.
>
> 1. Create new directory inside Harbour source tree: /examples/hbps32
> 2. Copy tpscript.prg and pscript.ch to the new dir.
> 3. Edit tpscript.prg and replace '__XHARBOUR__' with '__HARBOUR__'.
> 4. Create these two files in the new dir:
> --- hbps32.hbc
> incpaths=.
> libpaths=lib/${hb_plat}/${hb_comp}
>
> libs=hbps32
>
> ..\contrib\hbxpp\hbxpp.hbc
> ---
>
> --- hbps32.hbp
> -hblib
> -olib/${hb_plat}/${hb_comp}/hbps32
> -inc
>
> tpscript.prg
> ---
>
> 5. Build hbps32 lib:
> hbmk2 hbps32.hbp
> 6. Try it with test program (I don't have any):
> hbmk2 test.prg hbps32.hbc
>
> Tell us about the results.
>
> [ dllcall.c is not need for Harbour, and we have
> these features implemented in hbxpp lib. Notice,
> you'll need current Harbour for the above, for
> 2.0 it needs changes. ]
>
> Viktor
>
> On 2010 Apr 23, at 15:24, Siny wrote:
>
>> Hi All,
>>
>> I am totally beginner in Harbour. I tried to compile the PageScript 32 into
>> my old Clipper software that had been using the old version of it for
>> several years, but I get a lot of error messages about dllcall.c what is
>> compatible with xharbour.
>>
>> I am using XP Prof, HB2.0win+mingw.
>>
>> Do anybody have a harbour-compatible version? The PageScript demo is
>> downloadable from www.abeelabs.com. The crew of Abeelabs answered that they
>> are not familiar in Harbour.
>>
>>
>> Thanks and regards,
>>
>> Les Bely
>> Gyor, Hungary
>> _______________________________________________
>> Harbour mailing list (attachment size limit: 40KB)
>> [email protected]
>> http://lists.harbour-project.org/mailman/listinfo/harbour
>
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
