a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
50 lines
1.5 KiB
Plaintext
50 lines
1.5 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#include "hbcom.ch"
|
|
|
|
PROCEDURE Main( cPortName )
|
|
|
|
LOCAL cString := "ATE0" + Chr( 13 ) + "ATI3" + Chr( 13 )
|
|
LOCAL nTimeOut := 3000 // 3000 miliseconds = 3 sec.
|
|
LOCAL nResult
|
|
LOCAL nPort := 1
|
|
|
|
IF ! Empty( cPortName )
|
|
hb_comSetDevice( nPort, cPortName )
|
|
ENDIF
|
|
IF ! hb_comOpen( nPort )
|
|
? "Cannot open port:", nPort, hb_comGetDevice( nPort ), ;
|
|
"error: " + hb_ntos( hb_comGetError( nPort ) )
|
|
ELSE
|
|
? "port:", hb_comGetDevice( nPort ), "opened"
|
|
IF ! hb_comInit( nPort, 9600, "N", 8, 1 )
|
|
? "Cannot initialize port to: 9600:N:8:1", ;
|
|
"error: " + hb_ntos( hb_comGetError( nPort ) )
|
|
ELSE
|
|
nResult := hb_comSend( nPort, cString, hb_BLen( cString ), nTimeOut )
|
|
IF nResult != hb_BLen( cString )
|
|
? "SEND() failed,", nResult, "bytes sent in", nTimeOut / 1000, ;
|
|
"sec., expected:", hb_BLen( cString ), "bytes."
|
|
? "error: " + hb_ntos( hb_comGetError( nPort ) )
|
|
ELSE
|
|
? "SEND() succeeded."
|
|
ENDIF
|
|
|
|
WAIT "Press any key to begin reading..."
|
|
cString := Space( 32 )
|
|
nTimeOut := 500 // 500 milliseconds = 0.5 sec.
|
|
nResult := hb_comRecv( nPort, @cString, hb_BLen( cString ), nTimeOut )
|
|
IF nResult == -1
|
|
? "RECV() failed,", ;
|
|
"error: " + hb_ntos( hb_comGetError( nPort ) )
|
|
ELSE
|
|
? nResult, "bytes read in", nTimeOut / 1000, "sec."
|
|
ENDIF
|
|
ENDIF
|
|
? "CLOSE:", hb_comClose( nPort )
|
|
ENDIF
|
|
|
|
RETURN
|