Read com port

Re: Read com port

Postby Enrico Maria Giordano » Fri Apr 15, 2011 9:53 pm

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

EMG
User avatar
Enrico Maria Giordano
 
Posts: 8712
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Re: Read com port

Postby Jeff Barnes » Sat Apr 16, 2011 12:07 pm

This is what I use to read data from a medical device:
Code: Select all  Expand view

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

Re: Read com port

Postby Enrico Maria Giordano » Sat Apr 16, 2011 12:16 pm

Jeff Barnes wrote:
Code: Select all  Expand view
if ! BuildCommDcb( "COM1":9600,n,8,1", @cDcb )


Code: Select all  Expand view
if ! BuildCommDcb( "COM1:9600,n,8,1", @cDcb )


EMG
User avatar
Enrico Maria Giordano
 
Posts: 8712
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Re: Read com port

Postby Robert Frank » Sat Apr 16, 2011 2:05 pm

?
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
Robert Frank
 
Posts: 95
Joined: Fri Nov 23, 2007 4:43 am
Location: Gdynia-Poland

Re: Read com port

Postby Jeff Barnes » Sat Apr 16, 2011 2:14 pm

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

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

(FWH 16.11, xHarbour 1.2.3, Bcc730)
User avatar
Jeff Barnes
 
Posts: 929
Joined: Sun Oct 09, 2005 1:05 pm
Location: Ontario, Canada

Re: Read com port

Postby Robert Frank » Mon Apr 18, 2011 9:28 am

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
Robert Frank
 
Posts: 95
Joined: Fri Nov 23, 2007 4:43 am
Location: Gdynia-Poland

Re: Read com port

Postby Jeff Barnes » Mon Apr 18, 2011 12:27 pm

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

Re: Read com port

Postby favory » Wed Apr 20, 2011 7:34 pm

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?
favory
 
Posts: 7
Joined: Thu Sep 17, 2009 8:10 am

Re: Read com port

Postby Enrico Maria Giordano » Wed Apr 20, 2011 8:02 pm

It could be a problem in your FWH release.

EMG
User avatar
Enrico Maria Giordano
 
Posts: 8712
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Re: Read com port

Postby Robert Frank » Thu Apr 21, 2011 5:23 am

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
User avatar
Robert Frank
 
Posts: 95
Joined: Fri Nov 23, 2007 4:43 am
Location: Gdynia-Poland

Re: Read com port

Postby favory » Fri Apr 22, 2011 9:49 am

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?
favory
 
Posts: 7
Joined: Thu Sep 17, 2009 8:10 am

Previous

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot], Willi Quintana and 118 guests