FiveTech Support Forums

#pragma BEGINDUMP

   #include "windows.h"

   int  WINAPI PEA_SamExeNhiQuery(LPSTR cHostname, int nPort, LPSTR cBuscode, int nCom, LPSTR cDocid, LPSTR cPatdid, LPSTR cPatbirth);
   void WINAPI PEA_GetMsg(LPSTR cBuffer,int * nLen );

   HB_FUNC( PEA_SAMEXENHIQUERY )
   {
     LPSTR  cHostname = hb_parc(1) ;
     int    nPort     = hb_parni(2);
     LPSTR  cBuscode  = hb_parc(3) ;
     int    nCom      = hb_parni(4);
     LPSTR  cDocid    = hb_parc(5) ;
     LPSTR  cPatdid   = hb_parc(6) ;
     LPSTR  cPatbirth = hb_parc(7) ;
     int    nErrCode ;

     nErrCode = PEA_SamExeNhiQuery(cHostname,nPort,cBuscode,nCom,cDocid,cPatdid,cPatbirth ) ;

     hb_retni( nErrCode );
   }

   HB_FUNC( PEA_GETMSG )
   {
     LPSTR  cBuffer = hb_parc(1);
     long   nLen    = hb_parni(2);
     PEA_GetMsg( cBuffer, &nLen );
   }

#pragma ENDDUMP

#pragma BEGINDUMP

   #include "windows.h"
   #include "hbapi.h"
   ...