Delphi7中Indy9-----IdTCPServer控件读取任意长度数据包的方法

IdTCPServer控件中的Execute事件，AThread有很多读取客户端数据的方法，但有没有发现，真的没有一款适合你，不是要求数据结尾的格式，就是要求数据长度，就是对任意长度的数据包没辙。坑爹啊！

有的人想用超时的方法来解决任意长度问题，但实际上也不尽如人意。通过阅读Indy的源代码，本人找到了一种简单而有效的方法，可以实现任意长度的数据读取，而且还非设置超时的方式。

在工程中放置TIdTCPServer=IdTCPServer1，Memo=mm，TIdAntiFreeze=IdAntiFreeze1三个控件

先启动监听

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdTCPServer1.DefaultPort  := 6800;
  IdTCPServer1.Active       := TRUE;

  mm.Lines.Add('开始监听');
end;
           

在Form1.IdTCPServer1Execute事件中是核心代码，实际上非常简单

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var vBuff: array[0..1023]of Char;
begin

  while(AThread.Connection.InputBuffer.Size=0)do
  begin
    AThread.Connection.ReadFromStack();
    AThread.Connection.CheckForDisconnect(True, True);
  end;

  AThread.Connection.ReadBuffer(vBuff,AThread.Connection.InputBuffer.Size);
  mm.Lines.Add('接收数据:'+StrPas(vBuff));

end;
           

怎么样，就是这么简单，具体的原理不用我多说吧？一看就很明了了，只要vBuff的大小合适，任意长度的包都可以接收，没有格式的限制，没有超时的限制，生活变得更加美好了!