delphi安装mscomm实现串口通信，测试mscomm安装成功

说明：

本次实验用的软件版本是delphi6

第一步：下载需要的文件，解压安装包

链接: https://pan.baidu.com/s/1uCe2ko5HRq796esLZwhnKw 提取码: 6666 复制这段内容后打开百度网盘手机App，操作更方便哦

第二步：对电脑进行配置

1. 在mscomm.reg上右键管理员运行，弹窗点确定
2. 将Mscomm32.ocx文件复制到C:\Windows\System32文件夹下
3. 执行regsvr32 Mscomm32.ocx 
4. 将Mscomm32.ocx文件复制到C:\Windows\SysWOW64文件夹下
5. 执行regsvr32 Mscomm32.ocx

第三步：在delphi6里面添加mscomm组件

1. 打开delphi6
2. component>import activeX>Microsoft Commm Control 6.0
3. 如图下图所示，点击install，弹窗点确定
4. 在组件库里activeX下会有如下图所示的图标
5. 到此组件安装完成，下面测试安装是否成功。

第四步：测试安装成功（可以控制端口说明成功了）

1. 拖一个组件放到form里（这里会在use里面新增一个，MSCommLib_TLB）
2. 拖一个按钮放到from里
3. 双击按钮进入写代码

4. 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.

5. 运行delphi程序，单击按钮，提示下面的图，说明安装成功。

提示： 卸载

tmscomm组件加载失败： 

参考：https://www.cnblogs.com/huiy/p/18109986 

在windows上删除MSCOMM32.OCX

命令是：regsvr32+/u+空格+路径(把或者把文件直接拖到光标处)......