最近在導入DataSnap發現一個問題,

中間層可能存在死掉了Session, 但該Session ServerMethods上面的TSQLConnection仍然與資料庫連線,
導致我在SQL Server的sp_who2查到一些不應該出現的連線

請問DataSnap XE要如何知道中間層產生了幾個TServerMethods,
並且有辦法把死掉的Session, 將他的ServerMethods Free掉嗎?

我有想到一個笨方法, 但是好像還有一點問題,
我在TServerMethods1放一個Timer, 一小時後自動Free,
但發現Timer好像沒有反應, 有辦法實做類似的功能嗎/

詳見：Monitoring and Controlling DataSnap TCP/IP Connections - Detecting Graceless Disconnects
===================引 用 frappe 文 章===================
最近在導入DataSnap發現一個問題,

中間層可能存在死掉了Session, 但該Session ServerMethods上面的TSQLConnection仍然與資料庫連線,
導致我在SQL Server的sp_who2查到一些不應該出現的連線

請問DataSnap XE要如何知道中間層產生了幾個TServerMethods,
並且有辦法把死掉的Session, 將他的ServerMethods Free掉嗎?

uses
IdTCPConnection,IdWinsock2,IdContext

procedure TServerContainer1.DSServer1Connect(DSConnectEventObject: TDSConnectEventObject);
var
Val: TCP_KeepAlive;
Ret: DWord;
ClientConnection: TIdTCPConnection;
begin
ClientConnection := TIdTCPConnection(DSConnectEventObject.ChannelInfo.Id);
Val.OnOff := 1;
Val.KeepAliveTime :=3000;
Val.KeepAliveInterval :=3000;
if WSAIoctl(ClientConnection.Socket.Binding.Handle, IOC_IN or IOC_VENDOR or 4,
@Val, SizeOf(Val), nil, 0, @Ret, nil, nil)=SOCKET_ERROR
then begin;
DSConnectEventObject.DbxConnection.Destroy;
Exit;
end;
end;

//網路 client 掉線後 3秒,會清除

------
林