1:  var

   2:    WSData: TWSAData;

   3:    lvIOPort:THandle;

   4:    hThread, dwThreadId:DWORD;

   5:   

   6:    sSocket, cSocket:TSocket;

   7:    lvAddr:TSockAddr;

   8:    lvAddrSize:Integer;

   9:    lvMsg:String;

  10:    lvPort:Integer;

  11:   

  12:    lvSystemInfo: TSystemInfo;

  13:    i:Integer;

  14:    lvCount:Integer;

  15:  begin

  16:   

  17:    lvPort := 8988;

  18:   

  19:    //加载SOCKET。使用的是2.2版为了后面方便加入心跳。

  20:    WSAStartup($0202, WSData);

  21:   

  22:    // 创建一个完成端口（内核对象）

  23:    lvIOPort := CreateIoCompletionPort(INVALID_HANDLE_VALUE, 0, 0, 0);

  24:   

  25:   

  26:    //获取系统信息<cpu的数量>

  27:    // GetSystemInfo(lvSystemInfo);

  28:    //lvCount := lvSystemInfo.dwNumberOfProcessors * 2 -1;

  29:   

  30:    //便于调试先创建一个工作线程

  31:    lvCount := 1;

  32:   

  33:    for I:=0 to lvCount do

  34:    begin

  35:       hThread := CreateThread(nil, 0, @ServerWorkerThread, 

  36:         Pointer(lvIOPort),0, dwThreadId);

  37:       if (hThread = 0) then

  38:       begin

  39:           Exit;

  40:       end;

  41:       CloseHandle(hThread);

  42:    end;

  43:   

  44:   

  45:    //创建一个套接字，将此套接字和一个端口绑定并监听此端口。

  46:    sSocket:=WSASocket(AF_INET,SOCK_STREAM,0,Nil,0,WSA_FLAG_OVERLAPPED);

  47:    if sSocket=SOCKET_ERROR then

  48:    begin

  49:        closesocket(sSocket);

  50:        WSACleanup();

  51:    end;

  52:    lvAddr.sin_family:=AF_INET;

  53:    lvAddr.sin_port:=htons(lvPort);

  54:    lvAddr.sin_addr.s_addr:=htonl(INADDR_ANY);

  55:    if bind(sSocket,@lvAddr,sizeof(lvAddr))=SOCKET_ERROR then

  56:    begin

  57:       closesocket(sSocket);

  58:    end;

  59:   

  60:    listen(sSocket,20);