Delphi实现winsock编程之二(套接字的建立绑定侦听以及连接)

以面向连接的网络协议为例，使用套接字进行通信的过程如下图

先总结服务器端步骤

• 1建立套接字
• 2绑定连接
• 3端口侦听
• 4调用accept等待客户端连接
• 5如有连接产生新的套接字，原套接字继续侦听。
• 6新套接字与客户端进行通信（接受和发送数据）
• 7如果通信完毕，请关闭新套接字。
• 8主动关闭套接字

客户端相对而言比较简单

1. 1建立套接字
2. 2连接服务器端
3. 3与服务器端口通信（接受和发送数据）
4. 4发送完毕关闭套接字

下面以静海老师《深入Delphi6网络编程》书第六章简单文件接收器为例看服务器端代码：

procedure TFrmMain.BitListenClick(Sender: TObject);
var     ca:SOCKADDR_IN;
begin
        Server:=Socket(PF_INET, SOCK_STREAM, IPPROTO_IP);  //第一步创建端口
        if Server=INVALID_SOCKET then
                begin