这组控件我是在Delphi2007精简版中用到的,之所以用它的起因很简单: 1.IdTcpServer中有Connected和DisConnected事件,易于进行管理,而且当Client非正常关闭也可以用. 2.阻塞方式的通信方式虽然"笨"点,但当一个"笨"办法有效,那它就不是一个笨办法. 3.由于是Tcp方式的连接,可靠性高了很多,而且使得内网连接也可靠了许多. 一.关于组件的一般无错处理和应用 虽然IdTcpClient没有Execute事件,但可以用线程的办法解决,这个网上很多 TClientHandleThread = class(TThread) 再在主窗口定义一全局变量 ClientHandleThread: TClientHandleThread; 两个过程: procedure TClientHandleThread.Execute; procedure TClientHandleThread.HandleInput; 在Client连接时创建线程 if ClientHandleThread<>nil then ClientHandleThread.Terminate; 在Client的DisConnected事件中释放线程 ClientHandleThread.Terminate; 完事... IdTcpServer在还有Client连接时要断开可不是件容易事,网上对它也作了些讨论,但没什么结果,在本人的使用过程中,可以用以下方法解决 1.当然是释放所有Connection 一般在Server中都会用一个ListView来登记登录进来的Client,我是这样来释放的 i:=clist.Items.Count-1; try 2.后续无错处理 这样还没有完,因为你一定会在DisConnected事件中有若干代码,而关闭不成功的主要原因我猜测不是来自于IdTcpServer本身,而是这些后续代码引起的.所以这步很有必要. 我是这样做的. 在Form的Close事件中让IdTcpServer.Tag=-1 在DisConnected中 If IdTcpServer.Tag<0 then exit; 这样,这个控件终于不再报错了,世界也清静了许多... 二.关于数据传输 数据传输是连接的目的,而揣摸一个组件的传输方式真是一个头痛的事情.虽然这两个组件已经提供了很完美的传输方式, 1.Client对Server的数据传输 这个简单的很,基本上可以用一问一答的方式来作比方(阻塞方式的优点啊). Client用Socket来喊话,它的Write方法很有意思,可以Write多种类型的数据,当然,都是定长或可以判断出长度的类型,而服务器的Execute事件就能用AContext.Connection.IOHandler的各种Read方法来读出相应的内容. 2.Server对Client的数据传输 与其说是数据传输,事实上不如说是指令传输.这是在服务器主动的方式下进行的一次性指令传输.注意,与Client对Server交流不同,服务器的所有内容必须在这一次传输中进行完毕!也就是说,这次传输必须是 指令+数据大小+数据内容 的方式一次性给Client解读并处理,当然,你也可以只传输指令,但基本上就是这个结构.为什么呢?因为Server对Client的每次指令都会引起Client的监视线程的Execute事件,而线程不管三七二十一先读入一个Integer的数据,这个Integer分析并处理后续数据.而你如果在这时才对服务器要求数据,服务器发来的数据就会再次经过线程的无差别读取!轻则报错,重则崩溃死机!(开玩笑而已,也可能你有更好的解决办法,无视本警告,仅供参考) 好了,了解到这里,情况已经很清晰了.我要从Server上给Client发数据,只要打包成如上数据就行了, |
|