Harbour C-Wrapper Help

[Bill Simmeth]

Might someone help me with the C-wrapper syntax? I have looked at the Harbour website for documentation, but could find none on the c-wrappers.

I have the following code so far. I need to return the second element of the structure "ScanFindInfo". The second element is a string.

Code: Select all  Expand view  RUN

#pragma BEGINDUMP

#include <hbapi.h>
#include <windows.h>
#include <scancapi.h>

HB_FUNC( FindScanner )
{
   SCAN_FINDINFO ScanFindInfo;
   HANDLE hFindHandle;
   DWORD dwResult;

   SI_INIT( &ScanFindInfo );
   dwResult = SCAN_FindFirst( &ScanFindInfo, &hFindHandle );
}

#pragma ENDDUMP

Thanks in advance!

[pawelu]

Bill,

try this:

Code: Select all  Expand view  RUN

dwResult = SCAN_FindFirst (&ScanFindInfo, &hFindHandle);
hb_retc (WideToAnsi (ScanFindInfo.szPortName)); // conversion for Unicode format


Pawel

[Antonio Linares]

Pawel,

Your code will produce memory leak. This is needed:

Code: Select all  Expand view  RUN

char * p;

dwResult = SCAN_FindFirst (&ScanFindInfo, &hFindHandle);
p = WideToAnsi (ScanFindInfo.szPortName);
hb_retc( p );
hb_xfree( p );


[Bill Simmeth]

Pawel and Antonio thank you for the hints.

Antonio, is there a reference on the wrappers, for help on things like hb_parn--() ?

[Antonio Linares]

Bill,

Harbour "extend system" is fully compatible with Clipper, so you can check a Clipper manual like this one:
http://www.ousob.com/ng/cltech/ng242.php