create a pcode dll

[Carles]

Antonio,

I'm thinking that's a good sample, and i have curiosity for the correct use and compiling. The sample dll maybe can be:

Code: Select all  Expand view

MyDll.dll

Function OneParam( aData )
*-------------------------
   LOCAL nI
   LOCAL nTotal := Len(aData)

   FOR nI := 1 TO nTotal

      MsgInfo( aData[ nI ][ 1 ]               + CRLF + ;
               aData[ nI ][ 2 ]               + CRLF + ;
               Str( aData[ nI ][ 3 ] )        + CRLF + ;
               cValToChar( aData[ nI ][ 4 ] ) + CRLF + ;
               DToC( aData[ nI ][ 5 ] )          

   NEXT

RETU .T.

[don lowenstein]

Antonio,

I am using the samples testdllp.prg and pcodell.prg
The pcodedll.prg is giving me the following when I try to make with the buildhdp.bat

Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN___CLSINST' referenced from T:\FWH\SAMPLES\PC
ODEDLL.OBJ
Error: Unresolved external '_HB_FUN_PCOUNT' referenced from T:\FWH\SAMPLES\PCODE
DLL.OBJ
Error: Unresolved external '_HB_FUN_HB_APARAMS' referenced from T:\FWH\SAMPLES\P
CODEDLL.OBJ

Any help is greatly appreciated.

[Antonio Linares]

Don,

Have you modified buildhdp.bat to call xHarbour instead of Harbour ?

[don lowenstein]

Thank you for your prompt response - can we create a pcode dll in xharbour?

[Antonio Linares]

Don,

Yes, they can be created with xharbour too.

But buildhdp.bat has to be modified to call xharbour.exe and use the xharbour libraries.

[don lowenstein]

Antonio,

Thank you for all of your assistance - we have been successful in creating a pcode dll passing parameters as needed.

Here is what we have -

xHarbour calling exe:

Code: Select all  Expand view

function Main()
local dllret, dparm := date(), lparm := .t.
local aparm := {'a', date(), 4321,.t.,{'c'}}
local hDll := LoadLibrary( "mypdll.dll" )
private p1
m->p1 := 'this is a private var'
altd(1)
altd()
//**HB_LibDo( "DLLInit" )
dllret := HB_LibDo( "mydllFunc", {'tstparm1', 'aparm2', 1234, dparm, lparm, aparm } )
? dllret
return .t.


xHarbour pcode dll -

Code: Select all  Expand view

function mydllFunc( aparm )
local i := 0
altd(1)
altd()
? m->p1
for i := 1 to len(aparm)
  ? aparm[i]
next
return i


Once again thank you for your help

[Antonio Linares]

Don,

Very good

[Carles]

Don,


In your example, where is HB_LibDo() ?

[Otto]

Hello Antonio,

Could you please instruct me how to set up the debugger.
Thanks in advance
Otto


>Is the debugger fixed in the Latest version of xHarbour1.0?
>We have NOT upgraded do to the lack of a debugger.
>
>The xHarbour debugger is properly working with FWH 8.12 and the xHarbour build that FiveTech provides:

[Antonio Linares]

Otto,

Please build FWH\samples\altd.prg this way:

buildh.bat altd /b

[don lowenstein]

HB_LibDo() is a Harbour function.

We have also experienced some Debugger issues in xHarbour v1.0

It seems that the f7 - run to cursor, and f9 - set break do not work with the xHarbour v1.0, as in the previous versions.