请教一个 三层开发的问题

Question

当客户端连接后，如何在服务器端显示客户端的 IP和登陆帐号等信息呢？

Answer 1

ProviderCount可以看到客户端个数，事件的话，你在你的远程单元单元重载以下函数就可以了。procedure RegisterProvider(Value: TCustomProvider); virtual;
procedure UnRegisterProvider(Value: TCustomProvider); virtual;

Answer 2

只能自己写个远程调用过程或者函数，让客户端把IP和登陆帐号等信息传给服务器程序处理，也有弊端，就是你还得写个注销这些信息的远程调用函数或者过程供客户端程序退出时调用，以便清除服务器程序上显示的客户端IP和登陆帐号等信息，但是客户端不是正常退出的时候就麻烦了，因为没机会调用注销那些信息的过程或者函数。