delphi 编程技巧

源代码在线查看: 用activex实现串口通信 (2001年4月17日).txt

软件大小: 774 K
上传用户: zyhunicom
关键词: delphi 编程技巧
下载地址: 免注册下载 普通下载 VIP

相关代码

				用Activex实现串口通信 (2001年4月17日) 
				
				网友更新  分类:数据库   作者:不记得了  推荐:Boolean   阅读次数:262  
				(http://www.codesky.net)  
				
				--------------------------------------------------------------------------------
				用Activex实现串口通信
				
				为实现Windows的串口通信可用API实现,但十分不便。也可以用Active控件实现。
				先在应用程序中插入Active控件Microsoft comm contronl(MSComm)。
				SComm控件的属性
				MSComm控件的属性
				CommPort:设置串口号,类型 short :1-comm1 2-comm2.
				Settings:设置串口通讯参数,类型 CString :B-波特率 P-奇偶性(N-无校验,E-偶校验,O-奇验) D-字节有效位数S-停止位。
				PortOpen:设置或返回串口状态,类型 BOOL:TURE-打开 FALSE-关闭。
				InputMode:设置从接收缓冲区读取数据的格式,类型 long: 0-Text 1-Bin.
				Input:从接收缓冲区读取数据 类型 VARIANT。
				InBufferCount:接收缓冲区中的字节数,类型:short.
				InBufferSize:接收缓冲区的大小,类型:short.
				Output:向发送缓冲区写入数据,类型:VARIANT.
				OutBufferCount:发送缓冲区中的字节数,类型:short.
				OutBufferSize:发送缓冲区的大小,类型:short.
				InputLen:设置或返回Input读出的字节数,类型:short.
				CommEvent:串口事件,类型:short.
				程序示例
				串口初始化
				if(!m_comm.GetPortOpen())
				m_comm.SetPortOpen(TURE); /*打开串口
				m_comm.SetSettings("4800,n,8,1"); /*串口参数设置 
				m_comm.SetInputMode(0); /*设置TEXT缓冲区输入方式
				m_comm.SetRthresHold(1); /*每接收一个字符则激发OnComm()事件
				接收数据
				m_comm.SetInputLen(1); /*每次读取一个字符
				VARINAT V1=m_comm.GetInput(); /*读入字符
				m_V1=V1.bstrval; 
				发送字符
				m_comm.SetOutput(COlevariant("Hello");/*发送“Hello"  
				 
							

相关资源