Hello Rossine,
This functions are for a special need for Shum, and in no way
are required in a normal Harbour programming session.
Bellow you'll find a sample that illustrates of what they do.
On Mar 29, 2010, at 8:04 AM, Rossine wrote:
>
> Hi,
>
> I'm trying to use the function of you and me errors occur below:
My fault, a missed header ("hbapiitm.h").
>
> [CODE]
[snip]
<prg>
FUNCTION Main()
LOCAL s
LOCAL p
s := "a simple string..."
p := String2Pointer( s )
? "string:", s
? "pointer:", p
? "String from pointer:", Pointer2String( p )
WAIT
RETURN NIL
#pragma begindump
#include "hbapi.h"
#include "hbapiitm.h"
HB_FUNC( STRING2POINTER )
{
PHB_ITEM s = hb_param( 1, HB_IT_STRING );
if( s )
hb_retptr( (void *) hb_itemGetCPtr( s ) );
}
HB_FUNC( POINTER2STRING )
{
PHB_ITEM p = hb_param( 1, HB_IT_POINTER );
if( p )
{
PHB_ITEM s = hb_itemNew( NULL );
PHB_ITEM n = hb_param( 2, HB_IT_NUMERIC );
hb_itemPutCL( s, hb_itemGetPtr( p ), n ? hb_itemGetNI( n ) :
strlen( hb_itemGetPtr( p ) ) );
hb_itemReturnRelease( s );
}
}
#pragma enddump
<prg>
best regards,
Teo
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
