?? 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 + -