http://blog.csdn.net/andrew57/article/details/8767308
只描述windows socket部分。
sockets.pas中各个类得继承关系：
TBaseSocket
|
------------------------
|
TIpSocket
|
--------------------------------------------------------------------------------------
| | |
TCustomIPClient TRawSocket TCustomTcpServer
| |
------------------------------------- --------------------
| | |
TTcpClient TUdpSocket TTcpServer
TBaseSocket:
这个是socket基类，此类中封装了winsocket的基本操作，如建立什么类型的socket，关闭socket，数据的发送、接收、检测是否可以读写及异常。并提供了几个控制反转调用。具有socket使用的地址族、协议、类型、socket句柄等成员变量。
ErrorCheck socket函数执行结果检测。
DoHandleError socket函数执行失败后的错误处理。
Open 建立一个socket用户对象(windows内部处理)。
Close关闭建立的socket。
PeekBuf探测接收缓冲区数据长度。
SendBuf写入发送缓冲区。
ReceiveBuf从接收缓冲区读数据。
SendStream发送一个流对象中的数据。
WaitForData判断接收缓冲区是否有数据可读（对select调用）。
TIpSocket
这个类在TBaseSocket基础上增加了绑定地址、接收指定指定地址数据，发送数据到指定地址及主机名和地址转换等方法， 增加了本地地址、端口，远程地址、端口成员变量。
默认建立的是af_inet地址族下的流式socket。
Bind绑定本地地址和端口到socket句柄。
ReceiveFrom接收指定地址的数据，一般udp使用。
SendTo发送数据到指定的地址端口，一般udp使用。
到目前为止此类可以建立一个基本流式socket，但他没有连接，断开，监听等操作。
TCustomIpClient
客户端socket类，顾名思义，此类是作为socket客户端使用的（也许发起连接的就可以称为客户端吧！，连接后两边其实就是对等的了），所以此类增加了Connect, Disconnet
方法，同时改写了TBaseSocket的Open，Close方法。并提供了连接及断开的控制反转。
Open建立socket并连接到远程地址端口。
Close关闭socket的收发同时关闭socket（closesocket）。
Connect对Open的调用。
Disconnect对Close的调用。
GetThreadObject此方法在客户端无用，返回nil。由于服务端等会为每个请求的客户端建立TCustomIpClient来服务，同时每个连接成功的客户端用一条线程专门服务，这个函数便是取那个线程对象用的。线程的引用地址会保存在thread-local变量 ThreadObject中。
TRawSocket
继承自TIpSocket，默认建立的是支持比较底层协议的socket，未尝试不做解释。
TUdpSocket
继承自TIpSocket，建立一个支持udp协议的socket客户端，主要是改变了建立socket的类型和协议，可以参考windows socket（）函数建立不同类型的socket参数说明。
TTcpClient
继承自TCustomIpClient无自己的成员函数和变量。
TClientSocketThread
此线程类主要为服务端使用，当一个连接请求到来时server会取一个此线程类得对象来处理socket的连接，
此线程类得对象主要是生成一个TCustomIpClient来接收sockets accept的返回参数。但注意到execute中在调用了服务端的Accept（）后立即释放了TCustomIPClient，这样意味着立即和客户端断开了，是否无法做数据处理，只是从连接队列中取出一个连接socket而已！！！我们在接下来的 TCustomTcpServer.Accept（var clientSocket: TCustomIpClient）中发现socket函数accept成功后会有DoAccept调用，那么在TTcpServer.OnAccept中加死循环处理通讯知道断开是一种方法，如下：
procedure DoAccept(Sender: TObject; ClientSocket: TCustomIpClient); begin // 到这里时客户端建的连接已经被成功处理，ClientSocket便是和对方通讯的Socket的封装 while not ClientSocket.GetThreadObject.Finished and ClientSocket.Connected do // GetThreadObject就是那个获取那个为客户端服务的线程，上面已介绍 begin // bRead, bExcept: Boolean if ClientSocket.Select(@bRead, nil, @bExcept, 100) then // 判断此socket是否可读且没有异常，在客户端断开时也返回true同时读到得数据长度0，证明已经断开 begin if bRead and not bExcept then begin if ClientSocket.ReceiveBuf(buf, 512) = 0 then // 已经断开 buff: array[0..511] of byte ClientSocket.Disconnect // 断开本地socket改变Connected值 else begin // 处理接收的数据 end; end; end; end; // 到这里已经断开或者线程中发生异常退出 end;
ExecuteSyncProc同步到主线程中执行方法（让主线程调用）。
ClientSocket此线程所建立的TCustomIPClient。
ServerSocketThread建立此线程的服务端线程。
TServerSocketThread
此线程是服务端用于来处理socket请求的线程，他内部有TClientSocketThread缓冲池，默认缓冲10个线程对象，以下介绍他几个方法。
AddClientSocketThread增加一个客户端socket处理线程并加入线程池，如果线程池中缓冲已满那就返回nil，意味着这个socket连接请求就没办法处理 。
这个处理线程可以是TClientSocketThread以及他的派生类对象，如果你没有做派生那默认是TClientSocketThread。
CreateThread建立一个TClientSocketThread线程类对象。
FetchClientSocketThread从缓冲池获取一个已经挂起的对象。
RemoveClientSocketThread这个是供TClientSocketThread调用的，他在释放的时候需要处理。
ClearThreadPool释放缓冲池中对象。
Execute主要是等待客户端的连接，当有连接来时取一条线程来服务客户端，如果缓冲池已满此连接请求将无法处理。
OnGetThread此属性可以调用到派生的TClientSocketThread类对象。
TCustomTcpServer
socket服务端，主要是负责处理客户端的请求，继承自TIpSocket，此服务端类默认是线程阻塞模式（其实socket就只有阻塞于非阻塞，这里的线程阻塞是每个线程服务一个客户端，建立的通讯socket是阻塞的，这样代码好写），如果是阻塞或者非阻塞方式，那自己要处理的事多些，当然自由度应该大些。以下介绍此类得几个方法：
GetThread 获取一个TClientSocketThread类对象，如果是线程阻塞模式此函数供TServerSocketThread调用。
DoAccept 处理请求成功后的控制反转。
Listen 在socket上启动监听。
Open 改写父类方法，调用TBaseSocket.Open建立socket并绑定本地地址端口，启动监听，唤醒服务线程。
Close 改写父类方法，终止并释放服务线程TServerSocketThread，关闭监听socket。
Accept建立TCustomIpClient接收连接请求。
Accept如上面的Accept，成功后改变TCustomIpClient对象的属性，并调用DoAccept。
WaitForConnection 等待客户端连接，有连接才返回，否则阻塞导致执行线程挂起。
TTcpServer
继承自TCustomTcpServer，无自己的方法。
以上时sockets.pas各个类得介绍。
线程阻塞模式下服务启动后，TServerSocketThread会调用WaitForConnection等待连接请求，有连接请求时会被唤醒，然后获取一个线程TclientSocketThread(可能生成)来处理这条连接，当缓冲池已满且获取不到空闲挂起的线程时此连接请求将无法处理，会一直存在连接队列，无法处理，所以使用TClientSocketThread服务时可以将ThreadCacheSize设置大些。而 TClientSocketThread从连接队列获取到socket后会立即关闭，所以必须在DoAccept方法中处理此socket直到关闭，在 TCustomTcpServer.OnAccept有公布。上面有具体代码说明。
另一种方法是不用TServerSocketThread中建立的TClientSocketThread线程来处理数据读写，他们只处理连接请求，而且也不需要10条。这样就必须从TClientSocketThread
派生从一个类来改写TClientSocketThread的一些逻辑（TClientSocketThread.Execute如果不在 OnAccept中死循环socket将会被立即释放），同时在TCustomTcpServer.OnGetThread中提供派生类得对象供 TServerSocketThread使用。
TMyClientSocketThread = class(TClientSocketThread) protected procedure SyncProc; override; // 要同步到主线程的代码 procedure Execute; override; end; Execute如下： var Client: TCustomIpClient; begin // inherited; Client := TCustomIpClient.Create(nil); if Assigned(Client) then begin if ServerSocketThread.ServerSocket.Accept(Client) then // 为Client赋值 begin // 对建立成功的Client处理，比如加入TList，然后由其他线程处理，这里应该快速做完，这样这个线程就可以等待继续被调度，否则其他连接长时间无线程处理 // 依然在连接队列中 end else begin // 失败就释放此socket Client.Free; end; if not Terminated then // 接收客户端socket成功，挂起线程 Suspend; end; end;
兴致来所写，如果错误还望指正，可以随意转载。