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

delphi 基于IdTcpServer和IdTcpClient的通讯实例，包括客户端和服务端， 　　procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread); 　　begin 　　 Memo1.Lines.Text:='来自主机' AThread.Connection.Socket.Binding.PeerIP '的连接请求已被接纳'; 　　 AThread.Connection.WriteLn('Ariel:欢迎连接本服务器，竭诚为您服务'); 　　end; 　　procedure TForm1.IdTCPServer1Disconnect(AThread: TIdPeerThread); 　　begin 　　Memo1.Lines.Text:='来自主机' AThread.Connection.Socket.Binding.PeerIP '已断开连接'; 　　StatusBar1.Panels[0].Text:='连接已断开'; 　　end; 　　procedure TForm1.IdTCPServer1ListenException(AThread: TIdListenerThread; 　　 AException: Exception); 　　begin 　　StatusBar1.Panels[1].Text:='正在连接.....'; 　　end;