FiveTech Software tech support forums

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.....

... ,9600, N, 8, 1, .F. */ nComm := OpenComm( "COM" + cPuerto ,nBauds, nParity, nDataByt, nStopBits, lIRmode) If nComm <= 0 nError := GetCommError( nComm ) MsgInfo( "Error al abrir puerto: " + Str( nError ) ) EndIf If ! BuildCommDcb( "COM" + cPuerto + ":9600,N,8,1" ...

... ,9600, N, 8, 1, .F. */ nComm := OpenComm( "COM" + cPuerto ,nBauds, nParity, nDataByt, nStopBits, lIRmode) If nComm <= 0 nError := GetCommError( nComm ) MsgInfo( "Error al abrir puerto: " + Str( nError ) ) EndIf If ! BuildCommDcb( "COM" + cPuerto + ":9600,N,8,1" ...

... 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 ) ) ELSE MsgRun("Puerto abierto como " + STR(IdPort)) ENDIF IF ! ...

... 30 31 31 33 30 30 31 34 03" )) > 0 msgwait('Sen han enviado'+str(BitesSend,5),'',.900) ENDIF enddo if FlushComm( nComm, 0 ) != 0 nError = GetCommError( nComm ) Msgwait( 'Error Limpiando el COM Error:' ,'',.01 ) endif if ! CloseComm( nComm ) nError = GetCommError( nComm ) Msgwait( 'No Pude ...

... SAMPLES\\TestComm.prg Source Code: SOURCE\\WINAPI\\Comm.c See also: CloseComm() WriteComm() ReadComm() BuildCommDcb() SetCommState() FlushComm() GetCommError()

Comprueba que valor devuelve GetCommError( nComm ) a continuación de llamar a ReadComm()

... cPuerto ) LOCAL nComm, cDcb, nError nComm := OpenComm( "COM" + cPuerto + ":9600,N,8,1",2048,512) If nComm <= 0 nError := GetCommError( nComm ) MsgInfo( "Error al abrir bascula: " + Str( nError ) ) EndIf If ! BuildCommDcb( "COM" + cPuerto + ":9600,n,8,1" ...

... nComm := OpenComm("COM3:9600,N,8,1",2048,512) cDato := Space(80) If !BuildCommDcb( "COM3:9600,e,8,1", @cDcb ) nError := GetCommError( nComm ) MsgInfo( "Error de bascula: " + Str( nError ) ) else Do While nContador < 10 For i := 1 to 3000 Next i ReadComm( ...

... of my equipment, check your scanner for correct parameters hPORT:= OpenComm( pNAME, 1024, 128 ) If ! BuildCommDcb( pNAME+cSPEED, @cDcb ) nError = GetCommError( hPORT ) MsgInfo( "BuildCommDcb Error: " + Str( nError ) ) xRESZTA:=.F. EndIf If ! SetCommState( hPORT, cDcb ) nError = GetCommError( ...

... un lector para teclado; en samples hay prgs para el uso del puerto comm con estas instrucciones OpenComm(), Closecomm(), ReadComm(), FlushComm(), GetCommError(), BuildCommDCB(), WriteComm(), EnableCommNot() y SetCommState(). Utilizo una versiom fw24 con ajm, hay alguna libreria o alguien ya tiene ...

... del Foro **************** FUNCTION abrirport LOCAL IdPort,cDcb,nError IdPort := OpenComm("COM1",1024,1024) IF IdPort <= 0 nError = GetCommError( IdPort) MsgInfo( "Error al abrir: " + Str( nError ) ) ELSE MsgRun("Puerto abierto como " + STR(IdPort)) ENDIF IF ! ...

... del Foro **************** FUNCTION abrirport LOCAL IdPort,cDcb,nError IdPort := OpenComm("COM1",1024,1024) IF IdPort <= 0 nError = GetCommError( IdPort) MsgInfo( "Error al abrir: " + Str( nError ) ) ELSE MsgRun("Puerto abierto como " + STR(IdPort)) ENDIF IF ! ...