FiveTech Software tech support forums

... ) } 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( "COM1:9600,n,8,1", @cDcb ) MsgStop( "Error ...

... cBloque := LeePuertoCom1( nComm,128 ) CloseComm( nComm ) Return Val( SubStr( cBloque,1,7 ) ) STATIC FUNCTION AbrePuertoCom1( cPuerto ) LOCAL cDcb, nError Local nBauds := 9600, nParity := "N", nDataByt := 8, lIRmode := .f. Local nStopBits := ONE5STOPBITS /*De las formas que trate ...

... cBloque := LeePuertoCom1( nComm,128 ) CloseComm( nComm ) Return Val( SubStr( cBloque,1,7 ) ) STATIC FUNCTION AbrePuertoCom1( cPuerto ) LOCAL cDcb, nError Local nBauds := 9600, nParity := "N", nDataByt := 8, lIRmode := .f. Local nStopBits := ONE5STOPBITS /*De las formas que trate ...

... 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 <= 0 nError = GetCommError( IdPort) MsgInfo( "Error al abrir: " ...

... y he bajado todos los ejemplos del sitio 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 ...

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

... := ReadComm( nCom, @cRetorno ) ? cRetorno return nil /**********************************************************/ static function Serial() LOCAL cDcb BEGIN SEQUENCE nCom := OPENCOMM( "COM1", 16384, 16384 ) IF nCom < 0 BREAK ENDIF BUILDCOMMDCB( "COM1:9600,N,8,1", @cDcb ) ...

... a cuando utilizo OpenComm( 'COM1' ) que si lo tengo fisicamente en la PC, pero cuando le toca a la funcion BuildCommDCB( 'COM6:2400,N,8,1', @cDCB ), esta devuelve .f. y, como es de lógica, no se puede enviar ya nada al modem. Ahora, la gran pregunta es la siguiente... hay alguna manera de ...

... a cuando utilizo OpenComm( 'COM1' ) que si lo tengo fisicamente en la PC, pero cuando le toca a la funcion BuildCommDCB( 'COM6:2400,N,8,1', @cDCB ), esta devuelve .f. y, como es de lógica, no se puede enviar ya nada al modem. Ahora, la gran pregunta es la siguiente... hay alguna manera de ...

... ) ) ///////////////////////////////////////////////////////////////////////////////// STATIC FUNCTION AbrePuertoCom( cPuerto ) LOCAL nComm, cDcb, nError nComm := OpenComm( "COM" + cPuerto + ":9600,N,8,1",2048,512) If nComm <= 0 nError := GetCommError( nComm ) MsgInfo( ...

... el codigo que estoy usando es el siguiente: FUNCTION TestBascula() LOCAL nComm, nError, i, cDato, nContador := 0, cPaso := "", cDcb := "" nComm := OpenComm("COM3:9600,N,8,1",2048,512) cDato := Space(80) If !BuildCommDcb( "COM3:9600,e,8,1", @cDcb ...

... When using the MicroSoft Bluetooth Stack if I try: IF BuildCommDcb( "COM"+alltrim(str(nComPort))+":9600,N,8,1", @cDcb ) Endif It returns .f. On the Toshiba Bluetooth Stack it returns .t. Here is the strange part.... If I remove the "IF" and just try "BuildCommDcb( ...

... Clipper/fw a 16 bits a harbour/fw(11.01), estoy usando un dispositivo marca vcom usb-serial y me coloco el puerto com10, pero setcommstate( nComm, cDcb ) siempre me devuelve falso. Las pruebas las realice con windows 7 (64 Bits). ya habia probado con los puertos seriales fisicos y funcionaba bien. ...

... "FIVEWIN.CH" CLASS TRS232 // variables de instancia DATA cCom // identificacion puerto DATA nCom // numero identificacion puerto. DATA cDcb // guarda la configuracion del puerto para lecturas DATA cBuffer // buffer del puerto. DATA nError // numero de error provocado. DATA nDelay // ...

Please notice that you have to do in 32 bits:

SetCommState( nComm, cDcb )

instead of:

SetCommState( cDcb )

Replace it in your app and try it again, thanks