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

... 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 #ifdef __CLIPPER__ if ! SetCommState( cDcb ) ...

... nStopBits, lIRmode) If nComm <= 0 nError := GetCommError( nComm ) MsgInfo( "Error al abrir puerto: " + Str( nError ) ) EndIf If ! BuildCommDcb( "COM" + cPuerto + ":9600,N,8,1" , @cDcb ) nError := GetCommError( nComm ) MsgInfo( "Error al Configurar puerto: ...

... nStopBits, lIRmode) If nComm <= 0 nError := GetCommError( nComm ) MsgInfo( "Error al abrir puerto: " + Str( nError ) ) EndIf If ! BuildCommDcb( "COM" + cPuerto + ":9600,N,8,1" , @cDcb ) nError := GetCommError( nComm ) MsgInfo( "Error al Configurar puerto: ...

... IdPort) MsgInfo( "Error al abrir: " + Str( nError ) ) ELSE MsgRun("Puerto abierto como " + STR(IdPort)) ENDIF IF ! BuildCommDcb("COM"+STR(n,1)+":9600,n,8,1" , @cDcb) nError = GetCommError( IdPort) MsgInfo( "Error al Configurar: " + Str( ...

... #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 #ifdef __CLIPPER__ if ! SetCommState( cDcb ) ...

... and the queue size is set to zero. Sample: SAMPLES\\TestComm.prg Source Code: SOURCE\\WINAPI\\Comm.c See also: CloseComm() WriteComm() ReadComm() BuildCommDcb() SetCommState() FlushComm() GetCommError()

Antonio ... Buena tarde

El retorno es mayor a cero ...

local nComm := OpenComm( "COM5", 1024, 128 )

ALERTA(nComm) // 65007860.00

if ! BuildCommDcb( "COM5:9600,n,8,1", @cDcb )
MsgStop( "Error BUILD!" )
return .f.
endif

I remember back a while ago I ran into this BuildCommDcb issue... It appears that with the Toshiba Bluetooth Stack BuilcCommDcb will return .t. With no code changes, BuildCommDcb returns .f. with the Microsoft Bluetooth Stack. The unfortunate part ...

Jeff,

Jeff Barnes wrote:BuildCommDcb() still returns .f.

If BuildCommDcb() returns .f. there is something wrong for sure...

EMG

Ok guys, I am officially losing my mind on this one.... Nothing has changed since yesterday. I haven't even rebooted my laptop. BuildCommDcb() still returns .f. and SetComState() still returns .t. BUT now WriteComm() does timeout. I swear I didn't do anything different since yesterday. ...

Jeff, Now I try it this way and BuildCommDcb will show the error message but still connects when the device is available. How can it fail but still read/write to the com port ???? IF ! BuildCommDcb( "COM4:9600,N,8,1", @cDcb ...

Enrico, Now I'm confused... I was doing the following and if the device is available it worked: BuildCommDcb( "COM4:9600,N,8,1", @cDcb )   Now I try it this way and BuildCommDcb will show the error message but still connects when the device is available. ...

... static function Serial() LOCAL cDcb BEGIN SEQUENCE nCom := OPENCOMM( "COM1", 16384, 16384 ) IF nCom < 0 BREAK ENDIF BUILDCOMMDCB( "COM1:9600,N,8,1", @cDcb ) IF !SETCOMMSTATE( nCom, cDcb ) BREAK ENDIF EnableCommNotification( nCom, oWnd:hWnd, 1, -1 ) oWnd:bCommNotify ...