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

所需积分/C币:48 2019-07-10 11:00:18 23KB RAR
104
收藏 收藏
举报

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;

...展开详情
立即下载 低至0.43元/次 身份认证VIP会员低至7折
一个资源只可评论一次,评论内容不能少于5个字
您会向同学/朋友/同事推荐我们的CSDN下载吗?
谢谢参与!您的真实评价是我们改进的动力~
关注 私信
上传资源赚钱or赚积分
最新推荐
Delphi 基于IdTcpServer和IdTcpClient通讯实例源码.rar 48积分/C币 立即下载
1/0