FiveTech Software tech support forums

... oLocalNum:Hide(),; // If( ! lInitModem(), oDlg:End(),),; EnableCommNotification( nComm, oDlg:hWnd, IN_BUFFER, IN_BUFFER ) ); VALID ( CloseComm( nComm ), .t. ) or this demo: *+*+      "Virtual Keyboard"#include "FiveWin.ch"#include "colors.ch"//----------------------------------------------------------------//  ...

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

... el tema que te ocupa. cR := CommOpen( cP, aSpd[ j ] ) // Aqui es cR IF Empty( cR ) aadd( aDisponible, cP ) ELSE aadd( aNoDisponible, cR ) ENDIF CloseComm( nComm ) // Aqui es nComm

... = { | nComm, nStatus | BytesAtPort( nComm, nStatus ) } ACTIVATE DIALOG oDlg ; ON INIT EnableCommNotification( nComm, oDlg:hWnd, 20, 20 ) CloseComm( nComm ) return nil function InitCOMM() local cDcb, nError, nBytes local nComm := OpenComm( "COM1", 1024, 128 ) if ! BuildCommDcb( ...

... ) + Chr( 0x30 ) + Chr( 0x31 ) + Chr( 0x34 ) + Chr( 0x03 ) nComm := AbrePuertoCom1( "2" ) /* COM2*/ cBloque := LeePuertoCom1( nComm,128 ) CloseComm( nComm ) Return Val( SubStr( cBloque,1,7 ) ) STATIC FUNCTION AbrePuertoCom1( cPuerto ) LOCAL cDcb, nError Local nBauds := 9600, nParity := ...

... ) + Chr( 0x30 ) + Chr( 0x31 ) + Chr( 0x34 ) + Chr( 0x03 ) nComm := AbrePuertoCom1( "2" ) /* COM2*/ cBloque := LeePuertoCom1( nComm,128 ) CloseComm( nComm ) Return Val( SubStr( cBloque,1,7 ) ) STATIC FUNCTION AbrePuertoCom1( cPuerto ) LOCAL cDcb, nError Local nBauds := 9600, nParity := ...

... Function Comunica() Local mport := 2 // Puerto COM Local PortId, cBloque PortId := abrirport(mport) 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 ...

... 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 cerror el com Error: ' ,'',.01 ) endif return nil

... cbOutQueue parameters are ignored 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()

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

Jeff,

FWH provides CloseComm( nPort ), not sure if you may need to close it and open it again.

Anyhow if you post an example of how you are using it we will be able to provide you a better help,

... function Main() DEFINE WINDOW oWnd TITLE "Serial Test" ACTIVATE WINDOW oWnd maximized on init(Serial()) IF nCom >= 0; CLOSECOMM( nCom ); ENDIF return nil //----------------------------------------------------------------------------// static function CheckSerial() local ...

... FUNCTION LeeBascula() LOCAL nComm, cBloque nComm := AbrePuertoCom( "3" ) cBloque := LeePuertoCom( nComm,31 ) CloseComm( nComm ) //MsgInfo( "Lectura bascula: |" + cBloque + "|",Str( Len( cBloque ) ) ) Return Val( SubStr( cBloque,1,7 ) ) ///////////////////////////////////////////////////////////////////////////////// ...

... i ReadComm( nComm,@cDato ) cPaso += cDato nContador ++ If Len( AllTrim( cPaso ) ) > 0 MsgInfo( cPaso,"Bascula" ) EndIf EndDo EndIf CloseComm( nComm ) MsgInfo( cPaso, "Bytes = " + Str( Len( cPaso ) ) ) Return .F. No me marca ningun error en la linea de nError := GetCommError( ...