Winsock学习笔记1: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或者其它帮助文件。

 

原文:http://blog.csdn.net/dropme/archive/2009/09/08/4532127.aspx

posted @ 2012-09-20 08:52  马儿快跑  阅读(649)  评论(0编辑  收藏  举报