リモート コンピューターで実行されるアプリのアクティビティを監視する必要があるため、単純な SendLn / RecieveLn メソッドを使用することにしましたが、非常に大きなローカル ネットワーク内で安定するかどうかはわかりません (1 つのサーバーが単純な非常に大量のコンピューターからのテキスト)。
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;