FiveTech Software tech support forums

... Case xPORT=7 pNAME:="COM7" Case xPORT=8 pNAME:="COM8" Case xPORT=9 pNAME:="COM9" EndCase hPORT:= OpenComm( pNAME, 2048, 2048 ) If ! BuildCommDcb( pNAME+cSPEED, @cDcb ) nError = GetCommError( hPORT ) MsgInfo( "BuildCommDcb Error: " + Str( ...

All examples use OPENCOMM and WRITECOMM, but no examples show READCOMM.

It is supposed to place the value from the pointer in the referenced field, and return the number of bytes in the string. I get a return value of 8, which is correct, but no string placed in the buffer.

Thoughts ?

... nil //----------------------------------------------------------------------------// function lInitModem() local cDcb, nError, nBytes nComm = OpenComm( "COM1", 1024, 128 ) if ! BuildCommDcb( "COM1:19200,n,8,1", @cDcb ) nError = GetCommError( nComm ) MsgStop( "Error ...

... Case xPORT=7 pNAME:="COM7" Case xPORT=8 pNAME:="COM8" Case xPORT=9 pNAME:="COM9" EndCase hPORT:= OpenComm( pNAME, 2048, 2048 ) If ! BuildCommDcb( pNAME+cSPEED, @cDcb ) nError = GetCommError( hPORT ) MsgInfo( "BuildCommDcb Error: " + Str( ...

Can someone point me to a reference for using Comm communications with a USB port ? All samples of OpenComm are with Com1-4. Thanks.

... clipper> y <code> . No está formateando cuando hay código en los ejemplos. Cambiaron estos tags ? Oclone() OemToAnsi() OpenClipboard() OpenComm() ORead() OSend() OutportByte() OutportWord() OutputDebugString() oWndFromhWnd() PageBegin() PalBmpDraw() PalBmpLoad() PalBmpRead() PalBtnPaint() ...

Muy buenas, despues de muchas pruebas me doy cuenta que cuando abro el puerto COM con OpenComm siempre me devuelve un número positivo y nunca me da uno negativo ni 0, entonces mi pregunta es. ¿Como puedo saber si el puerto está abierto o cerrado?

Un Saludo.

... oDlg1 ) if ! empty( oTimerWalk ) oTimerWalk:Deactivate() endif lFirstRun := .t. WinExec("\EzSat\DLL\SetComm4.bat",0) nComm:= OpenComm( "Com4", 1024, 128 ) Syswait(.01) if ! BuildCommDcb( "COM4:9600,n,8,1", @cDcb ) lLoop := .f. oDlg1:End() RETURN NIL endif ...

Sr. Antonio, eu vinha utilizando sem problemas as funções do fivewin para ler a porta serial: local cDcb, nBytes local nComm := OpenComm( "COM1", 1024, 128 ) local nError,x,cmsg,CTES,cret,npos,cretbalan if ! BuildCommDcb( "COM1:19200,n,8,1", @cDcb ) nError = GetCommError( nComm ) MsgInfo( ...

Pelo o que pude entender no link abaixo diz que isso é limitado mesmo na OPENCOMM() sobre a COM9 em diante.
http://support.microsoft.com/kb/105010/pt-br

Não testei com TS. uso estas funções: local cDcb, nBytes,A local nComm := OpenComm( "COM1", 1024, 128 ) local nError,x,cmsg,CTES,cret,npos,cretbalan if ! BuildCommDcb( "COM1:19200,n,8,1", @cDcb ) nError = GetCommError( nComm ) MsgInfo( "BuildCommDcb Error: " ...

E nesse link abaixo pelo que entendi explica como usar portas acima da COM9, porem testei com esse MYOPENCOMM e também não deu certo.
http://www.fivetechsoft.com/forums/view ... t=opencomm

Jeff, Please define this function in your PRG and use this one instead of OpenComm(): #pragma BEGINDUMP #include <hbapi.> #include <windows.h> unsigned long OpenComm( char *, WORD, WORD ); HB_FUNC( MYOPENCOMM ) { WORD ...

Jeff,

It means "invalid handle". Maybe there is a sign issue.

Lets review the source code for OpenComm()

... D se traen las suyas. Bien Aqui esta. #include "fiveWin.ch" function fReadPort local cDcb, lError, nError cErrCode := space( 15 ) if !( gnComm := OpenComm( 'COM1', 1024, 16 ) ) == 0 if !(BuildCommDcb( "COM1:9600,E,8,1", @cDcb ) .and. SetCommState( @cDcb ) ) nError := GetCommError( gnComm, @cErrCode ...