📄 delphi编程 --- zy_602磁卡读写器测试程序.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0044)http://61.130.50.195/show.aspx?id=376&cid=23 -->
<!----------------------------------------------
Powered by DvNews
http://www.aspsky.net/
--------------------------------------------------><HTML><HEAD><TITLE>Delphi编程 --- ZY_602磁卡读写器测试程序</TITLE>
<META content=text/html;charset=gb2312 http-equiv=Content-type>
<META content=动网新闻.net,asp.net,新闻系统 name=keywords><LINK
href="Delphi编程 --- ZY_602磁卡读写器测试程序.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编程 --- ZY_602磁卡读写器测试程序.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编程 --- ZY_602磁卡读写器测试程序.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=376&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编程 --- ZY_602磁卡读写器测试程序.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编程 --- ZY_602磁卡读写器测试程序.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编程 --- ZY_602磁卡读写器测试程序.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编程 --- ZY_602磁卡读写器测试程序.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编程 --- ZY_602磁卡读写器测试程序.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编程 --- ZY_602磁卡读写器测试程序.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编程 --- ZY_602磁卡读写器测试程序.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编程 --- ZY_602磁卡读写器测试程序.files/navbar_Separator.gif"> <A
class=navlink href="http://a51.3322.org/" target=_blank>51下载</A> <IMG
align=absMiddle
src="Delphi编程 --- ZY_602磁卡读写器测试程序.files/navbar_Separator.gif"> <A
class=navlink href="http://a51.3322.org/bbs/" target=_blank>51论坛</A> <IMG
align=absMiddle
src="Delphi编程 --- ZY_602磁卡读写器测试程序.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>ZY_602磁卡读写器测试程序</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">
<P><BR><A href="http://61.130.50.195/upload/2005_03/05032200021471.jpg"
target=_blank>upload/2005_03/05032200021471.jpg</A><IMG
onclick=javascript:window.open(this.src);
onload="javascript:if(this.width>screen.width-400)this.style.width=screen.width-400;"
src="Delphi编程 --- ZY_602磁卡读写器测试程序.files/05032200038454.jpg"
onmousewheel="return bbimg(this)"></P>
<P>unit Unit1;</P>
<P>interface</P>
<P>uses<BR> Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,<BR> Dialogs, StdCtrls, OleCtrls,
MSCommLib_TLB;</P>
<P>type<BR> TForm1 = class(TForm)<BR> GroupBox1:
TGroupBox;<BR> CB_com: TComboBox;<BR>
Label1: TLabel;<BR> Button1:
TButton;<BR> Button2: TButton;<BR>
GroupBox2: TGroupBox;<BR> Button3:
TButton;<BR> Button4: TButton;<BR>
Button5: TButton;<BR> GroupBox3:
TGroupBox;<BR> R_txt: TEdit;<BR>
GroupBox4: TGroupBox;<BR> W_txt:
TEdit;<BR> AX_Comm: TMSComm;<BR>
procedure Button1Click(Sender: TObject);<BR> procedure
Button2Click(Sender: TObject);<BR> procedure
AX_CommComm(Sender: TObject);<BR> procedure
Button3Click(Sender: TObject);<BR> procedure
Button4Click(Sender: TObject);<BR> procedure
Button5Click(Sender: TObject);<BR> procedure
FormClose(Sender: TObject; var Action: TCloseAction);<BR>
private<BR> { Private declarations }<BR>
public<BR> { Public declarations }<BR> end;</P>
<P>var<BR> Form1: TForm1;</P>
<P>implementation</P>
<P>{$R *.dfm}</P>
<P>procedure TForm1.Button1Click(Sender: TObject);<BR>begin<BR>
AX_comm.CommPort:=CB_com.ItemIndex+1;<BR>
AX_comm.PortOpen:=True;<BR> AX_comm.DTREnable:=True;<BR>
AX_comm.InBufferCount:=0; //清空接收缓冲区<BR>
AX_comm.InputLen:=0;
//读取整个缓冲区内容<BR> AX_comm.RThreshold:=25;
//每次接收到字符即产生OnComm事件<BR> CB_com.Enabled:=false;<BR>
Button1.Enabled:=false;<BR> Button2.Enabled:=True;<BR>
Button3.Enabled:=True;<BR> Button4.Enabled:=True;<BR>
Button5.Enabled:=True;<BR>end;</P>
<P>procedure TForm1.Button2Click(Sender: TObject);<BR>begin<BR>
AX_comm.Output:=chr($1B)+ chr($30) ;<BR>
AX_comm.PortOpen:=False;<BR> AX_comm.DTREnable:=False;<BR>
CB_com.Enabled:=True;<BR> Button1.Enabled:=True;<BR>
Button2.Enabled:=false;<BR> Button3.Enabled:=false;<BR>
Button4.Enabled:=false;<BR> Button5.Enabled:=false;<BR>end;</P>
<P>procedure TForm1.AX_CommComm(Sender: TObject);<BR>Var
recstr:Olevariant;<BR>begin<BR> if AX_comm.CommEvent=2
then<BR> begin<BR>
recstr:=AX_comm.Input;<BR> if
copy(recstr,1,2)=(chr($1B)+chr($73))then
//判断是否为读卡内容<BR>
r_txt.Text:=copy(recstr,3,length(recstr)-4);<BR> end;<BR>end;</P>
<P>procedure TForm1.Button3Click(Sender:
TObject);<BR>//传送读卡指令<BR>begin<BR> AX_comm.Output:=chr($1B)+
chr($5D);</P>
<P>end;</P>
<P>procedure TForm1.Button4Click(Sender:
TObject);<BR>//传送写卡指令<BR>begin<BR> if W_txt.Text='' then
showmessage('请输入写卡内容')<BR> else<BR> AX_comm.Output:=chr($1B)+
chr($74)+W_txt.Text+chr($1D)+chr($1B)+ chr($5C) ;<BR>end;</P>
<P>procedure TForm1.Button5Click(Sender: TObject);<BR>//软复位 chr($1B)+
chr($30) 硬复位 chr($1B)+
chr($53)<BR>begin<BR> AX_comm.Output:=chr($1B)+ chr($30)
;<BR>end;</P>
<P>procedure TForm1.FormClose(Sender: TObject; var Action:
TCloseAction);<BR>begin<BR> if Button2.Enabled then
Button2Click(nil);<BR>end;</P>
<P>end.</P>
<P> </P>
<P>=========================================</P>
<P>object Form1: TForm1<BR> Left = 282<BR> Top = 216<BR>
BorderStyle = bsDialog<BR> Caption = 'ZY_602磁卡读写器测试程序'<BR>
ClientHeight = 271<BR> ClientWidth = 268<BR> Color =
clBtnFace<BR> Font.Charset = GB2312_CHARSET<BR> Font.Color =
clWindowText<BR> Font.Height = -13<BR> Font.Name =
'宋体'<BR> Font.Style = []<BR> OldCreateOrder = False<BR>
OnClose = FormClose<BR> PixelsPerInch = 96<BR> TextHeight =
13<BR> object GroupBox1: TGroupBox<BR> Left =
4<BR> Top = 4<BR> Width =
257<BR> Height = 57<BR> Caption =
'端口操作'<BR> TabOrder = 0<BR> object
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -