FiveTech Software tech support forums

FUNCTION FECHA_LEITOR()

   oTimerVendas:Deactivate()

   Fechar_Porta()

RETURN( .T. )

FUNCTION Fechar_Porta()

   Fechar_Leitura()

RETURN NIL

FUNCTION Fechar_Leitura()

RETURN UNINT_PORT(nComm)
 

short int ReadComm( LPCOMDATA pComm, char far * lpvBuf, short int cbRead, int iMilliSeconds )
{
   short int read;
   clock_t time = clock();

   for( read = 0; read < cbRead && pComm->comtailbuf != pComm->comheadbuf; read++ )
   {
      if( iMilliSeconds && ( ( ( clock() - time ) > iMilliSeconds ) > 60 ) )
        exit;
    
      lpvBuf[ read ] = pComm->combuf[ pComm->comtailbuf ];
      pComm->comtailbuf++;
      if( pComm->comtailbuf > COMBUFSIZE - 1 )
         pComm->comtailbuf = 0;
   }

   return read;
}

HB_FUNC( READCOMM ) //  ( nId, @ cBuffer ) --> nBytesRead
{
     #ifndef __FLAT__
      hb_retni( ReadComm( hb_parnl( 1 ), hb_parc( 2 ), hb_parclen( 2 ) ) );
   #else  
      hb_retni( ReadComm( ( LPCOMDATA ) hb_parnl( 1 ), ( char * ) hb_parc( 2 ), ( short int ) hb_parclen( 2 ),
                hb_parnl( 3 ) ) );
   #endif  
}