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

【文件属性】：

文件名称：Delphi 基于IdTcpServer和IdTcpClient通讯实例源码.rar

文件大小：23KB

文件格式：RAR

更新时间：2022-07-30 04:46:58

Delphi源码-网络相关

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;

【文件预览】：
srcfans.com
----delphi 基于IdTcpServer和IdTcpClient的通讯练习()
--------Client()
--------Server()