<wbr><div> <div> <h1><a href="http://www.cnblogs.com/devcjq/" name="Header1_HeaderTitle">stma</a></h1> <p><wbr></wbr></p> </div> <div> <h2><a href="http://www.cnblogs.com/devcjq/articles/2326538.html" name="cb_post_title_url">IdTcpServer/IdTcpClient 实例</a></h2> <div> <div> <p>IdTcpServer<br> uses IdContext //需要引用<br> 属性,方法:<br> IdTCPServer.Active :=True; //开启服务器<br> IdTCPServer1.Bindings.Add.IP := '127.0.0.1';//绑定IP<br> IdTCPServer1.Bindings.Add.Port := 7956;//绑定端口<br> 事件:<br> OnConnect : 客户端连接成功触发<br> OnDisConnect : 客户端断开触发<br> OnExeCute : 收到客户端数据触发</p> <p>例子<br> //像所有客户断发送数据<br> var<br> I: Integer;<br> Context: TIdContext;<br> begin<br> with IdTCPServer1.Contexts.LockList do<br><wbr><wbr><wbr> try<br><wbr><wbr><wbr><wbr><wbr> for I := 0 to Count - 1 do<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr> begin<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr> Context := TIdContext(Items[I]);<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr> Context.Connection.IOHandler.Write('Hello,everybody!');<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr> end;<br><wbr><wbr><wbr> finally<br><wbr><wbr><wbr><wbr><wbr> IdTCPServer1.Contexts.UnlockList;<br><wbr><wbr><wbr> end;<br> end;</wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></p> <p>//向某个客户发送数据<br> var<br> I: Integer;<br> Context: TIdContext;<br> begin<br> with IdTCPServer1.Contexts.LockList do<br><wbr><wbr><wbr> try<br><wbr><wbr><wbr><wbr><wbr> for I := 0 to Count - 1 do<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr> begin<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr> Context := TIdContext(Items[I]);<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr> if Context.Binding.PeerIP <> '192.168.10.90' then<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr> continue;<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr><wbr> Context.Connection.IOHandler.Write('Hello!');<br><wbr><wbr><wbr><wbr><wbr><wbr><wbr> end;<br><wbr><wbr><wbr> finally<br><wbr><wbr><wbr><wbr><wbr> IdTCPServer1.Contexts.UnlockList;<br><wbr><wbr><wbr> end;<br> end;</wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></wbr></p> <p>IdTcpClient<br> 属性,方法:<br> ConnectTimeOut:连接超时<br> Host:主机IP或域名<br> IPVersion:Ip版本 ipv4 or ipv6<br> Name:控件名<br> Port:主机端口<br> ReadTimeOut:读取超时<br> IdTCPClient1.Connect; //连接服务端<br> IdTCPClient1.Disconnect;//端开连接<br> IdTCPClient1.Connected;//是否连接成功 返回true 连接成功</p> <p><br> IdTCPClient1.IOHandler.WriteLn('aa');// 向服务端发送数据</p> <p>OnWork事件AWorkMode=wmRead<wbr><wbr> 表示有收到数据</wbr></wbr></p> </div> </div> </div> </div> </wbr>
delphi IdTcpServer/IdTcpCli…
最新推荐文章于 2023-08-30 23:03:29 发布