客户端登录的时候,发送一些信息到服务端,并建立连接表,断开时从连接表中删除该信息。
之前用ServerModule的Destroy,发现有时候客户端已经断开,但服务端没有反应或者说ServerModule没有释放掉。
于是我想,ServerContainer里面操作呢,连接的时候PersistentClass := ServerMethods1.TServerMethods1;
断开的时候呢,只有个Connection,网上找了找,例子也只有:TDSTCPServerTransport的DisConnect,那么与客户端发送来的信息关联在哪里,比如mac地址啥的。
后来想TDSServerClass应该也可以,那么,它与ServerModule的关联是哪个,PersistentClass。
那这个又在哪。。
在TDSEventObject这里,Create后,通过DSServerClass1GetClass赋值,通过Destroy释放,
var aSM:ServerMethods1.TServerMethods1;
begin
aSM:=ServerMethods1.TServerMethods1(DSDestroyInstanceEventObject.ServerClassInstance);
//在TServerMethods1里,定义变量,存储客户端连接的时候发送的相关信息,例如:访问数据库的时间,MAC地址,IP地址,登录用户名等,
//这样就可以从MainForm的List或者Grid之类的列表中找到并删除该项。
end;