用socketconnection 为何不能pooler?急。。。诚心请教。

[hjh218]

用socketconnection 为何不能pooler?

[Miracle]

pooling要自己编码实现。

[huojiehai]

delphi的demo有
C:\Program Files\Borland\Delphi6\Demos\Midas\Pooler

[rainsea]

要自己实现

[xiangwangz]

帮你顶！俺不懂

[hjh218]

首先感谢大家的回复。
demo 中用dcomconnection可以，但是web,socket控件则不行，
我看过demo的代码，它是通过pooler manager动态产生rdm,相当于
一个com控件动态产生另一个com控件.webconnection 是通过httpsrvr.dll
作桥梁，是不是这里的原因，希望继续得到大家的帮助。
感谢 miracle,rainsea,huojiehai.

[akwa]

还有，在DEMO中，获取POOLER中对象需要AS_XXX事件，对于无状态服务器设计有困难，请高手
指教.

[chen_s_G]

我也试过,但最终放弃了,因为监听程序不能访问到RDM的GUID,还是只能用DCOM做!

[lastexile]

用socketconnection能pooler的

http://www.delphibbs.com/delphibbs/dispq.asp?lid=294601

[halfdream]

不错的问题,关注

[huojiehai]

用socketconnection是能pooler的，但如果你服务器端用了某些客户端的VCL组件的话有可能是不行的,即使你uses 了一下这些组件所在的单元也不行。

[halfdream]

刚才看了一下那个DEMO,
它的设计思路倒是确定无疑可以让SocketConnection,或WebConnnection POOLER.
它要手工注册一下才能使用SocketConnection的原因有点象BORLAND程序员的大意...

看看下面这句..
//被POOLED的RDM里面重载了这个函数让我觉得很奇怪..
//因为它不被直接调用的...它不是直接让客户端连上来的,
//也就是说它根本不需要..EnableSocketTransport和EnableWebTransport
//恰恰相反,TPooler类是需要重载这个函数的...
//我想,稍作修改应该就能解决这问题的.
//就不要别扭的去修改注册表了..


class procedure TPooledRDM.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;

[halfdream]

这方式实现的对象POOL。。构架上比较死，不够实用。
不如COM+那样的POOL实用。