Read com port

User avatar
Enrico Maria Giordano
Posts: 8736
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia
Has thanked: 1 time
Been thanked: 1 time
Contact:

Re: Read com port

Post by Enrico Maria Giordano »

I can't help you, it works for me.

EMG
User avatar
Jeff Barnes
Posts: 933
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 | Expand


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 16.11, xHarbour 1.2.3, Bcc730)
User avatar
Enrico Maria Giordano
Posts: 8736
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia
Has thanked: 1 time
Been thanked: 1 time
Contact:

Re: Read com port

Post by Enrico Maria Giordano »

Jeff Barnes wrote:

Code: Select all | Expand

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


Code: Select all | Expand

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: 933
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 16.11, xHarbour 1.2.3, Bcc730)
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: 933
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 16.11, xHarbour 1.2.3, Bcc730)
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
Enrico Maria Giordano
Posts: 8736
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia
Has thanked: 1 time
Been thanked: 1 time
Contact:

Re: Read com port

Post by Enrico Maria Giordano »

It could be a problem in your FWH release.

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 »

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