I can't help you, it works for me.
EMG
Board index FiveWin for Harbour/xHarbour Read com port
Page: 1 2 (26 posts)
This is what I use to read data from a medical device:
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)
Jeff Barnes
(FWH 16.11, xHarbour 1.2.3, Bcc730)
Jeff Barnes wrote:if ! BuildCommDcb( "COM1":9600,n,8,1", @cDcb )
if ! BuildCommDcb( "COM1:9600,n,8,1", @cDcb )EMG
?
Jeff, have you got an example of ASTM communication in fivewin?
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
Thanks Enrico .... a slip of the finger 
Robert ... What is ASTM ?
Thanks,
Jeff Barnes
(FWH 16.11, xHarbour 1.2.3, Bcc730)
Jeff Barnes
(FWH 16.11, xHarbour 1.2.3, Bcc730)
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
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)
Jeff Barnes
(FWH 16.11, xHarbour 1.2.3, Bcc730)
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?
It could be a problem in your FWH release.
EMG
Favory, Jef and Enrico wrotes main point of this subiect.
You wrote in your example
Did you correct it to them version? SetCommState( nComm, cDcb )
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
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?
Page: 1 2 (26 posts)