RemObject 是一个不错的通讯类组件,同时也可以用来开发三层架构的数据库应用程序。但一直没有找到在服务器自调用服务器接口函数方法的相关资料,经过分析源代码,发现可以通过以下简便的方法来实现:
var
IFace : IInterFace;
Factory : IORClassFactory;
begin
Factory := FindClassFactory(’接口名称’);
Factory.CreateInstance(ClientID, IFace);
try
(IFace as 接口).调用函数();
finally
Factory.ReleaseInstance(ClientID, IFace);
end;
end;
var
IFace : IInterFace;
Factory : IORClassFactory;
begin
Factory := FindClassFactory(’接口名称’);
Factory.CreateInstance(ClientID, IFace);
try
(IFace as 接口).调用函数();
finally
Factory.ReleaseInstance(ClientID, IFace);
end;
end;