读卡器测试程序编写说明-------Delphi的编程的主要步骤：
1、 首先程序delphidll中的窗口上加入编辑框控件memo ，单选按钮控件button，静态控件static 。
2、 在Delphi的component-->import ActiveX Control中选择串口通信选择控件Microsoft Comm Control 6.0。
3、 控件Microsoft Communication Control Version 6.0的需要的设置如下：
CommPort＝1 ; 选择串口1
InputMode=1-Binary ; 选择串口的输入模式为二进制
InputLen＝13 ; 选择从串口的读入字符串长度为13
InBufferSize＝1024 ; 选择串口的输入缓冲区为1024
OutBufferSize＝1024 ; 选择串口的输出缓冲区为1024
Rthreshold=13 ; 选择串口引起触发的输入长度为13
Settings=9600,n,8,1 ; 选择串口的的输入格式：波特率为9600，无校验，长度8，停止位1
4、 了检查串口输入的数据是否正确，调用了动态连接库generaldll.dll，在程序中加入所用动态连接库的函数声明function k4chg(var readtype:Smallint;var needenter:Smallint;var cardnumber :array of Smallint):Smallint;stdcall;external 'generaldll.dll';编辑框输出的就是卡号；两个单选按钮用于选择Com1和Com2；
5、 “清除”用于清楚编辑框中的内容，按钮“退出”用于退出程序
6、 本程序显示从串口输入的卡号；
事例程序谁有需要的话我会用EMAIL 发给他.
[此贴子已经被作者于2004-05-09 08:39:00编辑过]
