delphi midas scksrv三层有关问题
delphi midas scksrv三层问题？
客户端打开一个数据窗口隔几分钟十分钟不没有键盘、鼠标输入操作后，再去点击客户端就失去响应？？各位高手有没有什么办法解决？
------解决思路----------------------
procedure TStartFrm.Timer1Timer(Sender: TObject);
begin
DataModule1.SocketConnection1.AppServer.ClientOnOut(aPCName,aIP,'','','ON');
if Not Notlogin then close;
end;
上传，客户端名称，IP ON表示在线。
客户端打开一个数据窗口隔几分钟十分钟不没有键盘、鼠标输入操作后，再去点击客户端就失去响应？？各位高手有没有什么办法解决？
------解决思路----------------------
procedure TStartFrm.Timer1Timer(Sender: TObject);
begin
DataModule1.SocketConnection1.AppServer.ClientOnOut(aPCName,aIP,'','','ON');
if Not Notlogin then close;
end;
上传，客户端名称，IP ON表示在线。