FiveTech Software tech support forums

... Para leer del puerto utilizo: texto_a_leer := SPACE(10) nBytes := ReadComm( port,@texto_a_leer) Para escribir en el puerto utilizo: nBytes := WriteComm( port,string) Con estos comandos, he logrado comunicarme con una registrador fiscal, desarrollando el protocolo de la misma sin ningun problema. ...

... Para leer del puerto utilizo: texto_a_leer := SPACE(10) nBytes := ReadComm( port,@texto_a_leer) Para escribir en el puerto utilizo: nBytes := WriteComm( port,string) Con estos comandos, he logrado comunicarme con una registrador fiscal, desarrollando el protocolo de la misma sin ningun problema. ...

... NCR 2050. La comunicacion la realizo por medio del puerto serial y estoy utilizando las funciones de comunicacion provistas (OPENCOMM, READCOMM, WRITECOMM, etc). El problema es el suguiente. La aplicacion compilada para 16 bits corre perfectamente y comunicaca con exito, pero compilada para 32 ...

... CHR( 10 ), CRLF ) oGet:Append( cStr ) RETURN NIL STATIC FUNCTION SENDSTR( nCom, cString ) LOCAL nBytes := WRITECOMM( nCom, cString ) RETURN nBytes = LEN( cString ) STATIC FUNCTION RECEIVESTR( nCom ) LOCAL cBuf := SPACE( 1000 ...

... manual: >>Command: “Dn” where n is configuration # in ASCII (1-2,7-8,A-D)<< I want to send D1 to the serial port so I use: WriteComm( nComm, "D1" ) where nComm:= OpenComm( "Com5", 1024, 128 ) Is this correct? Thanks, Jeff

Hola Mike para abrir la caja de dinero puedes hacerlo con este codigo func abrecash local puerto PUERTO:=oPenComm("com1:",1024,128) Writecomm(puerto,"adadadada") Closecomm(puerto) return(nil) Si estas utilizando una impresora fiscal de matrix me avisas por que ahora no recuerdo la secuencia ...

... * Nuevo: En FWPPC, el comando DLL FUNCTION ahora usa los parametros proporcionados. Por favor, revisa samples\DynDll.prg. * Mejora: La función WriteComm() ahora funciona sincronamente, esperando hasta que todos los "bytes" se escriban. Gracias a Enrico ! * Mejora: En la clase TTreeView, por ...

... to Ron Christie! * New: FWPPC, DLL FUNCTION command is already using the provided parameters. Please review samples\DynDll.prg * Enhancement: WriteComm() now works sinchronously, waiting until all bytes are written. Thanks to Enrico! * Enhancement: Class TTreeView, default nClrBack set to ...

may be for LPT1 we only need :-

opencomm()
writecomm()
closecomm()

I know.

There is one more problem: WriteComm() seems to not stop the execution till the sending is completed. How to check if a sending is in progress or make WriteComm() to work sinchronously?

EMG

... if ! SetCommState( cDcb ) nError = GetCommError( nComm ) Msgwait( "SetCommState Error: " + Str( nError ),'',.3 ) return .t. endif if ( nBytes := WriteComm( nComm, 'your ASCII string') ) < 0 nError = GetCommError( nComm ) Msgwait( "WriteComm Error: " + Str( nError ),'',.1 ) else Msgwait('Sent ...

... at least to perform comunications !! // Let's use the MessageBox() Window as default It means MessageBox() will be showed everytime when I use WriteComm() function. How can I donot show any message (Run as backgroup or Windows service)? Thanks in advance, Dutch

... probado, pero por ahí anda la cosa. PD Revisando la ayuda de FiveWin veo que hay funciones para manejo de puertos, quizas te vayan mejor (OpenComm,WriteComm, ...)

... "COM1:3000,n,8,1", @cDcb ) nError = GetCommError( nComm ) endif if ! SetCommState( cDcb ) nError = GetCommError( nComm ) endif if ( nBytes := WriteComm( nComm, "ATZ0" + Chr( 13 ) ) ) < 0 nError = GetCommError( nComm ) else endif if FlushComm( nComm, 0 ) != 0 nError = GetCommError( nComm ...

... lpszDevControl, unsigned int cbInQueue, unsigned int cbOutQueue ); int CloseComm( int idComDev ); int FlushComm( int idComDev, int fnQueue ); int WriteComm( int idComDev, LPCVOID lpvBuf, int cbWrite ); int ReadComm( int idComDev, LPVOID lpvBuf, int cbRead ); int GetCommError( int idComDev, COMSTAT ...