\t\t不同的services之间的调用

发布时间:2016-12-10 14:58:28 编辑:www.fx114.net 分享查询网我要评论
本篇文章主要介绍了"\t\t不同的services之间的调用",主要涉及到\t\t不同的services之间的调用方面的内容,对于\t\t不同的services之间的调用感兴趣的同学可以参考一下。

不同的services之间调用是有可能,如我们封装了DBSerives,而LoginServices也相对独立,但初次校验Session的用户账号和密码,有可能使用到DBSerives的方法。我在新闻组看到RO的一个范例,代码如下: Provided that- you have 3 services (srvcLogin, srvcOne, srvcTwo)- these three are connected to a SessionManager- srvcOne and srvcTwo have RequiresSession = true- session was initialized with a call to srvcLoginyou can call srvcTwo.CalledBySrvcOne via srvcOne.CallSrvcTwo:procedure TsrvcOne.CallSrvcTwo;varinstance: IInterface;factory: IROClassFactory;srvc2: IsrvcTwo;beginfactory := GetClassFactory('srvcTwo');try    factory.CreateInstance(Session.SessionID, instance);    if (Supports(instance, IsrvcTwo, srvc2)) then      srvc2.CalledBySrvcOne;finally    factory.ReleaseInstance(Session.SessionID, instance);end;end;

上一篇:RO里使用TParams参数一点体会
下一篇:几款与众不同的书架创意

相关文章

相关评论