Read com port

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

Re: Read com port

Post by Jeff Barnes »

This is what I use to read data from a medical device:

Code: Select all

Local cDataRead:=Space( 10 )   //length of data to read
Local cDCB
Local nComm

//Setup COM port
if ! BuildCommDcb( "COM1":9600,n,8,1", @cDcb )
   MsgInfo("BuildComm Error")
endif
      
if ! SetCommState(  nComm, cDcb )
   MsgInfo("SetComm Error")
endif

if FlushComm( nComm, 1 ) != 0
   MsgInfo("FlushComm Error")
endif


//Read the COM port
ReadComm( nComm, @cDataRead )
Thanks,
Jeff Barnes

(FWH 12.01, xHarbour 1.2.1, Bcc582)
User avatar
Enrico Maria Giordano
Posts: 7355
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia
Contact:

Re: Read com port

Post by Enrico Maria Giordano »

Jeff Barnes wrote:

Code: Select all

if ! BuildCommDcb( "COM1":9600,n,8,1", @cDcb )

Code: Select all

if ! BuildCommDcb( "COM1:9600,n,8,1", @cDcb )
EMG
User avatar
Robert Frank
Posts: 95
Joined: Fri Nov 23, 2007 4:43 am
Location: Gdynia-Poland
Contact:

Re: Read com port

Post by Robert Frank »

?
Jeff Barnes wrote:This is what I use to read data from a medical device:

Jeff, have you got an example of ASTM communication in fivewin?
Robert Frank
User avatar
Jeff Barnes
Posts: 912
Joined: Sun Oct 09, 2005 1:05 pm
Location: Ontario, Canada
Contact:

Re: Read com port

Post by Jeff Barnes »

Thanks Enrico .... a slip of the finger :)

Robert ... What is ASTM ?
Thanks,
Jeff Barnes

(FWH 12.01, xHarbour 1.2.1, Bcc582)
User avatar
Robert Frank
Posts: 95
Joined: Fri Nov 23, 2007 4:43 am
Location: Gdynia-Poland
Contact:

Re: Read com port

Post by Robert Frank »

Jeff Barnes wrote:Thanks Enrico .... a slip of the finger :)

Robert ... What is ASTM ?
Standard of communication (via RS232 or sockets) between medical software and medical analysers.
Robert Frank
User avatar
Jeff Barnes
Posts: 912
Joined: Sun Oct 09, 2005 1:05 pm
Location: Ontario, Canada
Contact:

Re: Read com port

Post by Jeff Barnes »

Sorry ... I do not have an example of ASTM.

I simply just read the data on the port and process it. I wasn't even aware there was an actual protocol for RS2332 and medical devices.
Thanks,
Jeff Barnes

(FWH 12.01, xHarbour 1.2.1, Bcc582)
favory
Posts: 7
Joined: Thu Sep 17, 2009 8:10 am

Re: Read com port

Post by favory »

Everything I'd tried to solve the problem but to no avail! The only thing I said to use FWH2.7.
I only have a few questions:
- Do I need a library hbcomm.lib? If I need where I can find?
- If your example of you doing, what your opinion may be a reason for me not working?
User avatar
Robert Frank
Posts: 95
Joined: Fri Nov 23, 2007 4:43 am
Location: Gdynia-Poland
Contact:

Re: Read com port

Post by Robert Frank »

Favory, Jef and Enrico wrotes main point of this subiect.
Jeff Barnes wrote: if ! SetCommState( nComm, cDcb )
MsgInfo("SetComm Error")
endif
You wrote in your example
favory wrote: if ! SetCommState( cDcb )
MsgStop( "Error SETCOMM!" )
return .f.
endif
Did you correct it to them version? SetCommState( nComm, cDcb )
Robert Frank
favory
Posts: 7
Joined: Thu Sep 17, 2009 8:10 am

Re: Read com port

Post by favory »

With version FW1.92 everything works without problems! So the problem is FWH2.7 or xHarbour. Why? I don't know! I have another question. how do I make a simultaneous communication with multiple serial ports?
Post Reply