topic-10147

jllinas

Posts: 189

Joined: Fri Oct 14, 2005 12:33 AM

Para Antonio: Manejo de puertos Comm
Posted: Thu Feb 28, 2008 01:48 AM

Hola,

¿Es posible, utilizando las funciones propias de FWHX manejar al menos dos (2) puertos COMM ?

En caso que no.... ¿ Que puedo hacer ?

Abrazos,

Julio Llinás
Visita mi Blog en http://mangucybernetico.blogspot.com/
xHarbour 1.1.0 + FWH810 + Borland 5.5.1

Moisoft

Posts: 10

Joined: Wed Oct 19, 2005 07:49 AM

Para Antonio: Manejo de puertos Comm
Posted: Thu Feb 28, 2008 08:29 AM

Yo estoy usando varios puertos COM sin ningun problema,

El Codigo que uso

Code: Select all Collapse

...

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 )

jllinas

Posts: 189

Joined: Fri Oct 14, 2005 12:33 AM

Para Antonio: Manejo de puertos Comm
Posted: Thu Feb 28, 2008 12:07 PM

Gracias Amigo,

Es justo lo que quería saber...!

Cuando creas cBuffer ¿ Que tamaño le asignas ?

Abrazos,

Julio Llinás
Visita mi Blog en http://mangucybernetico.blogspot.com/
xHarbour 1.1.0 + FWH810 + Borland 5.5.1

Antonio Linares

Posts: 44158