用代码及相应的控件实现主机对客户机的监控（知道它是否在线）

Question

用代码及相应的控件实现主机对客户机的监控（例如知道它是否在线），已给出了主机名及ip.

Answer 1

如果有sql,也可定时写一条查询传到主机,有返回则连通,无则断开!

Answer 2

就查找SOCKET连接，有没有客户端IP就可以了

Answer 3

向客户机发送ping命令，检查是否可以连接.

Answer 4

最好有代码，在delphi里的。
谢谢！

Answer 5

D6 下添加Client/ServerSocket 控件:
Client:(被监控端)
  // 连接服务端
   ClientSocket1.Address:=ServerIPAddress;
   ClientSocket1.Port:=ServerListenPort;
   ClientSocket1.Active:=true;
Server:
  OnlineUsers:TSTringList; //用于保存在线用户的List   ServerSocketOnConnect事件：
     memo1.add(socket.RemoteAddress+':'+inttostr(Socket.RemotePort) // (客户端的IP及PORT)    OnlineUsers.AddObject ('User1',socket) //登记连接服务器的用户,socket为该client与Server连接通话的socket
//////////////////
   //还可发送信息：
   tag:=OnlineUsers.IndexOf('User1');
   if tag>=0 then TempSocket:=onlineUsers.Objects[tag] as TCustomWinSocket;
   tempt.SendSomethingToClient;