delphi2007 服务器端TRemoteDataModule注册

最新推荐文章于 2018-10-30 09:26:13 发布

原创最新推荐文章于 2018-10-30 09:26:13 发布 · 2.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #服务器 #initialization #class #string #c

Delphi 多层学习笔记专栏收录该内容

6 篇文章

订阅专栏

本文介绍了使用Delphi2007创建TRemoteDataModule时遇到的自动注册问题及解决方案。通过手动添加ComServer.UpdateRegistry(true)语句到初始化部分，确保组件正确注册。

今天用Delphi2007新建了一个TRemoteDataModule的多层服务端，编译后发现不能自动完成注册。在网上找到了答案希望对大家有用。

我们新建一个TRemoteDataModule时会自动添加以下代码：

如果注册后无法确认是否注册成功，可以用C:"WINNT"Regedit.exe检查（没查过）。

class procedure TRDM.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
begin
  if Register then
  begin
    inherited UpdateRegistry(Register, ClassID, ProgID);
    EnableSocketTransport(ClassID);
    EnableWebTransport(ClassID);
  end else
  begin
    DisableSocketTransport(ClassID);
    DisableWebTransport(ClassID);
    inherited UpdateRegistry(Register, ClassID, ProgID);
  end;
end;

initialization
  TComponentFactory.Create(ComServer, TRDM,
    Class_RDM, ciMultiInstance, tmApartment);
end.

以上代码Delphi7编译后可以完成注册，但是Delphi2007不会自动注册，需要手动添加代码ComServer.UpdateRegistry(true);完成注册。将单元的Initialization改为以下代码即可。

initialization
  TComponentFactory.Create(ComServer, TSuperRed,
  Class_SuperRed, ciMultiInstance, tmApartment);
  ComServer.UpdateRegistry(true);//添加该行语句完成注册