DELPHI下的Winsock编程.docx

DELPHI下的Winsock编程
一、定址
      要通过Winsock建立通信，必须了解如何利用指定的协议为工作站定址。Winsock 2引入了几个新的、与协议无关的函数，它们可和任何一个地址家族一起使用；但是大多数情况下，各协议家族都有自己的地址解析机制，要么通过一个函数，要么作为一个投给getsockopt的选项。
     因为目前网络编程中用的最多最普遍的也许就是TCP/IP协议了，所以这里主要介绍此协议下的WinSock编程。
1、IP
   网际协议（Internet Protocol, IP）是一种用于互联网的网络协议，已经广为人知。它可广泛用于大多数计算机操作系统上，也可用于大多数局域网LAN（比如办公室小型网络）和广域网WAN（比如说互联网）。从它的设计看来， IP是一个无连接的协议，不能保证数据投递万
无一失。两个比它高级的协议（TCP和UDP）用于依赖IP协议的数据通信。
2、TCP
       面向连接的通信是通过“传输控制协议”（Transmission Control Protocol, TCP）来完成的。TCP提供两台计算机之间的可靠无错的数据传输。应用程序利用TCP进行通信时，源和目标之间会建立一个虚拟连接。这个连接一旦建立，两台计算机之间就可以把数据当作一个双向字
节流进行交换。
3、UDP
       无连接通信是通过“用户数据报协议”（User Datagram Protocol, UDP）来完成的。UDP不保障可靠数据的传输，但能够向若干个目标发送数据，接收发自若干个源的数据。简单地说，如果一个客户机向服务器发送数据，这一数据会立即发出，不管服务器是否已准备接收数据。如果服务器收到了客户机的数据，它不会确认收到与否。数据传输方法采用的是数据报。
        TCP和UDP两者都利用IP来进行数据传输，一般称为TCP/IP和UDP/IP。Winsock通过AF_INET地址家族为IP通信定址。
4、定址
       IP中，计算机都分配有一个IP地址，用一个32位数来表示，正式的称呼是“IPv4地址”。客户机需要通过TCP或UDP和服务器通信时，必须指定服务器的IP地址和服务端口号。另外，服务器打算监听接入客户机请求时，也必须指定一个IP地址和一个端口号。Winsock中，应用通过SOCKADDR_IN结构来指定I P地址和服务端口信息，该结构的在DELPHI中的声明如下：
  sockaddr_in = record
    case Integer of
      0: (sin_family: u_short;
          sin_port: u_short;
          sin_addr: TInAddr;
          sin_zero: array[0..7] of Char);
      1: (sa_family: u_short;
          sa_data: array[0..13] of Char)
  end;
  TSockAddrIn = sockaddr_in;
        在DELPHI中，sockaddr_in结构被声明为了一个变体记录（关于变体记录可以参看我其他的文章）。sin_family: 字段必须设为AF_INET，以告知Winsock我们此时正在使用I P地址家族。
        准备使用哪个TCP或UDP通信端口来标识服务器服务这一问题，则由sin_port字段定义。在选择端口时，应用必须特别小心，因为有些可用端口号是为“已知的”（即固定的）服务保留的（比如说文件传输协议和超文本传输协议，即FTP和HTTP）。“已知的协议”，即固定协议，采用的端口由“互联网编号分配认证（IANA）”控制和分配，RFC 1700中说明编号。从本质上说，端口号分为下面这三类：“已知”端口、已注册端口、动态和（或）私用端口。
■ 0~1023由IANA控制，是为固定服务保留的。
■ 1024 ~ 49151是IANA列出来的、已注册的端口，供普通用户的普通用户进程或程序使用。
■ 49152 ~ 65535是动态和（或）私用端口。
   普通用户应用应该选择1024 ~ 49151之间的已注册端口，从而避免端口号已被另一个应用或系统服务所用。此外， 49152 ~ 65535之间的端口可自由使用，因为IANA这些端口上没有注册服务。在使用bind API函数时，如果一个应用和主机上的另一个应用采用的端口号绑定在一起，系统就会返回Winsock错误WSAEADDRINUSE。sockaddr_in 结构的sin_addr字段用于把一个IP地址保存为一个4字节的数，它是无符号长整数类型。根据这个字段的不同用法，还可表示一个本地或远程IP地址。IP地址一般是用“互联网标准点分表示法”（像a.b.c.d一样）指定的，每个字母代表一个字节数，从左到右分配一个4字节的无符号长整数。最后一个字段sin_ zero ，只充当填充项的职责，以使sockaddr_in 结构和SOCKADDR结构的长度一样。一个有用的、名为inet_addr的支持函数，可把一个点式IP地址转换成一个32位的无符号长整数。它的定义如下：
unsigned long inet_addr(
const char FAR *cp
);
cp字段是一个空中止字符串，它认可点式表示法的IP地址。注意，这个函数把IP地址当作一个按网络字节顺序排列的32位无符号长整数返回.
1. 特殊地址
        对于特定情况下的套接字行为，有两个特殊IP地址可对它们产生影响。特殊地址INADDR_ANY允许服务器应用监听主机计算机上面每个网络接口上的客户机活动。一般情况下，在该地址绑定套接字和本地接口时，网络应用才利用这个地址来监听连接。如果你有一个多址系统，这个地址就允许一个独立应用接受发自多个接口的回应。
       特殊地址INADDR_BROADCAST用于在一个IP网络中发送广播UDP数据报。要使用这个特殊地址，需要应用设置套接字选项SO_BROADCAST。
2. 字节排序
   针对“大头”（big-endian）和“小头”（little-endian）形式的编号，不同的计算机处理器的表示方法有所不同，这由各自的设计决定。比如， Intel 86处理器上，用“小头”形式来表示多字节编号：字节的排序是从最无意义的字节到最有意义的字节。在计算机中把IP地址和
端口号指定成多字节数时，这个数就按“主机字节”（host-byte）顺序来表示。但是，如果在网络上指定I P地址和端口号，“互联网联网标准”指定多字节值必须用“大头”形式来表示（从最有意义的字节到最无意义的字节），一般称之为“网络字节”（network-byte）顺序。有一系列的函数可用于多字节数的转换，把它们从主机字节顺序转换成网络字节顺序，反之亦然。下面四个API函数便将一个数从主机字节顺序转换成网络字节顺序：
   HTONL,htons,WSAHtons,WSAHtonl

下面这四个是前面四个函数的反向函数：它们把网络字节顺序转换成主机字节顺序：ntohl,WSANtohl,ntohs,WSANtohs
Winsock的初始化
       每个Winsock应用都必须加载Winsock DLL的相应版本。如果调用Winsock之前，没有加载Winsock库，这个函数就会返回一个SOCKET_ERROR，错误信息是WSANOTINITIALISED。
   加载Winsock库是通过调用WSAStartup函数实现的。这个函数在DELPHI中的WinSock单元被定义如下：
   function WSAStartup(wVersionRequired word; var WSData: TWSAData): Integer; stdcall;
   ScktComp中这样使用了此函数
procedure Startup;
var
  ErrorCode: Integer;
begin
  ErrorCode := WSAStartup($0101, WSAData);
  if ErrorCode <> 0 then
    raise ESocketError.CreateResFmt(@sWindowsSocketError,
      [SysErrorMessage(ErrorCode), ErrorCode 'WSAStartup']);
end;
错误检查和控制
       对编写成功的Winsock应用程序而言，错误检查和控制是至关重要的。事实上，对Winsock函数来说，返回错误是非常常见的。但是，多数情况下，这些错误都是无关紧要的，通信仍可在套接字上进行。尽管其返回的值并非一成不变，但不成功的Winsock调用返回的最常见的值是SOCKET_ERROR。在详细介绍各个API调用时，我们打算指出和各个错误对应的返回值。实际上，SOCKET_ERROR常量是- 1。
       如果调用一个Winsock函数，错误情况发生了，就可用WSAGetLastError函数来获得一段代码，这段代码明确地表明发生的状况。该函数的定义如下：function WSAGetLastError: Integer; stdcall;
      发生错误之后调用这个函数，就会返回所发生的特定错误的完整代码。
针对TCP/IP的WinSock编程
        因为TCP协议是一个面向连接的协议，它存在一个概念上的“服务器”端和“客户端”，在编码时，要区分对待。
1、服务器端的编程
     “服务器”在某种概念上我们可以理解为一个进程，它需要等待任意数量的客户机连接，以便为它们的请求提供服务。对服务器监听的连接来说，它必须在一个已知的名字上。在TCP/IP中，这个名字就是本地接口的I P地址，加上一个端口编号。每种协议都有一套不同的定址方案，所以有一种不同的命名方法。在Winsock中，第一步是将指定协议的套接字绑定到它已知的名字上。这个过程是通过API调用bind来完成的。下一步是将套接字置为监听模式。这时，用API函数listen来完成的。最后，若一个客户机试图建立连接，服务器必须通过accept或WSAAccept调用来接受连接。
1.socket
   function socket(af, Struct, protocol: Integer): TSocket; stdcall;
      在加载Winsock DLL的相应版本之后，你要做的第一件事就是建立一个套接字了。在1.1版本中通过使用socket这个API来实现。第一个参数是你要使用的协议家族，第二个参数为套接字类型，最后一个参数指名你要使用的具体协议。下面的代码创建了一个使用IP协议家族中的TCP协议创建的流模式的套接字。
skc := socket(PF_INET, SOCK_STREAM, IPPROTO_TCP);
2. bind
       一旦为某种特定协议创建了套接字，就必须将套接字绑定到一个已知地址。bind函数可将指定的套接字同一个已知地址绑定到一起。该函数声明如下；
function bind(s: TSocket; var addr: TSockAddr; namelen: Integer): Integer; stdcall;
       其中第一个参数s代表我们希望在上面等待客户连接的那个套接字第二个参数addr，针对自己打算使用的那个协议，必须把该参数填充一个地址缓冲区，第三个参数是要传递的、由协议决定的地址的长度。例如这样一段代码
var
  ErrorCode : integer;
  SockAdd_In : TSockAddrIn;
  ...
begin
  ...
  SockAdd_In.sin_family := PF_INET;
  SockAdd_In.sin_port  htons(FPort);
  SockAdd_In.sin_addr.S_addr := htonl(INADDR_ANY);
  ErrorCode := bind(FSock,SockAdd_In,sizeof(SockAdd_In));
一旦出错， bind就会返回SOCKET_ERROR。对bind 来说，最常见的错误是WSAEADDRINUSE。如使用的是TCP/IP，那么WSAEADDRINUSE就表示另一个进程已经同本地IP接口和端口号绑定到了一起，或者那个IP接口和端口号处于TIME_WAIT状态。假如你针对一个套接字调用bind，但那个套接字已经绑定，便会返回WSAEFFAULT错误。
3. listen
       我们接下来要做的是将套接字置入监听模式。bind函数的作用只是将一个套接字和一个指定的地址关联在一起。指示一个套接字等候进入连接的API函数则是listen，其定义如下：
  function listen(s: TSocket; backlog: Integer): Integer; stdcall;
       第一个参数同样是限定套接字。backlog参数指定了正在等待连接的最大队列长度。这个参数非常重要，因为完全可能同时出现几个服务器连接请求。例如，假定backlog参数为2。如果三个客户机同时发出请求，那么头两个会被放在一个“待决”（等待处理）队列中，以便应用程序依次为它们提供服务。而第三个连接会造成一个WSAECONNREFUSED错误。注意，一旦服务器接受了一个连接，那个连接请求就会从队列中删去，以便别人可继续发出请求。backlog参数其实本身就存在着限制，这个限制是由基层的协议提供者决定的。如果出现非法值，那么会用与之最接近的一个合法值来取代。除此以外，对于如何知道实际的backlog值，其实并不存在一种标准手段。与listen对应的错误是非常直观的。到目前为止，最常见的错误是WSAEINVAL。该错误通常意味着，你忘记在listen之前调用bind。否则，与bind调用相反，使用listen时可能收到WSAEADDRINUSE。这个错误通常是在进行bind调用时发生的。
4. accept
      现在，我们已做好了接受客户连接的准备。这是通过accept或WSAAccept函数来完成的。
accept格式如下：
   function accept(s: TSocket; addr: PSockAddr; addrlen: PInteger): TSocket; stdcall;
      其中，参数s是一个限定套接字，它处在监听模式。第二个参数应该是一个有效的SOCKADDR_IN结构的地址，而addrlen应该是SOCKADDR_IN结构的长度。对于属于另一种协议的套接字，应当用与那种协议对应的SOCKADDR结构来替换SOCKADDR_IN。通过对accpet函数的调用，可为待决连接队列中的第一个连接请求提供服务。accept函数返回后，addr结构中会包含发出连接请求的那个客户机的I P地址信息，而addrlen参数则指出结构的长度。此外，accept会返回一个新的套接字描述符，它对应于已经接受的那个客户机连接。对于该客户机后续的所有操作，都应使用这个新套接字。至于原来那个监听套接字，它仍然用于接受其他客户机连接，而且仍处于监听模式。
2、客户机API函数
        客户机要简单得多，建立成功连接所需的步骤也要少得多。客户机只需三步操作：
1) 用socket创建一个套接字。
2) 解析服务器名（以基层协议为准）。
3) 用connect初始化一个连接。
connect函数
     关于创建套接字和解析服务器名的方法，前面已有简单叙述，这里介绍最后一步连接的API函数。我们先来看看该函数的Winsock 1版本，其定义如下：
function connect(s: TSocket; var name: TSockAddr; namelen: Integer): Integer; stdcall;
      该函数的参数是相当清楚的： s是即将在其上面建立连接的那个有效TCP套接字； name是针对TCP（说明连接的服务器）的套接字地址结构（SOCKADDR_IN）；namelen则是名字参数的长度。
3、数据传输
      收发数据是网络编程的主题。要在已建立连接的套接字上接收数据，在Winsock 1版本中，可用这个A P I函数：
int send (
    SOCKET s, 
    const char FAR * buf, 
    int len, 
    int flags 
   );
   delphi中声明如下：
   function send(s: TSocket; var Buf; len, flags: Integer): Integer stdcall;
SOCKET参数是已建立连接的套接字，将在这个套接字上发送数据。第二个参数buf，则是字符缓冲区，区内包含即将发送的数据。第三个参数len，指定即将发送的缓冲区内的字符数。最后，flags可为0、MSG_DONTROUTE或MSG_OOB。另外， flags还可以是对那些标志进行按位“或运算”的一个结果。MSG_DONTROUTE标志要求传送层不要将它发出的包路由出去。由基层的传送决定是否实现这一请求（例如，若传送协议不支持该选项，这一请求就会被忽略）。MSG_OOB标志预示数据应该被带外发送。对返回数据而言，send返回发送的字节数；若发生错误，就返回SOCKET_ERROR。常见的错误是WSAECONNABORTED，这一错误一般发生在虚拟回路由于超时或协议有错而中断的时候。发生这种情况时，应该关闭这个套接字，因为它不能再用了。远程主机上的应用通过执行强行关闭或意外中断操作重新设置虚拟虚路时，或远程主机重新启动时，发生的则是WSAECONNRESET错误。再次提醒大家注意，发生这一错误时，应该关闭这个套接字。最后一个常见错误是WSAETIMEOUT，它发生在连接由于网络故障或远程连接系统异常死机而引起的连接中断时。
      同样地，在已建立了连接的套接字上接收数据也有个函数：
int recv (
    SOCKET s, 
    char FAR* buf, 
    int len, 
    int flags 
   );
   delphi中声明如下：
   function recv(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;
       从API的原型中，我们可以看到，所有关系到收发数据的缓冲都属于简单的char类型。也就是说，这些函数没有“Unicode”版本。所有收发函数返回的错误代码都是SOCKET_ERROR。一旦返回错误，系统就会调用WSAGetLastError获得详细的错误信息。最常见的错误是WSAECONNABORED和WSAECONNRESET。两者均涉及到即将关闭连接这一问题—要么通过超时，要么通过通信方关闭连接。另一个常见错误是WSAEWOULDBLOCK，一般出现在套接字处于非暂停模式或异步状态时。这个错误主要意味着指定函数暂不能完成。
4、流协议
        由于大多面向连接的协议同时也是流式传输协议，所以，在此提一下流式协议。对于流套接字上收发数据所用的函数，需要明白的是：它们不能保证对请求的数据量进行读取或写入。比如说，一个2048字节的字符缓冲，准备用send函数来发送它。对send函数而言，可能会返回已发出的少于2048的字节。是因为对每个收发数据的套接字来说，系统都为它们分配了相当充足的缓冲区空间。在发送数据时，内部缓冲区会将数据一直保留到应该将它发到线上为止。几种常见的情况都可导致这一情形的发生。比方说，大量数据的传输可以令缓冲区快速填满。同时，对TCP/IP来说，还有一个窗口大小的问题。接收端会对窗口大小进行调节，以指出它可以接收多少数据。如果有大量数据涌入接收端，接收端就会将窗口大小设为0，为待发数据做好准备。对发送端来说，这样会强令它在收到一个新的大于0的窗口大小之前，不得再发数据。在使用send调用时，缓冲区可能只能容纳1024个字节，这时，便有必要再提取剩下的1024个字节。
5、中断连接
      一旦完成任务，就必须关掉连接，释放关联到那个套接字句柄的所有资源。要真正地释放与一个开着的套接字句柄关联的资源，执行closesocket调用即可。但要明白这一点，closesocket可能会带来负面影响（和如何调用它有关），即可能会导致数据的丢失。鉴于此，应该在调用closesocket函数之前，利用shutdown函数从容中断连接。接下来，我们来谈谈这两个API函数。
1. shutdown
  为了保证通信方能够收到应用发出的所有数据，对一个编得好的应用来说，应该通知接收端“不再发送数据”。同样，通信方也应该如此。这就是所谓的“从容关闭”方法，并由shutdown函数来执行。shutdown的定义如下：
int shutdown (
    SOCKET s, 
    int how 
   );
       how参数可以是下面的任何一个值： SD_RECEIVE、SD_SEND或SD_BOTH。如果是SD_RECEIVE，就表示不允许再调用接收函数。这对底部的协议层没有影响。另外，对TCP套接字来说，不管数据在等候接收，还是数据接连到达，都要重设连接。尽管如此， UDP套接字上，仍然接受并排列接入的数据。如果选择SE_SEND，表示不允许再调用发送函数。对TCP套接字来说，这样会在所有数据发出，并得到接收端确认之后，生成一个FIN包。最后，如果指定SD_BOTH，则表示取消连接两端的收发操作
2. closesocket
   closesocket函数用于关闭套接字，它的定义如下：
int closesocket (
    SOCKET s 
   );
       如果没有对该套接字的其他引用，所有与其描述符关联的资源都会被释放。其中包括丢弃所有等侯处理的数据。对这个进程中任何一个线程来说，它们执行的待决异步调用都在未投递任何通知消息的情况下被删除。待决的重叠操作也被删除。与该重叠操作关联的任何事件，完成例程或完成端口能执行，但最后会失败，出现WSA_OPERATION_ABORTED错误。还有一点会对closesocket的行为产生影响：套接字选项SO_LINGER是否已经设置。LINGER是“拖延”的意思。SO_LINGER用于控制在未发送的数据排队等候于套接字上的时候，一旦执行了closesocket命令，那么该采取什么样的行动。
应用WinSock建立客户机/服务器程序的活动图

一个典型的客户机/服务器模式的会话程序的顺序图

I/O控制指令
        一系列套接字I/O控制函数用于在套接字之上，控制I/O的行为，同时获取与那个套接字上进行的I/O操作有关的信息。其中，第一个函数是ioctlsocket，起源于Winsock 1规范，声明如下：
int ioctlsocket (
    SOCKET s,
    long cmd,
    u_long FAR* argp
   );

        其中，参数s指定的是要在上面采取I/O操作的套接字描述符，而cmd是一个预定义的标志，用于打算执行的I/O控制命令。最后一个参数argp对应的是一个指针，指向与命令密切相关的一个变量。描述好每个命令之后，再给出要求变量的类型。
标准I/O控制命令
1. FIONBIO
       该命令可在套接字s上允许或禁止“非锁定”（Nonblocking）模式。默认情况下，所有套接字在创建好后，都会自动进入“锁定”套接字。若随FIONBIO这个I/O控制命令来调用ioctlsocket，那么应设置argp，令其传递指向一个“无符号”（无正负号）长整数的指针；若打算启用非锁定模式，应将那个长整数的值设为一个非零值。而若设为0值，意味着套接字进入锁定模式。
       调用WSAAsyncSelect或WSAEventSelect函数的时候，会将套接字自动设为非锁定模式。调用了其中任何一个函数之后，再有任何将套接字设回锁定模式的企图，都会以失败告终，并返回WSAEINVAL 错误。要想将套接字改回锁定模式，应用程序首先必须禁止WSAAsyncSelect。具体的做法是调用WSAAsyncSelect，同时令其lEvent参数等于0。或者调用WSAEventSelect，令lNetworkEvents参数等于0，从而禁止WSAEventSelect
2. FIONREAD
       该命令用于决定可从套接字上自动读入的数据量。对ioctlsocket 来说，argp值会返回一个无符号的整数，其中包含了打算读入的字节数。若套接字s是一个“面向数据流”的套接字（类型为SOCK_STREAM），那么FIONREAD会返回在单独一次接收调用中，可返回的数据总量。要注意的是，若使用这种或其他形式的消息预先“窥视”机制，并一定保证能够返回正确的数据量。若在一个数据报套接字（类型为SOCK_DGRAM）上使用I/O控制命令，返回值就是在套接字上排队的第一条消息的大小
3. SIOCAT M A R K
       若一个套接字配置成接收带外（OOB）数据，而且已设置成以内嵌方式读取这种OOB数据（通过设置SO_OOBINLINE套接字选项），那么本I/O控制命令就会返回一个布尔值，指出接下来是否准备接收OOB数据。如答案是肯定的，则返回TRUE；否则，便返回FALSE，而且下一次接收操作会返回OOB数据之前的所有或部分数据。对ioctlsocket来说，argp会返回一个指向布尔变量的指针。
套接字模式
      Windows套接字在两种模式下执行I/O操作：锁定和非锁定(阻塞和非阻塞)。
     在锁定模式下，在I/O操作完成前，执行操作的Winsock函数（比如send和recv）会一直等候下去，不会立即返回程序（将控制权交还给程序）。而在非锁定模式下， Winsock函数无论如何都会立即返回。
      对于处在锁定模式的套接字，我们必须多加留意，因为在一个锁定套接字上调用任何一个Winsock API函数，都会产生相同的后果—耗费或长或短的时间“等待”。大多数Winsock应用都是遵照一种“生产者－消费者”模型来编制的。在这种模型中，应用程序需要读取（或写入）指定数量的字节，然后以它为基础执行一些计算。这种方式下的使用，一定要注意到阻塞作用产生的副作用，例如，我们编写了了一个“服务器端”的进程，创建一个套接字，然后在主线程中用一个循环接受客户端发起的连接请求，我们用到了ACCEPT函数，那么在阻塞模式下，当没有客户端请求发送时，调用accept函数的线程（这里是主线程）将一直阻塞下去，不会返回，这也就意味着你其他的并发操作无法执行，例如你的程序带有GUI界面，那么你将无法操作窗口上的其他按钮。
        为了解决上述问题，我们注意到阻塞的作用是针对调用它的线程，也就是说，如果我们在主线程中创建一个辅助线程来进行轮循操作，那么虽然此辅助线程可能被阻塞，但不会影响到主线程的工作。
       对锁定套接字来说，它的一个缺点在于：应用程序很难同时通过多个建好连接的套接字通信。使用前述的办法，我们可对应用程序进行修改，令其为连好的每个套接字都分配一个读线程，以及一个数据处理线程。尽管这仍然会增大一些开销，但的确是一种可行的方案。唯一的缺点便是扩展性极差，以后想同时处理大量套接字时，恐怕难以下手。
非锁定模式
        除了锁定模式，我们还可考虑采用非锁定模式的套接字。尽管这种套接字在使用上存在着些许难度，但只要排除了这项困难，它在功能上还是非常强大的。除具备锁定套接字已有的各项优点之外，还进行了少许扩充，功能更强。将一个套接字置为非锁定模式之后， Winsock API调用会立即返回。大多数情况下，这些调用都会“失败”，并返回一个WSAEWOULDBLOCK错误。什么意思呢它意味着请求的操作在调用期间没有时间完成。举个例子来说，假如在系统的输入缓冲区中，尚不存在“待决”的数据，那么recv（接收数据）调用就会返回WSAEWOULDBLOCK错误。通常，我们需要重复调用同一个函数，直至获得一个成功返回代码。
       由于非锁定调用会频繁返回WSAEWOULDBLOCK错误，所以在任何时候，都应仔细检查所有返回代码，并作好“失败”的准备。许多程序员易犯的一个错误便是连续不停地调用一个函数，直到它返回成功的消息为止。
       锁定和非锁定套接字模式都存在着优点和缺点。其中，从概念的角度说，锁定套接字更易使用。但在应付建立连接的多个套接字时，或在数据的收发量不均，时间不定时，却显得极难管理。而另一方面，假如需要编写更多的代码，以便在每个Winsock调用中，对收到一个WSAEWOULDBLOCK错误的可能性加以应付，那么非锁定套接字便显得有些难于操作。在这些情况下，可考虑使用“套接字I / O模型”，它有助于应用程序通过一种异步方式，同时对一个或多个套接字上进行的通信加以管理。
一个例子：
   为了阐述锁定模式和非锁定模式的区别，可以用下面这个例子来演示：
...{
    作者:wudi_1982
    联系方式:wudi_1982@
    转载请著名出处
}
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,winsock, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ckbxB: TCheckBox;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    ...{ Private declarations }
  public
    ...{ Public declarations }
  end;
  TSockReadThread= class(TThread)
    private
      FSocket : TSocket;
      FBuf : array[0..255] of Char;
      FMemo : TMemo;
      procedure GetResult;
    protected
      procedure Execute;override;
    public
      constructor Create(pSocket : TSocket;mm : TMemo);
  end;

var
  Form1: TForm1;
  WSAData : TWSAData;

implementation

...{$R *.dfm}

procedure StartUp;
var
  ErrorCode : integer;
begin
  //加载winSock dll
  ErrorCode := WSAStartup($0101 WSAData);
  if ErrorCode <> 0 then
  begin
    ShowMessage('加载失败');
    exit;
  end;
end;
//创建一个服务器
procedure TForm1.Button1Click(Sender: TObject);
var
  ErrorCode,AddSize  : integer;
  SockAdd_In,Add: TSockAddrIn;
  tm : Longint;
  WSAData : TWSAData;
  FSock,AcceptSock : TSocket;
begin

  //创建一个使用TCP协议的套接字
  FSock := socket(PF_INET, SOCK_STREAM, IPPROTO_TCP);
  if FSock = SOCKET_ERROR then
  begin
    showmessage(Format('%s;ErrorCode:%d',['套接字创建失败',WSAGetLastError]) );
    Exit;
  end;
  //根据一个TCheckBox控件的选择情况来决定使用锁定模式还是非锁定模式
  if ckbxB.Checked then
   tm := 1 //非锁定模式
  else tm := 0;  //锁定模式
  ioctlsocket(FSock,FIONBIO,tm);

  SockAdd_In.sin_family := PF_INET;
  SockAdd_In.sin_port := htons(5151);
  SockAdd_In.sin_addr.S_addr := htonl(INADDR_ANY);
  //绑定
  ErrorCode := bind(FSock,SockAdd_In,sizeof(SockAdd_In));
  if ErrorCode = SOCKET_ERROR then
  begin
    showmessage(Format('%s;ErrorCode:%d',['绑定失败：',WSAGetLastError]) );
    Exit;
  end;
  //置为监听模式
  listen(FSock,5);

    //用一个循环来反复判断是否有客户端请求，如果存在请求就创建一个用来接受数据的读取线程
  while true do
  begin
    AddSize := sizeof(Add);
    AcceptSock := accept(FSock,@Add,@AddSize);
    if AcceptSock <> INVALID_SOCKET then
    TSockReadThread.Create(AcceptSock,Memo1);
    Application.ProcessMessages;

  end;

end;

...{ TSockReadThread }

constructor TSockReadThread.Create(pSocket: TSocket; mm: TMemo);
begin
   FMemo := mm;
   FSocket := pSocket;
   inherited Create(fa