FiveTech Software tech support forums

Enrico,
IF you have COM1 in your micro, could you try this code for a COM port that doesn't exist ?
I'm having the problem when I try to do an OpenComm( cPort, 1024, 10 ), for a COM port that doesn't exist in my computer. The function returns -1, but each time I try, CPU use is increased quickly.

Surely you need to use the function OpenComm()

nComm := OpenComm( "COM1", 1024, 128 )

I have never used it

Hello, I have been able to compile most of the sample linux prg's OK and have written a few of my own that compile and run OK. I have a need to do some serial communications (RS232). These are the linking errors I get when trying to compile. vend@v1:~/fivelinux/samples$ ./build.sh qibixx compiling.....

Hello, I have been able to compile most of the sample linux prg's OK and have written a few of my own that compile and run OK. I have a need to do some serial communications (RS232). These are the linking errors I get when trying to compile. vend@v1:~/fivelinux/samples$ ./build.sh qibixx compiling.....

... EnableCommNotification( nComm, oDlg:hWnd, 20, 20 ) CloseComm( nComm ) return nil function InitCOMM() local cDcb, nError, nBytes local nComm := OpenComm( "COM1", 1024, 128 ) if ! BuildCommDcb( "COM1:9600,n,8,1", @cDcb ) MsgStop( "Error BUILD!" ) return .f. endif ...

... := ONE5STOPBITS /*De las formas que trate encontre esta manera configurar el puerto y me funciono "COM1" ,9600, N, 8, 1, .F. */ nComm := OpenComm( "COM" + cPuerto ,nBauds, nParity, nDataByt, nStopBits, lIRmode) If nComm <= 0 nError := GetCommError( nComm ) MsgInfo( "Error ...

... := ONE5STOPBITS /*De las formas que trate encontre esta manera configurar el puerto y me funciono "COM1" ,9600, N, 8, 1, .F. */ nComm := OpenComm( "COM" + cPuerto ,nBauds, nParity, nDataByt, nStopBits, lIRmode) If nComm <= 0 nError := GetCommError( nComm ) MsgInfo( "Error ...

... cbloque = leer_bloque(PortId,31) CloseComm(PortId) RETURN cBloque STATIC FUNCTION abrirport(n) LOCAL IdPort, cDcb, nError IdPort := OpenComm("COM"+STR(n,1),1024,256) IF IdPort <= 0 nError = GetCommError( IdPort) MsgInfo( "Error al abrir: " + Str( nError ) ) ...

... y no logro. Dejo a Continuacion el Programa. #include "Fivewin.ch" function LeErPuertos() Local cDcb, lError, nError Local nComm := OpenComm( "COM2", 4024, 1024 ) if ! BuildCommDcb( "COM2:9600,N,8,1", @cDcb ) MsgStop( "Error BUILD!" ) return .f. endif ...

Buenos días. ¿Existe alguna forma de poder conocer los puertos serie disponibles en un equipo, sin tener que recurrir a las llamadas a opencomm()? He probado con la pequeña función que he puesto más abajo, pero no me devuelve nada STATIC FUNCTION puertocom()LOCAL  oDatosLOCAL ...

Carlos y Antonio, muchas gracias de nuevo.

Carlos, muchas gracias por tu pronta respuesta y haberme aclarado el tema.
Una pregunta: ¿dónde se encuentra ese archivo func.chm al que haces referencia? He estado buscando el los directorios de FWH y Harbour y no lo veo.

del archivo de ayuda func.chm OpenComm() Open the communication port to start using it Syntax: OpenComm( <cCommName> [,<nSizeIn>] [,<nSizeOut>] ) --> nIdComm Parameters: <cCommName> The name of the comm device ...