Delphi 基于IdTcpServer和IdTcpClient通讯实例源码.rar

delphi基于IdTcpServer和IdTcpClient的通讯实例，包括客户端和服务端， 　　procedureTForm1.IdTCPServer1Connect(AThread:TIdPeerThread); 　　begin 　　Memo1.Lines.Text:='来自主机'AThread.Connection.Socket.Binding.PeerIP'的连接请求已被接纳'; 　　AThread.Connection.WriteLn('Ariel:欢迎连接本服务器，竭诚为您服务'); 　　end; 　　procedureTForm1.IdTCPServer1