delphi - 在运行时创建 DSServerClass？

Question

任何人都知道如何在运行时创建和运行 DSServerClass？

如果我在 DSServer 启动之前（在运行时）创建它，一切都很好，该类在客户端找到。但是如果我在 DSServer 启动后创建它，客户端将找不到该类。

我是否应该在设计时为每个表手动创建超过 100 个 DSServerClasses，并为每个连接表创建其他 DSServerClasses？

任何建议将不胜感激。谢谢。

Answer 1

Andreano Lanusse 有两篇关于在运行时创建 DataSnap DSServerClass 的博客文章。也许那里的信息可以帮助你。

http://www.andreanolanusse.com/en/registering-datasnap-server-class-in-runtime-with-delphi/

http://www.andreanolanusse.com/en/publishing-providers-when-registering-datasnap-server-class-in-runtime/

Answer 2

第一种方法是像这样发送表名的参数

procedure ActiveRecord(const TableName:string;Id:Integer);
begin
  // do something
end;

其他方式在运行时创建 TDSServerClass。