如何让被动启动的AppServer不自动关闭(299分)

  • 主题发起人 主题发起人 luyear
  • 开始时间 开始时间
L

luyear

Unregistered / Unconfirmed
GUEST, unregistred user!
通常AppServer要是由client启动的话,所有的client关闭后,AppServer也就自动关闭了,如何能使它不自动关闭呢!?
我在AppServer的主From的FormCloseQuery事件加判断,如果不是From主动关闭的,AppServer不关闭,但是出现了XXXXXX一堆的地址错误,反正就是看不懂了!看来要继续研究!不知道大家有什么心得?
 
那就在服务器上先用启动这个服务:P
 
能在系统启动时做为服务启动吗?你说的那堆地址肯定都在 CXXXXXXX 以下。
 
可以。
如果系统启动时就启动AppServer,则客户端全部退出时,AppServer仍然不关闭。
 
AppServer做成服务。
 
以上答案不对阿,我问的是被动启动的AppServer,如果主动启动的AppServer我也知道阿!我是设想AppServer发生意外,导致非正常关闭的情况!
 
有点意思。斑竹一个人研究觉得枯燥的话,我要参加。
 
那个关闭的动作是COM引发的。和窗口也没什么关系。
你可以在AppServer里面重载IUnknown::Release,不要卸载自己。
>>你说的那堆地址肯定都在 CXXXXXXX 以下。
和没说一样。就算用了/3GB,往上的地址也是属于kernel的。
 
这个简单:
请看ComServ.pas:
TLastReleaseEvent = procedure(var Shutdown: Boolean) of object;
TComServer = class(TComServerObject)
。。。
property OnLastRelease: TLastReleaseEvent read FOnLastRelease write FOnLastRelease;
end;

很显然,将OnLastRelease接管,Shutdown设置为FALSE就行了。
 
我想问一下楼主,不关闭AppServer的作用是什么??
请讲得详细点……谢谢!!!
 
把AppServer放到启动里
 
有谁成功的,共享一下。
 
用友的软件就是这样的,它是在Client停用几分钟后,Server才停止的
 
如果没有客户端连接,Server就会自动关闭。
你可以写一个客户端程序,总连接再服务器上,就不会关闭了,
或者此程序监视Server 程序的运行情况,使用timer在所有客户端都断开若干时间后关闭,
则服务器就关闭了。
 
后退
顶部