请问用DELPHI的MSComm控件怎么编写串口的程序啊?我是菜鸟 请给个详细的例子从添加控件开始 详细些 谢谢

请问用DELPHI的MSComm控件怎么编写串口的程序啊?我是菜鸟 请给个详细的例子从添加控件开始 详细些 谢谢,第1张

1、 mscomm控件安装。
Mscomm控件默认存在于delphi的ActiveX面板上,如果不存在,需要先导入该控件,步骤 :通过菜单 component---Import Activex component 打开Import Acitvex对话框。如下图:

如果列表中找不到该Microsoft Comm Control,那么点Add按钮找到Mscomm32ocx,最后点Install即可。
2、 需要了解的属性
需要了解的几个属性:
CommPort:设置通信端口号,用该串口与外界通信。
Setting:以字符串的形式设置数据传输速率、奇偶校验、数据比特、停止比特;
PortOpen:设置并返回通信端口的状态,用来可以打开和关闭端口;
Input:从接收缓冲区返回和删除字符;
Output:向传输缓冲区定一个字符串)
RThreshold:设置接收几个字符触发控件响应函数。
CTSHolding:该属性确定是否可通过查询CTS线的状态发送数据。CTS是调制解调器发送到相连计算机的信号,指示传输可以进行。该属性在设计时无效,在运行时为只读。
如果CTS线为低电平(CTSHolding = FALSE)并且超时时,MSComm控件设置CommEvent属性为comEventCTSTO(Clear To Send Timeout)并产生OnComm事伯。CTS线用于RTS/CTS硬件握手。如果需要确定CTS线的状态,CTSHolding属性给出一种手工查询方法。
SThreshold:设置发送缓冲区中有几个字符时候触发oncomm
InputMode:用于设置或者返回传输数据的类型。
ComInputModeText(缺省) 0 通过Input属性以文本方式取回数据
ComInputModeBinary 1 通过Input属性以二进制方式取回数据
InputLen:该属性用于设置并返回Input属性从接收缓冲区读取的字符数。
InBuffersize:设置输入缓冲区的大小,默认值为1024字节。
InBufferCount: InBufferCount属性用于返回输入缓冲区内的等待读取的字节个数,可以通过该属性值为0来清除接收缓冲区。
Output:void SetOutput(const VARIANT & newValue);
Output属性用于向发送缓冲区写数据流。注意:Output属性可以发送文本数据或二进制数据。传输文本数据时,应该将字符型 数据放入VARIANT变量中;传输二进制数据(即按字节传送)时,应将字节型数据放入VARIANT型变量中。如果通常给应用程序发送ANSI字符串,可以以文本方式发送。如果数据包含了内嵌控制字符、NULL字符等,必须将其作为二进制传递过去。
DTREnable:确定在通信时是否使用DTR线有效,DTR是计算机发送到调制解调器的信号,表明计算机在等待数据传输。
RTSEnable:确定是否使用RTS线有效。一般情况下,由计算机发送RTS信号到连接的调制解调器,请求允许发送数据。
EOFEnable:确定在输入过程中MSComm控件是否寻找文件结尾(EOF)字符。如果找到EOF字符,将停止输入并激活OnComm事件,此时CommEvent属性设置为comEvEOF,这里bNewValue为布尔表达式,确定当找到EOF字符时,OnComm事件是否被激活。当bNewValue的设置值TRUE时,EOF字符找到时OnComm事件被激活。否则当VALUE值设为FALSE(默认)时,EOF字符找到时OnComm事件不被激活。
注意:当EOFEnable属性设置为FALSE时,OnComm控件将不在输入流中寻找EOF字符。
CDHolding:通过查询CD线的状态确定当前是否有传输。CD是从调制解调器发送到相连计算机的一个信号,指示调制解调器正在联机。该属性在设计时无效,在运行时为只读。属性的设置值为:当bNewValue为TRUE时,CD线为高电平;当bNewValue为FALSE时,CD线为低电平。注意当CD线为高电平(CDHolding=TRUE)且超时时,MSComm控件设置CommEvent属性为comEventCDTO(CD超时错误),并产生OnComm事件。
注意:在主机应用程序中捕获一个丢失的传输是特别重要的,例如一个公告板,因为呼叫者可以随时挂起(放弃传输)。CD也被称为Receive Line Signal Detect(RLSD)。
DSRHolding:确定DSR线的状态。DSR信号由调制解调器发送到相连计算机,指示作好 *** 作准备。该属性在设计时无效,在运行时为只读。DSRHolding属性返回为TRUE时,表示DSR线高,返回FALSE时,表示DSR线低。当DSR线为高电平时(DSRHolding=TRUE)超时时,MSComm控件设置CommEvent属性为comEventDSRTO(数据准备超时)并产生OnComm事件。当为DTE(Data Terminal Equipment)机器写DSR/DTR握手例程时该属性是分有用的。
3、 控件安装后,在AcitveX面板上可以看到一个电话机样式的图标,把它拖到delphi工程窗体上设置属性后就可以使用了
打开串口: mscomm1portopen:=true;
关闭串口: mscomm1portopen:=false;
处理接收的数据,在oncomm事件中,下面给出点提示例子(只是一个函数,缺乏桩函数不能运行,只是用来说明使用)
procedure TF_ComMSCommComm(Sender: TObject);
var
i,j,itemp:integer;
pcurDeviceSer:pdevicepro;
begin
if mscommCommEvent = 2 then
begin
inBuf:=F_ComMSCommInput;
for i:=0 to vararrayhighbound(inBuf,1) do
begin
if m_sourceLen > 500 then
m_sourceLen := 0;
m_pSourceBuf[m_sourceLen]:=inBuf[i];
m_sourceLen:=m_sourceLen+1;
end;
if(CommDataAnalysis()) then //如果分帧成功
begin
m_ReSendTimes := 0; //重发次数为0
for j:=0 to m_nRecDataLength-1 do
showstr:=showstr + inttohex(inBuf[j],2)+' '; // _GetByte(inBuf[i]);
if not bPauseFlag then
showframe(showstr,true)
else
begin
if length(showstr)>5000 then
showstr:='';
end;
pcurDeviceSer:=nil;
if(m_nRecDataLength = 5) then//固定帧处理
begin
for itemp:=0 to numberofdec do // numberofdec//装置个数 ,遍历,查找需要的装置
begin
if BDeviceSer[itemp]addr=RecBuf[2] then
begin
pcurDeviceSer:=@BDeviceSer[itemp]; //指针指向被召唤的装置的结构体
break;
end;
end;
if pcurDeviceSer=nil then //所召唤的装置不存在
else
FrameFix(pcurDeviceSer);
end
else //可变帧处理
begin
for itemp:=0 to numberofdec do // numberofdec//装置个数 ,遍历,查找需要的装置
begin
if BDeviceSer[itemp]addr=RecBuf[4] then
begin
pcurDeviceSer:=@BDeviceSer[itemp];
break;
end;
end;
if pcurDeviceSer=nil then //所召唤的装置不存在
else
FrameUnFix(pcurDeviceSer);
end;
end;
end;
// end;
end;
发送串口数据:
procedure SendComData();
var
i,j:integer;
begin // Main_FormdqcConvertStr2Hex(tempstr,SendBuf,m_nSendDataLength);
if (SendBuf[0]=$10) then
m_nSendDataLength:=5
else
m_nSendDataLength:=((SendBuf[1] and $ff)+6); //+号比&(按位与运算符)优先级高
outBuf := VarArrayCreate([0,m_nSendDataLength-1], varByte);
for i:=0 to m_nSendDataLength-1 do
outBuf[i]:=SendBuf[i];
F_ComMSCommOutput:=outBuf;
上面的例子只是为了说明使用方法,并不可运行。

试试一个叫单片机小精灵v12的工具吧,可以帮你生成指定波特率的代码。
这段代码是用软件生成的,51代码,12T,9600波特率。
主程序部分在大循环之前别忘了初始化串口和定时器(InitUART()已经初始化好了),当你的串口每接收到一个字节,就会产生一个串行中断,就会执行UARTInterrupt(void) interrupt 4里面的代码,做好数据接收处理就行。
#include <reg51h>
void InitUART(void)
{
TMOD = 0x20;
SCON = 0x50;
TH1 = 0xFD;
TL1 = TH1;
PCON = 0x00;
EA = 1;
ES = 1;
TR1 = 1;
}
void main(void)
{
InitUART();
while(1);
}
void UARTInterrupt(void) interrupt 4
{
if(RI)
{
RI = 0;
//add your code here!
}
else
TI = 0;
}
void SendOneByte(unsigned char c)
{
SBUF = c;
while(!TI);
TI = 0;
}


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/13217268.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-06-22
下一篇 2023-06-22

发表评论

登录后才能评论

评论列表(0条)

保存