Hola,
¿Es posible, utilizando las funciones propias de FWHX manejar al menos dos (2) puertos COMM ?
En caso que no.... ¿ Que puedo hacer ?
Abrazos,
...
nPort1 := InitComm( "COM1" )
nPort2 := InitComm( "COM2" )
ReadComm( nPort1, @cBuffer )
? cBuffer
ReadComm( nPort2, @cBuffer )
? cBuferr
....
**********************************
Static Function InitComm( Puerto )
Local cDcb
Local nComm := 0
Default Puerto := "COM1"
nComm := OpenComm( Puerto, 1024, 128 )
if !BuildCommDcb( Puerto+":9600,n,8,1", @cDcb )
MsgStop( "Error BUILD Dcb!" )
Return( 0 )
Endif
if !SetCommState( nComm, cDcb )
MsgStop( "Error Abriendo Puerto "+Puerto+":!" )
Return( 0 )
Endif
Return( nComm )
Antonio Linares wrote:Julio,
Se pueden manejar tantos puertos simultaneamente como se necesite.
Es algo que se implementó en FWH 8.01
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 63 guests