PC Toledo

Código: Selecionar todos

nHandle := COMINIT( 1, 9600, 8, 8000, 1 )
nHandle := HB_COMINIT( 1, 9600, 8, 8000, 1 )
nHandle := INIT_PORT( 1, 9600, 8, 0, 1, 6000 )

Código: Selecionar todos

2010-06-09 18:37 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
  + harbour/src/rtl/hbcomhb.c
  * harnour/src/rtl/Makefile
  * harbour/include/hbextern.ch
    + added wrapper functions for Serial communication port API
      The list of exported functions is:
        HB_COMCLOSE( nPort )  --> lSuccess
        HB_COMDISCARDCHAR( nPort, nChar | cChar ) --> lSuccess
        HB_COMERRORCHAR( nPort, nChar | cChar ) --> lSuccess
        HB_COMFLOWCHARS( nPort, nXONchar | cXONchar, nXOFFchar | cXOFFchar ) --> lSuccess
        HB_COMFLOWCONTROL( nPort, @iValue, nFlow ) --> lSuccess
        HB_COMFLOWSET( nPort, nFlow ) --> lSuccess
        HB_COMFLUSH( nPort, [ nType = HB_COM_IOFLUSH ] ) --> lSuccess
        HB_COMGETDEVICE( nPort )  --> cDeviceName
        HB_COMGETERROR( nPort ) --> nError
        HB_COMGETOSERROR( nPort ) --> nError
        HB_COMINIT( nPort, nBaud, cParity, nSize, nStop ) --> lSuccess
        HB_COMINPUTCOUNT( nPort ) --> nCount
        HB_COMINPUTSTATE( nPort ) --> nState
        HB_COMLASTNUM() --> nLastPortNumber
        HB_COMLSR( nPort, @nValue ) --> lSuccess
        HB_COMMCR( nPort, @nValue, nClear, nSet ) --> lSuccess
        HB_COMMSR( nPort, @nValue ) --> lSuccess
        HB_COMOPEN( nPort ) --> lSuccess
        HB_COMOUTPUTCOUNT( nPort ) --> nCount
        HB_COMOUTPUTSTATE( nPort ) --> nState
        HB_COMSENDBREAK( nPort, [ nDuration = 50 ] ) --> lSuccess
        HB_COMSETDEVICE( nPort, cDeviceName ) --> lSuccess
        HB_COMRECV( nPort, @cBuffer, [ nLen = LEN( cBuffer ) ], [ nTimeout = 0 ] ) --> nBytesRecv
        HB_COMSEND( nPort, cBuffer, [ nLen = LEN( cBuffer ) ], [ nTimeout = 0 ] ) --> nBytesSent

Código: Selecionar todos

**
** ABRE A PORTA DA GAVETA **
**

Function abreportagaveta()

LOCAL cCom        := "COM2:"
LOCAL nBaudeRate  := 9600
LOCAL nDatabits   := 8
LOCAL nParity     := 0
LOCAL nStopbit    := 0
LOCAL nBufferSize := 512
LOCAL nhandle
LOCAL nby,nBytes
LOCAL xDAta
   
nHandle := Init_Port( cCom        ,;
                      nBaudeRate  ,;
                      nDatabits   ,;
                      nParity     ,;
                      nStopbit    ,;
                      nBufferSize )
  
IF !Empty( nHandle ) // porta ok
   SETHANDSHAKE(nHandle,3 )
   // limpa status da gaveta
   SETCOMOPTIONS(nhandle,SETDTR)
   SETCOMOPTIONS(nhandle,CLRRTS)
   **
   ** DA A CARGA NO SELANOIDE **
   **
   #ifndef __XHARBOUR__
     DELAY( 6 )
   #ELSE
      Threadsleep( 6000 )
   #endif
   *
ELSE
   PLAYEXCLAMATION()
   MSGSTOP('Não foi possível Abrir a Porta de comunicação com a Gaveta !!!', SISTEMA )
Endif

Return nHandle

**
** ABRE A GAVETA PROPRIAMENTE DITA **
**

Function abregaveta( QUAL )

IF Qual = 1
   Fechaporta()
Else
   *
   SETCOMOPTIONS( nhandle, SETRTS )
   #ifndef __XHARBOUR__
     DELAY( 2 )
   #ELSE
      Threadsleep( 200 )
   #endif
   *
   SETCOMOPTIONS( nhandle, CLRRTS )
   #ifndef __XHARBOUR__
     DELAY( 1 )
   #ELSE
      Threadsleep( 100 )
   #endif
   *
endif

return nil

**
** INFORMA SE GAVETA ABERTA OU FECHADA **
**

Function Statusgaveta()

LOCAL X := Iscts( nHandle )

Return If( X ,"Aberta", "Fechada" )

**
** FECHA A PORTA DE COMUNICACAO DA GAVETA **
**

Function Fechaporta()

UNINT_PORT( nHandle )
return nil

Código: Selecionar todos

*
REQUEST HB_GT_WIN_DEFAULT              // Janela DOS - Temporário, para testes.
*
#Define SOH          Chr(  1 )
#Define STX          Chr(  2 )          && Begin off text.
#Define ETX          Chr(  3 )          && End off text.
#Define ETB          Chr( 23 )          && Split too long text by Remote.
#Define ACK          Chr(  6 )
#Define NACK         Chr( 21 )
#Define CAN          Chr( 24 )
#Define NOK          Chr(127 )
#Define CRLF         Chr( 13 ) + Chr( 10 )
*
MemVar COR_BX1, COR_BX2, MULTI
MemVar RS_MC1,  RS_MC2,  RS_MC3, RS_MC4, RS_MC5, RS_MC6, RS_MC7, RS_MC8
MemVar RS_MD1,  RS_MD2,  RS_MD3, RS_MD4, RS_MD5, RS_MD6, RS_MD7, RS_MD8
MemVar RS_OC1,  RS_OD1,  RS_OC2, RS_OD2, RG1
*
MemVar RS_COD,    RS_NOM,    RS_EXA,  RS_SID,  RS_SNM,  RS_IDA
MemVar RS_DATREC, RS_DATCAD, RS_RES1, RS_TEXT
*
*
FUNCTION MAIN()
   *
   DBUseArea( .T. , , 'PRM_0', 'PRM', .T. )        // Arquivo dos parâmetros.
   If NetErr()
      Alert( 'Erro na Abertura do Arquivo - PRM_0.DBF' )
      DBCloseAll()
      Return (NIL)
   EndIf
   *
   PRM->( DBGoTop() )
   n_Port   := 1              // ALLTRIM( STR( PRM->PRMCOM, 02, 00 ) )
   n_Baud   := 9600           // PRM->PRMBRT
   n_DtBit  := 8              // PRM->PRMDTB
   n_Prty   := 0              // PRM->PRMPRT
   n_StpBt  := 1              // PRM->PRMSTB
   n_Size   := 1024
   n_Buff   := 8000
   *
   lOpen    := .F.
   lWork    := .F.
   *
   clear
   ? n_Port, "<=== Porta"
   ? n_Baud, "<=== Baud"
   ? n_DtBit, "<=== DataBit"
   ? n_Prty, "<=== Parity"
   ? n_StpBt, "<=== StopBit"
   ? n_Size, "<=== Size"
   ? n_Buff, "<=== Buffer"

   l_Open   := HB_COMOPEN( n_Port )
   ? l_Open, "<=== Open"

   lWork    := HB_COMINIT( n_Port, n_Baud, n_Prty, n_Size, n_StpBt )
   ? lWork, "<=== Init"
   
**   l_Open   := HB_COMOPEN( n_Port )
**   ? l_Open, "<=== Open"