FiveTech Software tech support forums

... - 1 ) + ")"   oQry     := ::Query( cExecute )   ::NextResult()RETURN oQry ReturnCall (cProcName,aParameters) oServer:ReturnCall("busca_clientes",{ cCodClie }) En tu caso es una lista, muestranos un ejemplo y el storeproceure ...

... // MessageBox( 0, "DLL unloaded - ", "DLL exit", 0 ); break; } return TRUE; } void pascal __export HBDLLENTRY( char * cProcName ) { hb_itemDoC( cProcName, 0 ); } void pascal __export HBDLLENTRY2( char * cProcName, PHB_ITEM pParam1, PHB_ITEM pParam2 ) { hb_itemDoC( cProcName, ...

... cProcName>],[<nProcLine>])->oError ErrorBlock([<bErrorHandler>])->bCurrentErrorHandler ErrorLevel([<nNewReturnCode>])->nCurrentReturnCode ...

... BEGINDUMP #include <windows.h> #include <hbapi.h> #include <hbapiitm.h> __declspec( dllexport ) LONG pascal DOPROC( char * cProcName, char * cParam ) { PHB_ITEM pItem = hb_itemPutC( NULL, cParam ); if( cProcName ) { hb_itemDoC( cProcName, 1, ( PHB_ITEM ) pItem, 0 ); hb_itemRelease( ...

> We can implement it in the function HBDLLENTRY() itself

void pascal __export HBDLLENTRY1( char * cProcName, PHB_ITEM pParam1 )
{
hb_itemDoC( cProcName, 1, pParam1 );

if( HB_ISBYREF( pParam1 ) )
hb_itemPutC( pParam1, hb_retc( -1 ) ); // -1 mean the value returned from cProcName
}

... for each function in the DLL? You can implement several functions for each number of params to pass: void pascal __export HBDLLENTRY1( char * cProcName, PHB_ITEM pParam1 ) { hb_itemDoC( cProcName, 1, pParam1 ); } void pascal __export HBDLLENTRY2( char * cProcName, PHB_ITEM pParam1, PHB_ITEM ...

... está devolviendo un LONG (un número de 32 bits) y además estas recogiendo como número la fecha que le das: return hb_itemGetNL( hb_itemDoC( cProcName, 1, pParam1 ) ) ; puesto que recibes una fecha, primero debes decidir en que formato la vas a usar. Uno sencillo es "AAAAMMDD", ...

... MessageBox( 0, "DLL unloaded", "DLL exit", 0 ); break; } return FALSE; } void pascal __export HBDLLENTRY( char * cProcName ) { hb_itemDoC( cProcName, 0 ); } void pascal __export HBDLLENTRY2( char * cProcName, PHB_ITEM pParam1, PHB_ITEM pParam2 ) { hb_itemDoC( cProcName, ...

... MessageBox( 0, "DLL unloaded", "DLL exit", 0 ); break; } return FALSE; } void pascal __export HBDLLENTRY( char * cProcName ) { hb_itemDoC( cProcName, 0 ); } void pascal __export HBDLLENTRY2( char * cProcName, PHB_ITEM pParam1, PHB_ITEM pParam2 ) { hb_itemDoC( cProcName, ...

... RPC in HBNETIO protocol + added the following client functions: check if function/procedure exists on the server side: NETIO_PROCEXISTS( <cProcName> ) -> <lExists> execute function/procedure on server the side, do not wait for confirmation: NETIO_PROCEXEC( <cProcName> ...

Dave,

> I have my C++ DLL calls working very well

very good

pResult = hb_itemDoC( cProcName, 3, pItem1, pItem2, pItem3, 0 );

Dave,

You missed two "*" here:

HB_EXPORT char * PASCAL _export HBDLLSTRING4( char * cProcName, char * cText1, char * cText2 )

... that the DLL will work outside of harbour. Here is my first attempt at my c code. It is very incomplete and compiles with the expected errors of cProcname, pitem1, and pitem2 Parameter is never used in function HBDLLSTRING2. #include <windows.h>#include <stdio.h>int __declspec(dllimport) ...

Dave,

Change this line this way:

HB_EXPORT char * PASCAL HBDLLSTRING2( char * cProcName, LONG pItem1, LONG pItem2 )

... working (once the bug fix that I described is applied). I just missed to use __export in maindll.c :-) LONG PASCAL __export HBDLLENTRY2( char * cProcName, LONG pItem1, LONG pItem2 ) Here you have the DLL to test it (using FWH\samples\babu.prg): http://www.mediafire.com/?sharekey=d0453478149576bfe7c82ed4b8f0c380c56966ad7665c154c95965eaa7bc68bc