INDY(UDP)源码分析

idUdpserve
-----------------
TIdBaseComponent // 主要保存版本号信息
TIdComponent(建立一个纯虚类TIdStack对象, 获取本机机器名), 另外操作一个结构体WORK数组
TIdUDPBase
TIdUDPServer 建立一个TIdSocketHandles对象，主要是由用户输入IP，端口号.
里边的主要是一个读数据包操作，OnUDPRead属性， PacketReceived DoUDPRead
TIdUDPBase 里Active为True时，调用GetBinding过程，因为其为虚函数，调用派生类的, 该过程创造一个TIdUDPListenerThread线程对象,将自身当参数传递过去.

TIdBaseThread(基类线程类)  从VCL线程类TThread继承， 里边没什么东西，就俩个同步函数
TIdThread 纯虚类
procedure TIdThread.Execute;
如果没有选择停止，一直在调用派生类的TIdUDPListenerThread.Run

TIdUDPListenerThread (派生线程类)
主要是 procedure TIdUDPListenerThread.Run函数
创建了一个FReadList对象，FReadList.Capacity := FServer.Bindings.Count，涉及VCL中的TLIST类,  估计主要是一次将内存分配好，避免内存碎片
然后遍历List， 感觉这么写，如果Client多的时候，这遍历效率低了点
if FServer.ThreadedEvent then  // 选择是否同步执行UDPRead
  begin
    UDPRead;
  end
  else
  begin
     Synchronize(UDPRead);
  end;

procedure TIdUDPListenerThread.UDPRead;
begin
  FServer.PacketReceived(FBuffer, IncomingData); // DoUDPRead ，判断TIdUDPServer 的Read事件属性, 就是外部IDUDPSER的ONREAD事件
end;

------------
TIdBaseComponent
TIdComponent
TIdUDPBase  核心类 ， (涉及 TIdSocketHandle, 涉及TCollection)，封装SOCKET的 Bind Listen  Connect Accept等操作 ) 主要为SOCKET接收 发送
TIdUDPClient 比较简单，就俩函数Send和SendBuffer 最终都是转换成 TIdSocketHandle类的 SendTo函数

Client发包过来，Serve里创建一个线程，不停地接收

转载于:https://www.cnblogs.com/chengxin1982/archive/2009/12/07/1618295.html