Page 2 of 2
Re: Read com port
Posted: Fri Apr 15, 2011 9:53 pm
by Enrico Maria Giordano
I can't help you, it works for me.
EMG
Re: Read com port
Posted: Sat Apr 16, 2011 12:07 pm
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 )
Re: Read com port
Posted: Sat Apr 16, 2011 12:16 pm
by Enrico Maria Giordano
Re: Read com port
Posted: Sat Apr 16, 2011 2:05 pm
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?
Re: Read com port
Posted: Sat Apr 16, 2011 2:14 pm
by Jeff Barnes
Thanks Enrico .... a slip of the finger
Robert ... What is ASTM ?
Re: Read com port
Posted: Mon Apr 18, 2011 9:28 am
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.
Re: Read com port
Posted: Mon Apr 18, 2011 12:27 pm
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.
Re: Read com port
Posted: Wed Apr 20, 2011 7:34 pm
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?
Re: Read com port
Posted: Wed Apr 20, 2011 8:02 pm
by Enrico Maria Giordano
It could be a problem in your FWH release.
EMG
Re: Read com port
Posted: Thu Apr 21, 2011 5:23 am
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 )
Re: Read com port
Posted: Fri Apr 22, 2011 9:49 am
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?