我需要监控在远程计算机上执行的应用程序的活动,所以我选择使用简单的 SendLn / RecieveLn 方法,但我不确定它在非常大的本地网络中是否稳定(一台服务器将收到一个简单的来自大量计算机的文本)。
procedure Tform1.log(inp:string);
begin
//
richEditText.Lines.Insert(0,inp);
end;
procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
var buf:string;
begin
//
log('accept:'+ClientSocket.RemoteHost);
log('accept:'+ClientSocket.Receiveln);
end;