控制钱箱：MSComm32组件的 使用(100分)

将MSComm32.ocx文件安装到delphi的ActiveX后，在form1上放置TMSComm组件时出现如下错误："License information for TMSComm not found.youcannot use this control in design mode."
请教高手指教。

注册不对。。你上网找有教你怎么注册的。要不你可以用SPCOMM

hhboy：
您好！
请教应当怎么注册？

请教应当怎么注册？

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls, OleCtrls, MSCommLib_TLB,
ExtCtrls;

type
Tform1 = class(TForm)
MSComm1: TMSComm;
Button1: TButton;
Label1: TLabel;
Memo1: TMemo;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Bevel1: TBevel;
Bevel2: TBevel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Edit1: TEdit;
Label12: TLabel;
Button2: TButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Bevel3: TBevel;
Bevel4: TBevel;
Label13: TLabel;
Bevel5: TBevel;
procedure Button1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject
var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
form1: Tform1;

implementation

{$R *.dfm}

procedure Tform1.Button1Click(Sender: TObject);
begin
MSCOMM1.PortOpen:=TRUE;
end;

procedure Tform1.Edit1Change(Sender: TObject);
begin
IF EDIT1.TEXT<>'' THEN LABEL12.CAPTION:=FLOATTOSTR(STRTOFLOAT(EDIT1.TEXT)-STRTOFLOAT(LABEL9.CAPTION));
end;

procedure Tform1.RadioButton1Click(Sender: TObject);
begin
MSCOMM1.COMMPORT:=1

end;

procedure Tform1.RadioButton2Click(Sender: TObject);
begin
MSCOMM1.COMMPORT:=2;
end;

procedure Tform1.RadioButton3Click(Sender: TObject);
begin
MSCOMM1.COMMPORT:=3;
end;

procedure Tform1.Button2Click(Sender: TObject);
begin
mscomm1.portopen:=false;
end;

procedure Tform1.FormCreate(Sender: TObject);
begin
mscomm1.commport:=1;
RadioButton1.checked:=true;
end;

procedure Tform1.FormClose(Sender: TObject
var Action: TCloseAction);
begin
mscomm1.portopen:=false;
end;

end.

Mscomm 安装需要三个文件和注册
http://ftp13.enet.com.cn:88/pub/utility/otheru/desinmscomm.rar
http://ftp7.enet.com.cn:88/pub/utility/otheru/desinmscomm.rar
注册MSCOMM 工具。

ww990:
您好！
首先感谢您热心帮助。
问题：在form1上放置TMSComm组件时出现如下错误：&quot;License information for TMSComm not found.youcannot use this control in design mode.&quot
不能使用。请帮助。

Mscomm 控件使用：
http://study.99net.net/study/program/vc/1085624790.html

yueing：
您好！真心感谢您的再次帮助。
“ http://ftp7.enet.com.cn:88/pub/utility/otheru/desinmscomm.rar”打不开，请问应当怎样打开学习注册？

在开始————运行中打入regsvr32 c:/windows/system/mscomm32.ocx
不过要把它copy到这个目录中

也就是在要windows 系统中注册一下才行

将 Mscomm32.ocx , Mscomm32.dep, mscomm32.srg 复制到 /WINNT/System32
RegSvr32.exe MSCOMM32.OCX

你可以用Google 搜索一下 &quot;注册MSCOMM&quot;

http://software.tech.tom.com/02/0228/35999/35999_4.shtml
http://down.it168.com/02/0228/35999/35999_4.shtml

在试试这两个下载地址。

首先在VB安装目录下找到下列三个文件:

　　Mscomm.reg, Mscomm32.ocx,Mscomm32.dep ，

　　把这三个文件拷贝到Windows的system目录下（注意WinNT下是System32）。然后用Windows下的注册工具regsvr32注册该OCX控件，例如：

　　Regsvr32 … system目录/Mscomm32.ocx .

　　注册成功后用记事本打开Mscomm.reg,可以看到类似下面的内容:

　　[HKEY_CLASSES_ROOT/Licenses/4250E830-6AC2-11cf-8ADB-00AA00C00905]

@ = &quot;kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun&quot;，为了能正确使用该控件，需要修改注册表的信息，在注册表的在HKEY_CLASSES_ROOT/Licenses下建一主键:

4250E830-6AC2-11cf-8ADB-00AA00C00905,主键的内容为

kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun.

　　至此已经完成了控件的系统注册工作，剩下的工作是在Delphi中导入这个ActiveX控件,进入Delphi环境在Component菜单下选Import ActiveX Control,这时在列表中可以看到Microsoft Comm Control 6.0选项, 选中这个选项点击Install按钮,完成安装。在ActiveX控件页上可以看到一个电话为图标的控件，这就是MSComm控件。这样就可以象在VB中一样方便得使用MSComm控件了。

真心致谢各位的帮助，我先做以下，完成后在联系

多人接受答案了。