udiprotocol.pas

楠楠写的DBiocp例子都是源码

unit uDIProtocol;
 
interface

uses
  Windows, WinSock2;
  
const
  //IOCP相关参数定义
  IOCP_TCPSERVER_VERSION = 'IOCP TCP Server Version1.1 Copyright(C) 2000-2007';
  IOCP_UDPSERVER_VERSION = 'IOCP UDP Server Version1.1 Copyright(C) 2000-2007';

  MIN_PACKAGESIZE = SizeOf(DWORD);              //最小包长度
  MAX_PACKAGESIZE = 1024*4;                     //最大包长度
  RECV_CIRCULAR_BUFFER_SIZE = 1024*2;           //接收环形Buffer长度
  SEND_CIRCULAR_BUFFER_SIZE = 1024*4;           //发送环形Buffer长度

  MAX_ANSWER_NUMBER = 65535;                    //最大响应号
  MAX_HEARTBEAT_TIME = 5000;                    //心跳时间5秒
  MAX_HEARTBEAT_COUT = 3;                       //心跳次数3次   30秒

type

  TServerStartType = (
    IOServerStart,				                      //服务器
	  IOClientStart				                        //客户端
  );

  IOEventType = (
    IOInitialize,				                        //初始化状态
	  IOWSAAcceptEx,				                      //AcceptEx事件投递
	  IOWSARecv,					                        //接收事件投递
	  IOWSASend,					                        //发送事件
	  IOWSACloseSocket			                      //关闭事件
  );

  TIOErrorType = (
    IOErrorNoramal,                             //正常断开
    IOErrorAbnormalNoramal,                     //异常断开
    IOErrorCustom                               //自定义错误断开
  );

  //Overlapped结构扩展
  PPerHandleData = ^TPerHandleData;
  TPerHandleData = packed record
    m_overlap: OVERLAPPED;                      //重叠
    pDIBuffer: Pointer;                         //per-I/O的指针
  end;

implementation

end.