Page 1 of 1

Para Antonio: Manejo de puertos Comm

Posted: Thu Feb 28, 2008 1:48 am
by jllinas
Hola,

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

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

Abrazos,

Posted: Thu Feb 28, 2008 8:29 am
by Moisoft
Yo estoy usando varios puertos COM sin ningun problema,

El Codigo que uso

Code: Select all


...

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 )


Posted: Thu Feb 28, 2008 12:07 pm
by jllinas
Gracias Amigo,

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

Cuando creas cBuffer ¿ Que tamaño le asignas ?

Abrazos,

Posted: Thu Feb 28, 2008 12:46 pm
by Antonio Linares
Julio,

Se pueden manejar tantos puertos simultaneamente como se necesite.

Es algo que se implementó en FWH 8.01

Posted: Thu Feb 28, 2008 12:52 pm
by karinha
Antonio Linares wrote:Julio,

Se pueden manejar tantos puertos simultaneamente como se necesite.

Es algo que se implementó en FWH 8.01

Maestro Antonio, entonces la LIB HBCOMM.LIB no és mas necesaria?

Best regards, saludos.

Posted: Thu Feb 28, 2008 1:41 pm
by Antonio Linares
João,

> entonces la LIB HBCOMM.LIB no és mas necesaria?

No, no hace falta

Posted: Thu Feb 28, 2008 2:11 pm
by karinha
Antonio Linares wrote:João,

> entonces la LIB HBCOMM.LIB no és mas necesaria?

No, no hace falta

Excelente Maestro!!! Mui buena Noticia.

Best regards, saludos.