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

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

dropme

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

阅读量1.4k

点赞数

分类专栏： Delphi（原创）文章标签： integer socket stream 互联网 tcp 网络

本文链接：https://blog.csdn.net/dropme/article/details/4532127

版权

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

12 篇文章 0 订阅

订阅专栏

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或者其它帮助文件。