1:Winsock基本函数

本文介绍使用Winsock进行服务端编程的基本流程,包括初始化Winsock、创建套接字、设置本地地址、绑定IP及端口、监听连接请求、接受客户端连接等步骤,并提供发送与接收数据的函数示例。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

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; 
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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值