在我以前写的文章中，一直说的是如何接收数据。但是对于如何发送数据却一点也没有提到。因为从代码量上来说接收的代码要比发送多很多。今天我就来写一下如何使用IOCP发送数据。

TNetControl.SendSpecifyData(const Socket: TSocket; Data: array of char;
  DataLen: Integer): Boolean;

const

  DATA_BUFSIZE = 1024;  //这里定义一个发送数据的缓存长度，只要和接收的一直就可以

var
  PerIoData: LPPER_IO_OPERATION_DATA ;
  SendBytes, RecvBytes: DWORD;
  Flags: DWORD ;
  LenStr:String;
  SendBuf:array [0..DATA_BUFSIZE] of char;
begin
  try
　//由于粘包的关系，所以在需要发送的数据前面加入４位这次发送数据的长度。（详见我的前一篇文章）

　
最近太忙，所以没有机会来写IOCP的后续文章。今天好不容易有了时间来写IOCP的粘包处理问题。
TCP数据粘包的产生原因在于TCP是一种流协议。在以太网中一个TCP的数据包长度是1500位。其中20位的IP包头，20位的TCP包头，其余的１４６０都是我们可以发送的数据。在数据发送的时候，我们发送的数据长度有可能比１４６０短，这样在TCP来说它还是以一个数据包来发送。从而降低了网络的利用率。所以TCP在发送数据包的时候，会将下一个数据包和这个数据包合在一起发送以增加网络利用率（虽然SOCKET 中可以强制关闭这种合并发送，但是我不建议使用）。这样以来，在我们接受到一个数据包以后，就会发现在这个数据包中含有其它的数据包，从而很难处理。
处理粘包现象有多种方法。我的方法是在每发送一个数据的前面加入这次发送的数据长度（4位）。以char的方式加入。这样以来我们的数据包结构就变成了：
数据包长度（４位）+实际数据。
在接收到数据包以后，我们首先得到数据包的长度，然后根据这个数据包长度来得到实际的数据。
……

完成端口（IOCP - I/O Completion Port）及其在 Delphi 下的实现

对于开发一个不考虑跨平台，只在 Windows Server 环境下运行的高性能服务器来说，IOCP无疑是一个最优的解决方案。最近一个项目要用到 IOCP ，特地找了些资料。网上的资料很多，但很多都是以基础性的介绍为主，代码也是些经典书籍上的标准代码。这些代码对理解IOCP无疑是很重要的，但对于高性能服务器开发来说，细节的实现则似乎更加重要。根据自己最近做的一个项目，有几点体会，特记录下来，以备后查。