OpenEuphoria

Re: new libraries to access serial ports

• Posted by jacques_desch Jul 06, 2009
• 3075 views

Sorry oguim for late answer.
Thanks for reporting this problem, I tested CommConfigDialog() and as you report it doesn't work.
I read the following on MSDN http://msdn.microsoft.com/en-us/library/aa363187%28VS.85%29.aspx

Remarks

The CommConfigDialog function requires a dynamic-link library (DLL) provided by the communications hardware vendor.

I didn't pay attention to it before.
You should use SetCommState() instead.

integer hComm 
 
 
procedure init_comm(integer comm_port,sequence comm_params) 
 
  hComm = serial_open(comm_port) 
  if hComm = -1 then 
    puts(1,"serial_open failed\n") 
    abort(1) 
  end if 
  SetCommState(hComm,comm_params) 
  SetCommTimeouts(hComm,{1000,1000,10,1,1}) 
  PurgeComm(hComm,PURGE_TXCLEAR+PURGE_RXCLEAR) 
end procedure 
 
init_comm(4,"baud:19200;parity:none;stop:1;control:none") 
 
 

jacques