说明:
本次实验用的软件版本是delphi6
第一步:下载需要的文件,解压安装包
链接: https://pan.baidu.com/s/1uCe2ko5HRq796esLZwhnKw 提取码: 6666 复制这段内容后打开百度网盘手机App,操作更方便哦
第二步:对电脑进行配置
- 在mscomm.reg上右键管理员运行,弹窗点确定
- 将Mscomm32.ocx文件复制到C:\Windows\System32文件夹下
- 执行regsvr32 Mscomm32.ocx
- 将Mscomm32.ocx文件复制到C:\Windows\SysWOW64文件夹下
- 执行regsvr32 Mscomm32.ocx
第三步:在delphi6里面添加mscomm组件
- 打开delphi6
- component>import activeX>Microsoft Commm Control 6.0
- 如图下图所示,点击install,弹窗点确定
- 在组件库里activeX下会有如下图所示的图标
- 到此组件安装完成,下面测试安装是否成功。
第四步:测试安装成功(可以控制端口说明成功了)
- 拖一个组件放到form里(这里会在use里面新增一个,MSCommLib_TLB)
- 拖一个按钮放到from里
- 双击按钮进入写代码
-
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, MSCommLib_TLB, StdCtrls, ComObj; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; MSComm1: TMSComm; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var MSComm1: TMSComm; begin MSComm1 := TMSComm.Create(nil); try MSComm1.CommPort:= 7; // 请替换为实际的串口名称 MSComm1.InBufferSize := 1024; MSComm1.OutBufferSize := 1024; MSComm1.PortOpen := True; if MSComm1.PortOpen then ShowMessage('MSComm 安装成功') else ShowMessage('MSComm 安装失败'); except on E: Exception do ShowMessage('MSComm 安装测试出错: ' + E.Message); end; MSComm1.Free; end; end.
- 运行delphi程序,单击按钮,提示下面的图,说明安装成功。
提示: 卸载
tmscomm组件加载失败:
参考:https://www.cnblogs.com/huiy/p/18109986
在windows上删除MSCOMM32.OCX
命令是:regsvr32+/u+空格+路径(把或者把文件直接拖到光标处)......