用 API 做的 ServerSocket 例子

program Server;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Winsock,
  Windows;

type
  TParam=record
    TrdId:integer;
    Sckt:TSocket;
  end;

//子线程函数
function ChildThrd(p:Pointer):LongInt;stdcall;
var
  PkLen:integer;
  ThreadId:integer;
  ASocket:TSocket;
  buf:array[0..63] of char; 
begin
  Result:=0;
  ThreadId:=TParam(p^).TrdId;
  ASocket:=TParam(p^).Sckt;
  Writeln('Thread '+IntToStr(ThreadId)+' Create'); 
  PkLen:=1;
  while PkLen>0 do
  begin
    FillChar(buf,SizeOf(buf),0);
    PkLen:=Recv(ASocket,buf,SizeOf(buf),0);  //接收数据
    Write(buf);
    if PkLen>0 then
    begin
      Send(ASocket,buf,PkLen,0);//发送数据
    end;
  end;
  CloseSocket(ASocket); //关闭socket
  Dispose(p);
  Writeln('Thread '+IntToStr(ThreadId)+' End');
  Writeln('Socket '+IntToStr(ASocket)+' DisConnect');
end;

//主程序
var
  MyWSA: WSAData;
  Svr,Clt: TSockAddr;
  NameLen:Integer;
  hSocket,s: TSocket;
  TimeOut:integer;
  ThreadCount:integer;
  hThread:Thandle;
  ThreadID:DWord;
  Param:^TParam;  
begin
  If WSAStartup(MAKEWORD(2,2), MyWSA) <> 0 Then  //初始化
  Begin
    WSACleanup;
    Writeln('WSAStartup() Fail');
    Exit;
  end;
  hSocket := Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP); //创建socket
  If hSocket = INVALID_SOCKET Then
  Begin
    WSACleanup;
    Writeln('Socket() Fail');
    Exit;
  End;
  Svr.sin_family := AF_INET;
  Svr.sin_port := htons(176); //server端口号为176
  Svr.sin_addr.S_addr := inet_addr(PChar('127.0.0.1'));//server的ip地址为127.0.0.1
  If Bind(hSocket, Svr, SizeOf(Svr)) = SOCKET_ERROR Then  //绑定socket
  Begin
    CloseSocket(hSocket);
    WSACleanup;
    Writeln('Bind() Fail');
    Exit;
  end;
  if Listen(hSocket,256) = SOCKET_ERROR Then  //socket开始侦听,最大同时连接数为256个
  begin
    CloseSocket(hSocket);
    WSACleanup;
    Writeln('Listen() Fail');
    Exit;
  end;
  TimeOut:=3000;
  ThreadCount:=0;
  Writeln('Listening......');
  while true do
  begin
    NameLen:=SizeOf(Clt);
    s:=Accept(hSocket,@Clt,@NameLen);//接受一个连接
    if s = SOCKET_ERROR Then
    begin
      CloseSocket(hSocket);
      WSACleanup;
      Writeln('Accept() Fail');
      Exit;
    end
    else
    begin
      Writeln('Socket '+IntToStr(s)+' Connect');
      if SetSockOpt(s,SOL_SOCKET,SO_RCVTIMEO,PChar(@TimeOut),SizeOf(TimeOut))=SOCKET_ERROR then //设置接收超时为3秒
      begin
        CloseSocket(s);
        CloseSocket(hSocket);
        WSACleanup;
        Writeln('SetSockOpt() Fail');
        Exit;
      end;
      if SetSockOpt(s,SOL_SOCKET,SO_SNDTIMEO,PChar(@TimeOut),SizeOf(TimeOut))=SOCKET_ERROR then //设置发送超时为3秒
      begin
        CloseSocket(s);
        CloseSocket(hSocket);
        WSACleanup;
        Writeln('SetSockOpt() Fail');
        Exit;
      end;
      new(Param);
      Param^.TrdId:=ThreadCount;
      Param^.Sckt:=s;
      hThread:=CreateThread(nil,0,@ChildThrd,Param,0,ThreadID); //创建childthrd子线程
      if hThread=0 then
      begin
        Writeln('CreateThread() Fail');
      end
      else
      begin
        Inc(ThreadCount);
      end;
    end;
  end;
  CloseSocket(hSocket); //关闭socket
  WSACleanup;
end.

//源码下载 http://ono.3322.org/mysoft/serversocket.zip

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Java Selector 是一个可以进行异步 I/O 操作的工具类,它可以让一个单独的线程处理多个通道的 I/O 操作。以下是一些 Java Selector 的常用 API 操作,以及相应的注释和示例代码: ```java import java.io.IOException; import java.net.InetSocketAddress; import java.nio.ByteBuffer; import java.nio.channels.SelectionKey; import java.nio.channels.Selector; import java.nio.channels.ServerSocketChannel; import java.nio.channels.SocketChannel; import java.util.Iterator; public class SelectorExample { public static void main(String[] args) throws IOException { // 创建一个 Selector Selector selector = Selector.open(); // 创建一个 ServerSocketChannel 并绑定到指定的端口 ServerSocketChannel serverSocket = ServerSocketChannel.open(); serverSocket.bind(new InetSocketAddress("localhost", 8080)); // 设置为非阻塞模式 serverSocket.configureBlocking(false); // 注册 ServerSocketChannel 到 Selector 上,并指定 SelectionKey.OP_ACCEPT 事件 serverSocket.register(selector, SelectionKey.OP_ACCEPT); while (true) { // 阻塞等待就绪的 Channel,这里会一直等待直到有 Channel 就绪 selector.select(); // 获取已经就绪的 SelectionKey 的集合 Iterator<SelectionKey> keys = selector.selectedKeys().iterator(); while (keys.hasNext()) { SelectionKey key = keys.next(); keys.remove(); // 如果是 OP_ACCEPT 事件,则进行处理 if (key.isAcceptable()) { ServerSocketChannel server = (ServerSocketChannel) key.channel(); SocketChannel channel = server.accept(); channel.configureBlocking(false); channel.register(selector, SelectionKey.OP_READ); // 如果是 OP_READ 事件,则进行处理 } else if (key.isReadable()) { SocketChannel channel = (SocketChannel) key.channel(); ByteBuffer buffer = ByteBuffer.allocate(1024); channel.read(buffer); buffer.flip(); String data = new String(buffer.array(), 0, buffer.limit()); System.out.println("Received message: " + data); } } } } } ``` 上面的代码中,我们首先创建了一个 Selector,然后创建了一个 ServerSocketChannel,并将其注册到 Selector 上,并指定 SelectionKey.OP_ACCEPT 事件。在 while 循环中,我们使用 Selector 的 select() 方法来阻塞等待就绪的 Channel,然后通过 selectedKeys() 方法获取已经就绪的 SelectionKey 的集合。遍历集合中的 SelectionKey,根据不同的事件类型进行处理,如果是 OP_ACCEPT 事件,则说明有新的客户端连接,我们需要将其注册到 Selector 上,并指定 SelectionKey.OP_READ 事件;如果是 OP_READ 事件,则说明有客户端发送了数据,我们需要读取数据并进行处理。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值