1：Winsock基本函数

最新推荐文章于 2019-02-26 21:04:52 发布

原创最新推荐文章于 2019-02-26 21:04:52 发布 · 510 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #socket #stream #互联网 #tcp #网络

本文介绍使用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