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

... := WriteComm( nComm, "02 30 30 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 = ...

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

... lTrabajando = .T. nBytes := WriteComm(nComm,AllTrim(PARBASCULA->COMANDO)) //aquimando una "P" IF nBytes <= 0 RETURN ENDIF IF FlushComm(nComm,0) != 0 RETURN ENDIF ReadComm( nComm, @cBuffer ) IF Empty(cBuffer) .OR. Len(AllTrim(cBuffer)) <= 0 .OR. AllTrim(cBuffer) = "kg" ...

... de ClipperTools, como COM_OPEN, COM_CLOSE, COM_FLUSH no funcionan. Si he encontrado en el foro, que existen funciones como OpenComm,CloseComm,FlushComm, el tema es que necesito algunas funciones más y saber como se utilizan éstas, otras que uso son COM_SETIO,COM_SETIRQ,COM_INIT,COM_READ,COM_COUNT. ...

... static function CheckSerial() local cRetorno:=space(200), nBytesRead FlushComm( nCom, 0 ) SysWait( 0.4 ) nBytesRead := ReadComm( nCom, @cRetorno ) ? cRetorno return nil /**********************************************************/ ...

... > 0 ::cBuffer := cBuffer lSalir := .T. ENDIF * tiempo de espera antes de vaciar el buffer SysWait(::nDelay) * vacia el buffer IF FlushComm(::nCom,0) <> 0 ::Error(6) RETURN (.F.) ENDIF * refresca sistema SysRefresh() ENDDO // destruye el temporizador IIF(nTime>0,oTimer:Deactivate(),) ...

Try to call SysRefresh() between these two calls:

FlushComm(nComRam,1)

SysRefresh()

WriteComm(nComRam, "$01"+"6"+chr(13))

... como lo hace 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 ...

... ','',1) endif enddo numero := substr(cBlock,47,10) *?? numero *Lector() //*/* Lueog lo procesamos. *graba_llamada(numero) *numero := space(8) if FlushComm( gnComm, 0 ) != 0 nError = GetCommError( gnComm ) Msgwait( 'Error Limpiando el COM Error:' ,'',.01 ) endif cBlock=space(702) if MsgYesno('Desea ...

... ','',1) endif enddo numero := substr(cBlock,47,10) *?? numero *Lector() //*/* Lueog lo procesamos. *graba_llamada(numero) *numero := space(8) if FlushComm( gnComm, 0 ) != 0 nError = GetCommError( gnComm ) Msgwait( 'Error Limpiando el COM Error:' ,'',.01 ) endif if ! CloseComm( gnComm ) nError ...

Jeff, HB_FUNC( FLUSHCOMM ){  hb_retl( PurgeComm( ( HANDLE ) hb_parnl( 1 ), ( DWORD ) hb_parnl( 2 ) ) );}  The second parameter can be one or a combination of the following ...

... to get ReadComm() and WriteComm() to work he had me add the following code to the end of my .prg file. I now need the same type of thing for FlushComm(). HB_FUNC( READCOMM ){  DWORD dw = 0;  ReadFile( ( HANDLE ) hb_parnl( 1 ), ( LPVOID ) ...

Hola ha Todos Despues de tantas Pruebas he resuleto esto de los puertos, anexe la funcion de flushcomm(), pero continuaba el problema que no procesaba los comandos enviados al indicador de la bascula, esto se vino a solucionar de forma temporal y rapaida anexando un ciclo ...