?? delphi編程 --- 在delphi7中利用mscomm控件編程.htm
字號:
//清空發送緩沖區<BR>
mscomm1.PortOpen:=true;
//打開端口<BR> MSComm1.RThreshold :=
16; //設置接收多少字節開產生oncomm事件<BR>
senddata[1]:=chr($06);
//要發送的數據<BR> senddata[2]:=chr($03);<BR>
senddata[3]:=chr($00);<BR> senddata[4]:=chr($03);<BR>
senddata[5]:=chr($10);<BR> sendstr:='';<BR> for i:=1 to 5
do<BR> sendstr:=sendstr + senddata[i];<BR>
mscomm1.output:=sendstr;
//發送數據<BR> i:=0;<BR> bzw:=false;<BR><BR>
repeat<BR> sleep(10);<BR>
Application.ProcessMessages;<BR> i := i +
1;<BR> If i > 30000
Then<BR>
begin<BR>
showmessage('發送超時!');<BR>
break;<BR> end;<BR> Until bzw =
true;<BR> redata:=mscomm1.Input;
接收數據<BR> restr:='';<BR> for i:=0 to
vararrayhighbound(redata,1) do<BR>
restr:=restr + inttohex(redata[i],2)+' ';<BR>
mscomm1.PortOpen:=false;<BR>
flatmemo1.Text:=restr;<BR>end;<BR>//oncomm事件<BR>procedure
TForm1.MSComm1Comm(Sender: TObject);<BR>begin<BR> case
mscomm1.CommEvent of<BR> comEvReceive: bzw :=
true;<BR> end;<BR>end;
<P>最后，記事發布軟件時要帶上Mscomm32.ocx文件。</P>
<DIV style="TEXT-ALIGN: right; WIDTH: 100%"><A
href="http://www.9seek.com/news/show.aspx?id=566&cid=11" target=_blank
title="Powered by DvNews"><FONT color=#333333 face=Tahoma,Arial
style="BACKGROUND: #ffffff; FONT-SIZE: 11px; TEXT-DECORATION: none">DvNews</FONT></A></DIV></SPAN><BR><BR>
<TABLE cellPadding=0 cellSpacing=0 width="97%">
<TBODY>
<TR>
<TD align=right>
<TABLE>
<TBODY>
<TR>
<TD>來源：<SPAN id=SourceLabel></SPAN><BR>閱讀：<SPAN
id=HitsLabel>1711</SPAN> 次<BR>日期：<SPAN
id=TimeLabel>2005-3-16</SPAN><BR>錄入：<SPAN
id=MemberNameLabel><A
href="http://61.130.50.195/memberProfile.aspx?id=2"
target=_blank>cwj</A></SPAN><BR><BR></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD align=right>【 <A href="http://61.130.50.195/remark.aspx?ID=347"
target=_blank>評論</A> 】 【 <A
href="http://61.130.50.195/mail.aspx?ID=347" target=_blank>推薦</A> 】
【 <A href="javascript:doPrint()">打印</A> 】 【 字體：<A
href="javascript:ContentSize(16)">大</A> <A
href="javascript:ContentSize(14)">中</A> <A
href="javascript:ContentSize(12)">小</A> 】 </TD></TR></TBODY></TABLE>
<TABLE align=center width="97%">
<TBODY>
<TR>
<TD>上一篇：<A
href="http://61.130.50.195/show.aspx?id=344&cid=23">Delphi
中串口通訊的實現</A><BR>下一篇：<A
href="http://61.130.50.195/show.aspx?id=376&cid=23">ZY_602磁卡讀寫器測試程序</A>
</TD></TR></TBODY></TABLE></TD></TR>
<TBODY id=printHide name="printHide">
<TR>
<TD class=summary-title> >> 相關新聞 </TD></TR>
<TR class=tdbg vAlign=top>
<TD
style="PADDING-BOTTOM: 5px; PADDING-LEFT: 2px; PADDING-RIGHT: 2px; PADDING-TOP: 5px">
</TD></TR>
<TR>
<TD align=middle class=summary-title>發表評論 </TD>
<TR>
<FORM action=remark.aspx?id=347 method=post name=remarkForm
onsubmit="return checkRemark();">
<TD class=tdbg>
<TABLE border=0 cellPadding=5 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD>
<SCRIPT>
function checkRemark()
{
var form=document.all.remarkForm;
if (form.body.value=="")
{ alert("請填寫評論內容");
form.body.focus();
return false;
}
if (form.username.value=="")
{ alert("請填寫姓名");
form.username.focus();
return false;
}
if (form.body.value.length>200)
{ alert("評論內容不可以超過200字");
form.body.focus();
return false;
}
if (form.username.value.length>10)
{ alert("姓名不可以超過10個字");
form.username.focus();
return false;
}
form.submit.disabled=true;
return true;
}
function showLen(obj)
{
document.all.bodyLen.innerText=obj.value.length;
}
</SCRIPT>
<INPUT CHECKED name=face type=radio value=1><IMG
src="Delphi編程 --- 在delphi7中利用mscomm控件編程.files/face1.gif"> <INPUT
name=face type=radio value=2><IMG
src="Delphi編程 --- 在delphi7中利用mscomm控件編程.files/face2.gif"> <INPUT
name=face type=radio value=3><IMG
src="Delphi編程 --- 在delphi7中利用mscomm控件編程.files/face3.gif"> <INPUT
name=face type=radio value=4><IMG
src="Delphi編程 --- 在delphi7中利用mscomm控件編程.files/face4.gif"> <INPUT
name=face type=radio value=5><IMG
src="Delphi編程 --- 在delphi7中利用mscomm控件編程.files/face5.gif"> <INPUT
name=face type=radio value=6><IMG
src="Delphi編程 --- 在delphi7中利用mscomm控件編程.files/face6.gif"> <INPUT
name=face type=radio value=7><IMG
src="Delphi編程 --- 在delphi7中利用mscomm控件編程.files/face7.gif"> <INPUT
name=face type=radio value=8><IMG
src="Delphi編程 --- 在delphi7中利用mscomm控件編程.files/face8.gif"> <INPUT
name=face type=radio value=9><IMG
src="Delphi編程 --- 在delphi7中利用mscomm控件編程.files/face9.gif"><BR><INPUT
name=face type=radio value=10><IMG
src="Delphi編程 --- 在delphi7中利用mscomm控件編程.files/face10.gif"> <INPUT
name=face type=radio value=11><IMG
src="Delphi編程 --- 在delphi7中利用mscomm控件編程.files/face11.gif"> <INPUT
name=face type=radio value=12><IMG
src="Delphi編程 --- 在delphi7中利用mscomm控件編程.files/face12.gif"> <INPUT
name=face type=radio value=13><IMG
src="Delphi編程 --- 在delphi7中利用mscomm控件編程.files/face13.gif"> <INPUT
name=face type=radio value=14><IMG
src="Delphi編程 --- 在delphi7中利用mscomm控件編程.files/face14.gif"> <INPUT
name=face type=radio value=15><IMG
src="Delphi編程 --- 在delphi7中利用mscomm控件編程.files/face15.gif"> <INPUT
name=face type=radio value=16><IMG
src="Delphi編程 --- 在delphi7中利用mscomm控件編程.files/face16.gif"> <INPUT
name=face type=radio value=17><IMG
src="Delphi編程 --- 在delphi7中利用mscomm控件編程.files/face17.gif"> <INPUT
name=face type=radio value=18><IMG
src="Delphi編程 --- 在delphi7中利用mscomm控件編程.files/face18.gif"><BR>點評： <TEXTAREA cols=40 name=body onkeydown=showLen(this) onkeyup=showLen(this) rows=4></TEXTAREA>
字數<SPAN id=bodyLen>0</SPAN> <BR>姓名： <INPUT maxLength=15
name=username size=10> <INPUT name=submit type=submit value=" 發 表 ">
<BR><BR><INPUT id=clientDate name=clientDate type=hidden>
<SCRIPT language=javascript> d=new Date();document.all.clientDate.value=d.getYear()+","+d.getMonth()+","+d.getDate()+","+ d.getHours() +","+ d.getMinutes() +","+ d.getSeconds();</SCRIPT>
</TD>
<TD width=350>
<UL
style="LINE-HEIGHT: 150%; LIST-STYLE: square; MARGIN-LEFT: 1em"><LI>尊重網上道德，遵守中華人民共和國的各項有關法律法規
<LI>承擔一切因您的行為而直接或間接導致的民事或刑事法律責任
<LI>本站管理人員有權保留或刪除其管轄留言中的任意內容
<LI>本站有權在網站內轉載或引用您的評論
<LI>參與本評論即表明您已經閱讀并接受上述條款
</LI></UL></TD></TR></TBODY></TABLE></TD></FORM></TR></TBODY></TABLE></DIV>
<TABLE align=center cellPadding=0 cellSpacing=0 class=twidth>
<TBODY>
<TR>
<TD height=20></TD></TR>
<TR>
<TD class=footline></TD></TR>
<TR align=middle height=60 style="LINE-HEIGHT: 130%">
<TD>網站簡介 - 廣告服務 - 網站地圖 - 幫助信息 - 聯系方式<BR><A
href="http://www.miibeian.gov.cn/"
target=_blank>浙ICP備05037601號</A><BR>Copyright © Delphi書屋 Powered by <A
href="http://www.9seek.com/news/show.aspx?id=566&cid=11" target=_blank
title="----------------------------------------- << 動網新聞.Net（Asp.net + C#） --------------------- Version: 3.0 free version For personal and non-commercial use! --------------------- ----------------------------------------- <<">DvNews
3.0</A> </TD></TR></TBODY></TABLE></BODY></HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -