Page 1 of 2
give pointer in dll
Posted: Mon Jul 07, 2008 6:06 pm
by kajot
how may I give pointer as parameter to function in DLL
p1,p2 - pinter
err:=_OWersja(p1,p2)
...
...
???
declare DLL_TYPE_BYTE _OWersja(DLL_TYPE_LPCSTR CFILE1, DLL_TYPE_LPCSTR CFILE2) in WinIP.Dll
Posted: Mon Jul 07, 2008 6:15 pm
by Antonio Linares
Kajot,
strings are automatically managed as pointers (their addresses is supplied, not their content).
For numbers you have to supply them by reference using @
If the function is not working as expected, its a good idea to access it using C code instead of using DLL FUNCTION, just to locate where the problem may come from. Just implement a C wrapper using pragma BEGINDUMP ... ENDDUMP. There are many examples in these forums
Posted: Mon Jul 07, 2008 6:31 pm
by kajot
any samples
Posted: Wed Jul 09, 2008 11:17 pm
by Antonio Linares
Here you have a working example that shows how strings are managed as pointers:
Code: Select all | Expand
#include "FiveWin.ch"
function Main()
local cIn := "Hello world!"
local cOut := Space( Len( cIn ) )
Test( cIn, cOut )
MsgInfo( cOut )
return nil
#pragma BEGINDUMP
#include <hbapi.h>
HB_FUNC( TEST )
{
strcpy( hb_parc( 2 ), hb_parc( 1 ) );
strupr( hb_parc( 2 ) );
}
#pragma ENDDUMP
Posted: Thu Jul 10, 2008 7:01 pm
by kajot
thans
I get error
Missing prototype for 'strupr'
Posted: Thu Jul 10, 2008 7:19 pm
by Antonio Linares
#include <hbapi.h>
char * strupr( char * );
...
Posted: Thu Jul 10, 2008 8:33 pm
by kajot
next error
unresolved external symbol '_strupr'
Posted: Thu Jul 10, 2008 10:45 pm
by Antonio Linares
What C compiler are you using ?
Here it works fine using Borland C 5.5
Posted: Fri Jul 11, 2008 4:49 am
by kajot
I am usingv
xHarbour Compiler build 1.0.0 (SimpLex)
Copyright 1999-2007,
http://www.xharbour.org http://www.harbour-project.org/
Posted: Fri Jul 11, 2008 7:12 pm
by Antonio Linares
Both Harbour and xHarbour generate a C output file that has to be compiled with a C compiler.
Are you using Borland or Microsoft C compiler to compile the output .C ?
Are you using xHarbour commercial ?
Posted: Sat Jul 26, 2008 5:57 am
by kajot
yes, I am using commercial
Posted: Sat Jul 26, 2008 8:17 am
by Antonio Linares
Kajot,
Then add this code to the PRG:
Code: Select all | Expand
#pragma BEGINDUMP
#include "string.h"
#include "ctype.h"
char * strupr( char * string )
{
char c, * p = string;
while( ( c = * p ) != '\0' )
* ( p++ ) = _toupper( c );
return string;
}
#pragma ENDDUMP
Posted: Sun Jul 27, 2008 8:53 am
by kajot
thanks
I got worning
missing prototype for '_toupper'
Posted: Sun Jul 27, 2008 8:58 am
by Antonio Linares
Try this one:
char _toupper( char );
Code: Select all | Expand
#pragma BEGINDUMP
#include "string.h"
#include "ctype.h"
char _toupper( char );
char * strupr( char * string )
{
char c, * p = string;
while( ( c = * p ) != '\0' )
* ( p++ ) = _toupper( c );
return string;
}
#pragma ENDDUMP
Posted: Sun Jul 27, 2008 9:05 am
by kajot
I change
toupper(c)
and is OK
but I got worning in
declare DLL_TYPE_BYTE _OWersja(DLL_TYPE_LPCSTR cfile1, DLL_TYPE_LPCSTR cfile2) in WinIP.Dll
syntax error: "parse error at 'CFILE1'"