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

最新推荐文章于 2017-10-09 15:00:18 发布

原创最新推荐文章于 2017-10-09 15:00:18 发布 · 1.5k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

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

Delphi（原创）专栏收录该内容

12 篇文章

订阅专栏

本文介绍了一个简单的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或者其它帮助文件。