Comm port problem

Comm port problem

Postby Jeff Barnes » Thu Nov 24, 2005 7:53 pm

I have a strange problem when reading from a comm port.

If I am starting with a fresh boo of the computer I can not read data from the comm port unless I first go into Windows HyperTerminal to read from the comm port. Then my program works just fine (until you reboot).

Below is a sample of the code I am using, can someone tell me what I am missing.

Thanks,
Jeff


***Open Comm Port
local cDcb, nBytes
local nComm := OpenComm( "Com"+alltrim(str(Config->Comm)), 1024, 128 )

if ! BuildCommDcb( "COM"+alltrim(str(Config->Comm))+":9600,n,8,1", @cDcb )
nError = GetCommError( nComm )
MsgInfo( "BuildCommDcb Error: " + Str( nError ) )
endif

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

***Read Comm Port here
if ReadComm( nComm , @cDataRead) <> 0
**do my data storage here
endif

***Close Comm Port
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
User avatar
Jeff Barnes
 
Posts: 929
Joined: Sun Oct 09, 2005 1:05 pm
Location: Ontario, Canada

Postby Antonio Linares » Thu Nov 24, 2005 10:16 pm

Jeff,

I guess you are using FWH built in comm support functions.

You may try free hbcomm.lib for Harbour/xharbour to see if that makes a difference.

In the meantime, lets see if we can find whats going on.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42118
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Jeff Barnes » Mon Nov 28, 2005 12:43 am

Where can I get hbcomm.lib ???

Thanks
User avatar
Jeff Barnes
 
Posts: 929
Joined: Sun Oct 09, 2005 1:05 pm
Location: Ontario, Canada

Postby Antonio Linares » Mon Nov 28, 2005 6:26 am

regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42118
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 45 guests