这组控件我是在Delphi2007精简版中用到的,之所以用它的起因很简单:
1.IdTcpServer中有Connected和DisConnected事件,易于进行管理,而且当Client非正常关闭也可以用.
2.阻塞方式的通信方式虽然"笨"点,但当一个"笨"办法有效,那它就不是一个笨办法.
3.由于是Tcp方式的连接,可靠性高了很多,而且使得内网连接也可靠了许多.
一.关于组件的一般无错处理和应用
虽然IdTcpClient没有Execute事件,但可以用线程的办法解决,这个网上很多
TClientHandleThread = class(TThread)
private
servercmd:integer;
procedure HandleInput;
protected
procedure Execute; override;
end;
再在主窗口定义一全局变量
ClientHandleThread: TClientHandleThread;
两个过程:
procedure TClientHandleThread.Execute;
begin
while not Terminated do
begin
if not fmclient.cTcpC.Connected then
Terminate
else
try
servercmd:=fmclient.cTcpC.Socket.ReadInteger;
Synchronize(HandleInput);
except
end;
end;
end;
procedure TClientHandleThread.HandleInput;
begin
case servercmd of
....
else
end;
end;
在Client连接时创建线程
if ClientHandleThread<>nil then ClientHandleThread.Terminate;
try
ctcpc.Connect;
if ctcpc.Connected then begin
ClientHandleThread := TClientHandleThread.Create(True);
ClientHandleThread.FreeOnTerminate:=True;
ClientHandleThread.Resume;
end;
except
ctcpc.Disconnect;
end;
在Client的DisConnected事件中释放线程
ClientHandleThread.Terminate;
完事...
IdTcpServer在还有Client连接时要断开可不是件容易事,网上对它也作了些讨论,但没什么结果,在本人的使用过程中,可以用以下方法解决
1.当然是释放所有Connection
一般在Server中都会用一个ListView来登记登录进来的Client,我是这样来释放的
i:=clist.Items.Count-1;
while i>=0 do begin
TIdContext(clist.Items[i].Data).Connection.Disconnect;
dec(i);
end;
try
ctcps.Contexts.UnlockList;
ctcps.Active:=false;
except
end;
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方法来读出相应的内容.
由于是阻塞状态,所以你所有的操作都可以在一次Server的Execute事件中完成,哪怕是传输大文件.而在这个Execute的对话中,不会触发Client的监视线程!这个尤其重要.
2.Server对Client的数据传输
与其说是数据传输,事实上不如说是指令传输.这是在服务器主动的方式下进行的一次性指令传输.注意,与Client对Server交流不同,服务器的所有内容必须在这一次传输中进行完毕!也就是说,这次传输必须是
指令+数据大小+数据内容
的方式一次性给Client解读并处理,当然,你也可以只传输指令,但基本上就是这个结构.为什么呢?因为Server对Client的每次指令都会引起Client的监视线程的Execute事件,而线程不管三七二十一先读入一个Integer的数据,这个Integer分析并处理后续数据.而你如果在这时才对服务器要求数据,服务器发来的数据就会再次经过线程的无差别读取!轻则报错,重则崩溃死机!(开玩笑而已,也可能你有更好的解决办法,无视本警告,仅供参考)