用 API 做的 ServerSocket 例子

原创 2002年08月01日 08:59:00

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

java ServerSocket API 详解

此类实现服务器套接字。服务器套接字等待请求通过网络传入。它基于该请求执行某些操作,然后可能向请求者返回结果。 服务器套接字的实际工作由 SocketImpl 类的实例执行。应用程序可以更改创建套接字...
  • sunny_sailor
  • sunny_sailor
  • 2012年08月06日 13:54
  • 810

Java网络编程——Socket与ServerSocket

我们知道,程序可以通过ServerSocket和Socket两个类来实现TCP服务器、TCP客户端。下面我们通过一个简单的demo看一下代码中具体是怎么实现的。     Client.java i...
  • yanmei_yao
  • yanmei_yao
  • 2013年02月17日 20:45
  • 3146

API写的ServerSocket多线程应用例子

program Server; {$APPTYPE CONSOLE} uses  SysUtils,  Winsock,  Windows; type  TParam=record    TrdId:...
  • micel108
  • micel108
  • 2007年07月13日 15:51
  • 1177

一个Socket5的例子(Delphi)

一:前言经常在论坛上面看到很多人问如何实现Socket5编程,下面就自己对于Socket5的一些肤浅认识写上几句.文章分几个系列,包括Socket5客户端和服务端的编写.文章参考了一些SOCKET5的...
  • formiss
  • formiss
  • 2007年04月30日 10:54
  • 1136

BCB ServerSocket多线程示例

TServerSocket的OnGetThread处理应该创建一个新的线程。然后把ClientSocket 传给 SocketThread  *&SocketThread的线程类指针的 应该是从TSe...
  • u014438664
  • u014438664
  • 2015年03月29日 23:26
  • 711

Socket: 通过TCP协议进行通信

Java 为TCP 协议提供了两个类: Socket 类和ServerSocket 类.一个Socket 实例表示了TCP连接的一端。ServerSocket 实例监听TCP连接请求,并为每个请求创建...
  • aduovip
  • aduovip
  • 2011年05月15日 16:50
  • 7372

简单的Socket及ServerSocket例子

刚学习socket,参考了一些资料,实现一个简单的java tcp socket Socket 类   socket可以使一个应用从网络中读取和写入数据,不同计算机上的两个应用可以通过连接发送...
  • zhoufenqin
  • zhoufenqin
  • 2015年12月18日 09:06
  • 13818

java BIO实例——ServerSocket、Socket编程

在使用传统的ServerSocket和Socket的时候很多时候程序是会阻塞的。比如serversocket.accept() , socket.getInputStream().read() 的时候...
  • liuxiao723846
  • liuxiao723846
  • 2016年01月04日 18:12
  • 705

Windows API 第一个实例程序

由于工作,需要,准备开始 学习一下 Windows API 编程。 主要是从 精通 WinowsAPI 这个书籍入手的, 很多东西,都是参考或者借鉴原文的。 首先需要添加 #include   这个...
  • liuwumiyuhuiping
  • liuwumiyuhuiping
  • 2012年12月02日 15:11
  • 2460

AIR2.0入门教程: ServerSocket -(3) ServerSocket例子

这篇文章中,我们使用AIR2.0中提供的新API -- SeverSocket来构建一个你自己的聊天程序。这个聊天程序由两部分组成,一个是客户端,一个是服务端。 准备工作在开始之前,我们首先要做一些准...
  • fzhlee
  • fzhlee
  • 2010年04月24日 14:51
  • 1455
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用 API 做的 ServerSocket 例子
举报原因:
原因补充:

(最多只允许输入30个字)