📄 delphi编程 --- 在delphi7中利用mscomm控件编程.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0044)http://61.130.50.195/show.aspx?id=347&cid=23 -->
<!----------------------------------------------
Powered by DvNews
http://www.aspsky.net/
--------------------------------------------------><HTML><HEAD><TITLE>Delphi编程 --- 在delphi7中利用mscomm控件编程</TITLE>
<META content=text/html;charset=gb2312 http-equiv=Content-type>
<META content=动网新闻.net,asp.net,新闻系统 name=keywords><LINK
href="Delphi编程 --- 在delphi7中利用mscomm控件编程.files/style.css" rel=stylesheet
type=text/css>
<SCRIPT language=JavaScript>
var currentpos,timer;
function initializeScroll() { timer=setInterval("scrollwindow()",80);}
function scrollclear(){clearInterval(timer);}
function scrollwindow() {currentpos=document.body.scrollTop;window.scroll(0,++currentpos);if (currentpos != document.body.scrollTop) sc();}
document.onmousedown=scrollclear
document.ondblclick=initializeScroll
</SCRIPT>
<META content="MSHTML 5.00.3700.6699" name=GENERATOR></HEAD>
<BODY><SPAN id=printScript name="printScript">
<SCRIPT language=javascript>
function ContentSize(size)
{
var obj=document.all.BodyLabel;
obj.style.fontSize=size+"px";
}
</SCRIPT>
</SPAN>
<SCRIPT language=javascript
src="Delphi编程 --- 在delphi7中利用mscomm控件编程.files/print.js"></SCRIPT>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 class=twidth>
<TBODY>
<TR>
<TD class=sitehead-left></TD>
<TD class=sitehead>
<TABLE align=center width="100%">
<TBODY>
<TR>
<TD width=200><A href="http://delph.3322.org/"><IMG border=0
src="Delphi编程 --- 在delphi7中利用mscomm控件编程.files/1.gif"
style="FILTER: chroma(color=#FFFFFF)"></A> </TD>
<TD align=middle>
<OBJECT classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000
codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0
height=60 width=468><PARAM NAME="movie" VALUE="pic/aspsky.swf"><PARAM NAME="quality" VALUE="high">
<embed src="pic/aspsky.swf" quality=high
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"
type="application/x-shockwave-flash" width="468" height="60">
</embed> </OBJECT></TD>
<TD align=middle style="LINE-HEIGHT: 150%" width=100><A
href="http://61.130.50.195/show.aspx?id=347&cid=23#"
onclick="javascript:window.external.addFavorite('http://delph.3322.org/','Delphi编程')">加入收藏</A>
<BR><A href="mailto:yzzdcwj@163.com">联系我们</A> <BR><A
href="http://61.130.50.195/search.aspx">网站搜索</A>
</TD></TR></TBODY></TABLE></TD>
<TD class=sitehead-right></TD></TR></TBODY></TABLE>
<TABLE align=center cellPadding=0 cellSpacing=0 class=twidth>
<TBODY>
<TR>
<TD class=navbar-left></TD>
<TD class=navbar>
<SCRIPT language=Javascript1.2
src="Delphi编程 --- 在delphi7中利用mscomm控件编程.files/popmenu.js"></SCRIPT>
<DIV class=menuskin id=popmenu
onmouseout="highlightmenu(event,'off');dynamichide(event)"
onmouseover="clearhidemenu();highlightmenu(event,'on')"
style="Z-INDEX: 100"></DIV>
<SCRIPT language=javascript1.2>linkset[0]=new Array()linkset[0][0]='<div class="menuitems"><a href="list.aspx?cid=15">入门教程</a></div>'linkset[0][1]='<div class="menuitems"><a href="list.aspx?cid=16">控件使用</a></div>'linkset[0][2]='<div class="menuitems"><a href="list.aspx?cid=17">函数用法</a></div>'linkset[1]=new Array()linkset[1][0]='<div class="menuitems"><a href="list.aspx?cid=11">数据库编程</a></div>'linkset[1][1]='<div class="menuitems"><a href="list.aspx?cid=12">报表打印</a></div>'linkset[1][2]='<div class="menuitems"><a href="list.aspx?cid=13">网络编程</a></div>'linkset[1][3]='<div class="menuitems"><a href="list.aspx?cid=14">控件应用</a></div>'linkset[1][4]='<div class="menuitems"><a href="list.aspx?cid=21">文件操作</a></div>'linkset[1][5]='<div class="menuitems"><a href="list.aspx?cid=24">图形图象编程</a></div>'linkset[1][6]='<div class="menuitems"><a href="list.aspx?cid=25">多媒体编程</a></div>'linkset[1][7]='<div class="menuitems"><a href="list.aspx?cid=22">API编程</a></div>'linkset[1][8]='<div class="menuitems"><a href="list.aspx?cid=43">其它应用</a></div>'linkset[2]=new Array()linkset[2][0]='<div class="menuitems"><a href="list.aspx?cid=23">编程实例</a></div>'linkset[2][1]='<div class="menuitems"><a href="list.aspx?cid=5">Delphi实例</a></div>'linkset[2][2]='<div class="menuitems"><a href="list.aspx?cid=44">WYZ系统源码</a></div>'linkset[3]=new Array()linkset[3][0]='<div class="menuitems"><a href="list.aspx?cid=26">入门知识</a></div>'linkset[3][1]='<div class="menuitems"><a href="list.aspx?cid=27">数据操作</a></div>'linkset[3][2]='<div class="menuitems"><a href="list.aspx?cid=28">系统维护</a></div>'linkset[3][3]='<div class="menuitems"><a href="list.aspx?cid=29">综合应用</a></div>'linkset[3][4]='<div class="menuitems"><a href="list.aspx?cid=30">应用实例</a></div>'linkset[4]=new Array()linkset[4][0]='<div class="menuitems"><a href="list.aspx?cid=42">软件使用技巧</a></div>'linkset[4][1]='<div class="menuitems"><a href="list.aspx?cid=45">硬件知识</a></div>'linkset[5]=new Array()linkset[5][0]='<div class="menuitems"><a href="list.aspx?cid=18">法制天地</a></div>'linkset[5][1]='<div class="menuitems"><a href="list.aspx?cid=19">情感世界</a></div>'linkset[5][2]='<div class="menuitems"><a href="list.aspx?cid=20">生活常识</a></div>'</SCRIPT>
<A class=navlink href="http://61.130.50.195/default.aspx">首页</A> <IMG
align=absMiddle
src="Delphi编程 --- 在delphi7中利用mscomm控件编程.files/navbar_Separator.gif"> <A
class=navlink href="http://61.130.50.195/list.aspx?cid=10"
onmouseout=delayhidemenu() onmouseover=showmenu(event,0,1,false)>菜鸟入门</A>
<IMG align=absMiddle
src="Delphi编程 --- 在delphi7中利用mscomm控件编程.files/navbar_Separator.gif"> <A
class=navlink href="http://61.130.50.195/list.aspx?cid=2"
onmouseout=delayhidemenu() onmouseover=showmenu(event,1,1,false)>应用技术</A>
<IMG align=absMiddle
src="Delphi编程 --- 在delphi7中利用mscomm控件编程.files/navbar_Separator.gif"> <A
class=navlink href="http://61.130.50.195/list.aspx?cid=3"
onmouseout=delayhidemenu() onmouseover=showmenu(event,2,1,false)>深入开发</A>
<IMG align=absMiddle
src="Delphi编程 --- 在delphi7中利用mscomm控件编程.files/navbar_Separator.gif"> <A
class=navlink href="http://61.130.50.195/list.aspx?cid=4"
onmouseout=delayhidemenu() onmouseover=showmenu(event,3,1,false)>SQL编程</A>
<IMG align=absMiddle
src="Delphi编程 --- 在delphi7中利用mscomm控件编程.files/navbar_Separator.gif"> <A
class=navlink href="http://61.130.50.195/list.aspx?cid=41"
onmouseout=delayhidemenu() onmouseover=showmenu(event,4,1,false)>电脑技术</A>
<IMG align=absMiddle
src="Delphi编程 --- 在delphi7中利用mscomm控件编程.files/navbar_Separator.gif"> <A
class=navlink href="http://61.130.50.195/list.aspx?cid=6"
onmouseout=delayhidemenu() onmouseover=showmenu(event,5,1,false)>新闻资讯</A>
<IMG align=absMiddle
src="Delphi编程 --- 在delphi7中利用mscomm控件编程.files/navbar_Separator.gif"> <A
class=navlink href="http://a51.3322.org/" target=_blank>51下载</A> <IMG
align=absMiddle
src="Delphi编程 --- 在delphi7中利用mscomm控件编程.files/navbar_Separator.gif"> <A
class=navlink href="http://a51.3322.org/bbs/" target=_blank>51论坛</A> <IMG
align=absMiddle
src="Delphi编程 --- 在delphi7中利用mscomm控件编程.files/navbar_Separator.gif"> <A
class=navlink href="http://hcyy.3322.org/index.asp"
target=_blank>红尘雅意论坛</A> </TD>
<TD class=navbar-right></TD></TR></TBODY></TABLE>
<DIV id=printBody name="printBody">
<TABLE align=center cellSpacing=0 class=twidth style="WORD-BREAK: break-all">
<TBODY>
<TR>
<TD class=summary-title> <A
href="http://61.130.50.195/default.aspx">Delphi编程</A> → <A
href="http://61.130.50.195/list.aspx?cid=3">深入开发</A> → <A
href="http://61.130.50.195/list.aspx?cid=23">编程实例</A> </TD></TR>
<TR>
<TD class=tdbg vAlign=top><BR>
<CENTER class=aTitle>在delphi7中利用mscomm控件编程</CENTER>
<TABLE width="97%">
<TBODY>
<TR>
<TD align=right>作者：<SPAN
id=AuthorLabel></SPAN><BR></TD></TR></TBODY></TABLE><SPAN class=content
id=BodyLabel
style="DISPLAY: block; PADDING-BOTTOM: 0px; PADDING-LEFT: 10px; PADDING-RIGHT: 10px; PADDING-TOP: 0px"> Mscomm是微软一个强大的串口通讯的控件，其强大，简单的特点今我们不舍，在delphi中我们也可以使用它。下面这些代码是针对发送和接收为16进制处理的。<BR>var<BR>
senddata:array[1..10] of char;<BR> reData:array of
Variant;<BR> sendstr:string;<BR> restr:string;<BR>
i:longint;<BR>begin<BR> mscomm1.CommPort :=
1;
//指定端口<BR> mscomm1.Settings :=
'9600,N,8,1'; //其它参数<BR>
mscomm1.InBufferSize :=
1024;
//接收缓冲区<BR> mscomm1.OutBufferSize :=
1024;
//发送缓冲区<BR> mscomm1.InputMode := comInputModeBinary;
//接收模式<BR> mscomm1.InputLen :=
0;
//一次读取所有数据<BR> mscomm1.SThreshold :=
0;
//一次发送所有数据<BR> mscomm1.InBufferCount :=
0;
//清空读取缓冲区<BR> mscomm1.OutBufferCount :=
0;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -