FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Comunicação Serial usando a Fivewin
Posts: 58
Joined: Tue Mar 11, 2008 03:18 AM
Comunicação Serial usando a Fivewin
Posted: Mon Dec 01, 2008 06:34 PM

Olá a Todos,

Alguem usa a FIVEWIN para comunicação serial ?

A principio fiz uns teste com ela e funcionou muito bem, peguei os exemplos aqui do forum e da pasta SAMPLES, mas encontrei dois problemas, um é quando as portas COM são maior que 9, ex: COM10, COM11, COM12 e etc... ele não abre as portas, e outro é usando o TS(Terminal Service). Pelo Hiper Terminal funciona, porem pela Fivewin não funciona, até abre a porta, porem não faz a leitura da porta.
Alguem pode me ajudar nessas duas questões ?

Obrigado

Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Comunicação Serial usando a Fivewin
Posted: Mon Dec 01, 2008 07:22 PM

Amigão, eu venho utilizando sem problemas. Porém só testei até a COM9. Então não posso te falar se tem algum problema acima da COM9.

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
Posts: 58
Joined: Tue Mar 11, 2008 03:18 AM
Comunicação Serial usando a Fivewin
Posted: Mon Dec 01, 2008 07:37 PM

E com TS(Terminal Service) já testou ? fiz teste aqui com Hyper terminal do Windows e o mesmo leu minha balança local, usando o terminal service, porem pela LIB da Fivewin não deu certo.

Posts: 58
Joined: Tue Mar 11, 2008 03:18 AM
Comunicação Serial usando a Fivewin
Posted: Mon Dec 01, 2008 07:47 PM

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

Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Comunicação Serial usando a Fivewin
Posted: Mon Dec 01, 2008 07:51 PM

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: " + Str( nError ) )
endif

if ! SetCommState( nComm, cDcb )
nError = GetCommError( nComm )
MsgInfo( "SetCommState Error: " + Str( nError ) )
endif

if ( nBytes := WriteComm( nComm, chr(5) ) ) < 0

  nError = GetCommError( nComm )
  MsgInfo( "WriteComm Error: " + Str( nError ) )

else

      readcomm( nComm, @cretbalan )

endif

if FlushComm( nComm, 0 ) != 0
nError = GetCommError( nComm )
MsgInfo( "FlushComm Error: " + Str( nError ) )
endif

if ! CloseComm( nComm )
nError = GetCommError( nComm )
MsgInfo( "CloseComm Error: " + Str( nError ) )
endif

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
Posts: 58
Joined: Tue Mar 11, 2008 03:18 AM
Comunicação Serial usando a Fivewin
Posted: Mon Dec 01, 2008 08:03 PM

É assim que estou usando aqui e localmente funciona muito bem por sinal, diria até melhor que a hbcomm. porem só estou com esses dois pequenos problemas de usar em TS e de usar portas alem da COM9.

Se alguem mais tiver alguma dica agradeço.

Posts: 58
Joined: Tue Mar 11, 2008 03:18 AM
Comunicação Serial usando a Fivewin
Posted: Mon Dec 01, 2008 09:09 PM

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

Continue the discussion