Delphi Socket 实现编程（4）

现在的位置: 首页 > 综合 > 正文

Delphi Socket 实现编程（4）

2018年02月06日 ⁄ 综合 ⁄ 共 3309字 ⁄ 字号小中大 ⁄ 评论关闭

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

Winsock学习笔记2：WSAAsyncSelect模型

共有五种类型的套接字I/O模型，可让Winsock应用程序对I/O进行管理，它们包括：

select（选择）、WSAAsyncSelect（异步选择）、WSAEventSelect（事件选择）、overlapped（重叠）以及 completion port（完成端口）。

WSAAsyncSelect（异步选择）是最简单也最好理解的模式，因为用这个模式你都不需要明白多线程的编程知识~

话不多说，先上代码（下面的代码不包含异常处理，仅为学习使用）：

//先在单元头部定义消息
const
WM_SOCKET = WM_USER + 55;

//然后定义处理消息的函数
procedure WMSocket(var Msg: TMessage); message WM_SOCKET;

procedure TForm1.FormCreate(Sender: TObject);
var
  WSData: WSAData;
  ServerSocket: TSocket;
  LocalAddr: TSockAddrIn;
begin
  //初始化Winsock
  WSAStartUp($202, WSData);
  //创建套接字
  ServerSocket:= Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);

//设置WinSock I/O模式
WSAAsyncSelect(ServerSocket, Handle, WM_SOCKET, FD_ACCEPT or FD_READ);

//开始监听，最多同时监听5个连接
Listen(ServerSocket, 5);
end;

procedure TForm1.WMSocket(var Msg: TMessage);
var
  Buff: array [0 .. 10] of Char;
  AddrIn: TSockAddrIn;
  AddrLen: Integer;
  ClientSocket: TSocket;
begin
  case WSAGetSelectEvent(Msg.LParam) of
    FD_ACCEPT: //收到连接请求
      begin
        AddrLen := SizeOf(AddrIn);
        ClientSocket := Accept(Msg.WParam, @AddrIn, @AddrLen);

        WSAAsyncSelect(ClientSocket, Handle, WM_SOCKET, FD_ACCEPT or FD_READ);
      end;
    FD_READ:  //有消息从客户端发过来的时候
      begin
        Recv(Msg.WParam, Buff, SizeOf(Buff), 0);
        Memo1.Lines.Add(Buff);
        Buff := 'I Received!';
        Send(Msg.WParam, Buff, SizeOf(Buff), 0);
      end;
  end;
end;