Delphi中关于IdTcpServer与IdTcpCl…

这组控件我是在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分析并处理后续数据.而你如果在这时才对服务器要求数据,服务器发来的数据就会再次经过线程的无差别读取!轻则报错,重则崩溃死机!(开玩笑而已,也可能你有更好的解决办法,无视本警告,仅供参考)

好了,了解到这里,情况已经很清晰了.我要从Server上给Client发数据,只要打包成如上数据就行了,
本文来自Delphi之窗，原文地址：http://www.52delphi.com