Delphi串口通信编程 - Delphi论坛

第 2 楼

得分:0

读卡器测试程序编写说明-------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编辑过]

/bbs/UploadFile/2005-3/2005320191459674.gif" border="0" onload="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {return true;} else {window.open('http://www./bbs/UploadFile/2005-3/2005320191459674.gif');}" onmousewheel="return imgzoom(this);" alt="" />