【 tulaoshi.com - 编程语言 】
                             
                            一、 服 务 器 程 序
  创 建 一 个 名 为“server" 的 项 目, 单 文 档 界 面。 
  在serverview.h 中 加 入 代 码: 
             #include “winsock.h"
        添 加 变 量:
              CSize       sizeTotal;// 控 制 滚 动 条
              int   count;// 信 息 条 数
              CString m_data[1000];// 信 息 存 放
              char    Hostname[260];
              char  Hostaddress[20];// 主 机IP 地 址
              SOCKET      m_sock;
              HANDLE      m_hListenThread;// 线 程
              BOOL  m_bInitialized;// 是 否 初 始 化
              WSADATA     WSAData;
              BOOL  flag;
              SOCKADDR_IN saClnt;
              int   saClntLen;
              BOOL  Isconnect;// 是 否 连 接      
  在serverview.cpp 中 重 载CServerView() 构 造 器, 创 建 并 绑 定 嵌 套 字: 
        CServerView::CServerView()
  {     // TODO: add constrUCtion code here
        Isconnect=FALSE;
        flag=FALSE;
        sizeTotal.cy=350;
        sizeTotal.cx=300;
        m_hListenThread;
        count=5;
        int status;
        WSADATA wsaData;
     m_data[0]=“initializing Windows Sockets DLL....";
        if((status=WSAStartup(0x0101, &wsaData))==0)
        {     m_data[0] +=“Succeeded";
              m_bInitialized=TRUE;  
           }
        else
        {     m_bInitialized=FALSE;
        }
        m_sock=socket(AF_INET,SOCK_DGRAM,0);
        m_data[1]=“Creating socket....";
        if(m_sock==INVALID_SOCKET)
        {     m_data[1] +=“Failed";
        }
        m_data[1] +=“Succeeded";
        m_data[2]=“Binding socket....";
        sockaddr_in sa;
        sa.sin_family=AF_INET;
        sa.sin_addr.S_un.S_addr=htonl(INADDR_ANY);
        sa.sin_port=htons(5050);
        if(bind(m_sock,(PSOCKADDR) 
       &sa,sizeof(sa))==SOCKET_ERROR)
        {     m_data[2] +=“Failed";
              closesocket(m_sock);
        }
        m_data[2] +=“Succeeded";
        m_data[3]=“Creating listener thread....";
        unsigned long idThread;
   m_hListenThread=CreateThread(NULL,0,
  (LPTHREAD_START_ROUTINE)Listen,
  (void        if(m_hListenThread)
        {     m_data[3] +=“Succeeded";
              m_data[4] +=“Listening....";
        }
        else
              m_data[4] +=“Failed";
  }   
  在 析 构 函 数 中 完 成 必 需 的 清 除 操 作: 
        CServerView:: ~CServerView()
  {     if(m_bInitialized)
        WSACleanup();
        closesocket(m_sock);
        if(m_hListenThread)
        ::TerminateThread(m_hListenThread,0);
  }       
  定 义 接 收 和 处 理 消 息 的 线 程: 
        long WINAPI Listen(CServerView *pView)
  {     char msg[2000]=“";  
           int   nchar;
        SOCKADDR_IN saClnt;
        int saClntLen;
        while(1)
        { saClntLen=sizeof(saClnt);
          nchar=recvfrom(pView -m_sock,msg,1024,0, 
  (PSOCKADDR) &saClnt, &saClntLen);
          if(nchar0)
          {     pView -m_data[pView -count + +] +
               =“Error in recvfrom";
          pView -InvalidateRect(NULL);
          }
          else
          {switch(msg[0])
          {
          case  ‘A':
          wsprintf(msg,“A:Client from %s attached",
                 inet_ntoa(saClnt.sin_addr));
          pView -m_data[pView -count + +]=msg;
          pView -flag=TRUE;
          pView -InvalidateRect(NULL);
          pView -Isconnect=TRUE;
          pView -saClnt=saClnt;
          pView -saClntLen=saClntLen;
          sendto(pView ->