Winsock学习笔记1：Winsock基本函数

Winsock服务端编程

最新推荐文章于 2014-08-23 15:35:09 发布

转载最新推荐文章于 2014-08-23 15:35:09 发布 · 61 阅读

本文介绍了一个简单的Winsock服务端编程实例，包括初始化Winsock、创建及绑定套接字、监听连接请求等步骤，并提供了发送与接收数据的函数示例。

代码

var
  WSData: WSAData;
  ServerSocket: TSocket;
  ClientSocket: TSocket;
  LocalAddr: TSockAddrIn;
  ClientSocketAddr: TSockAddrIn;
  ClientSocketAddrLen: Integer;
  SocketMode: Integer;
begin
   // 初始化Winsock
  WSAStartUp($ 202 , WSData);

   // 创建套接字
  ServerSocket: = Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);

   // 设置LocalAddr的参数
  LocalAddr.sin_family: = AF_INET;    // IPV4族
  LocalAddr.sin_addr.S_addr: = Inet_addr( ' 127.0.0.1 ' ); // 点分字符串格式的IP地址转换为互联网格式
  LocalAddr.sin_port: = Htons( 1077 ); // Host To Net Short，主机字节顺序转为网络字节顺序
   // 绑定本机IP地址、端口，绑定之前先设置好LocalAddr的参数
  Bind(ServerSocket, LocalAddr, SizeOf(LocalAddr));

   // 设置Socket模式为非阻塞模式，0为阻塞，非0为非阻塞
  SocketMode: = 1 ;
  IoCtlSocket(ServerSocket, FIONBIO, SocketMode);

   // 开始监听，最多同时监听5个连接
  Listen(ServerSocket, 5 );

   // 接受连接，可以从ClientSocketAddr中获得客户端连接的一些信息，比如IP地址和端口
  ClientSocketAddrLen: = SizeOf(TSockAddrIn);
  ClientSocket: = Accept(ServerSocket, @ClientSocketAddr, @ClientSocketAddrLen);

   ******************************************************************************
   // 发送函数
  var
    Buf: array [ 0 .. 10 ] of Char;
    SendLen: Integer;
  begin
    StrCopy(Buf, PChar(Edit1.Text));
    SendLen: = Send(ClientSocket, Buf, SizeOf(Buf), 0 );
  end;

   // 接收函数

  var
    Buff: array [ 0 .. 10 ] of Char;
    RecvLen: Integer;
  begin
    RecvLen: = Recv(AcceptSocket, Buff, SizeOf(Buff), 0 );
  end;

1.上面的代码表示了服务端的基本流程和Winsock常用函数的用法，为了让代码看起来简单，没有处理异常的代码。

2.上面的代码不涉及Winsock I/O模式，起笔记作用而已，各种函数原型可查MSDN或者其它帮助文件。

原文：http://blog.youkuaiyun.com/dropme/archive/2009/09/08/4532127.aspx