TserverSocket 分析2

最新推荐文章于 2022-08-30 11:38:33 发布
最新推荐文章于 2022-08-30 11:38:33 发布
阅读量574 收藏
点赞数
文章标签： server
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/zhaodog/article/details/5908381
版权

线程池Threadsize 只有ServerType为stThreadBlocking才有效

TServerClientThread.Create 的时候调用ReActivate

FServerSocket.AddThread(Self);

，在AddThread中

    if FActiveThreads.IndexOf(AThread) < 0 then

    begin

      FActiveThreads.Add(AThread);

      if FActiveThreads.Count <= FThreadCacheSize then

        AThread.KeepInCache := True;

end;

把线程加入到了Sever中，修改这个线程是否释放标志。

 

在TServerClientThread.EndConnect中:

  Result := Terminated or not KeepInCache;

如果线程不中段或不在缓冲中就调用DoTerminate

 

TServerClientThread.DoTerminate 中

TServerClientThread.DoTerminate

又从server中删除了线程

zhaodog
关注
TserverSocket 分析1
zhaodog的专栏
09-23 1050
<br />TserverSocket 分析<br />Servertype 有两个值stNonBlocking 和stThreadBlocking<br />1、  先讨论stThreadBlocking<br />这种类型的server 从字面意思上看有thread，他一定使用了线程了<br />在TServerWinSocket.Listen 中<br />  if FConnected and (ServerType = stThreadBlocking) then<br />FServerAcce
TserverSocket 分析3
zhaodog的专栏
09-26 876
<br />2/ stNonBlocking<br />介绍stNonBlocking之前，要先介绍TserverClientWinSocket<br />TServerClientWinSocket.Create 中<br />  inherited Create(Socket);<br />  if FServerWinSocket.ASyncStyles <> [] then DoSetAsyncStyles;<br /> <br />TserverClientWinSocket 是从TcustomW
Delphi之TServerSocket和TClientSocket多线程传输
03-22
Delphi之TServerSocket和TClientSocket多线程传输文字例子
使用TServerSocket构件提供多线程服务
weixin_30824277的博客
08-17 162
最近要写一个socket的多线程的服务,刚刚好从网上找到这篇文章,觉得有用,保存下来 {使用TServerSocket构件提供多线程服务www.mynetlife.com 2002-12-29 网迷教程 使用TServerSocket构件提供多线程服务对于一个socket来说，很容易提供一个侦听消息的多线程服务。Delphi自身也提供了这样的构件：TServerSocket。不过这...
delphi源码分析
从事厨房信息化行业，万能对接所有点餐系统，kds，智能控菜，酒店协调软件
08-30 1911
DBServerSQL源码。
thrift源码分析--transport类体系架构
andylau00j的专栏
10-08 826
　transport类体系架构与TProtocol类体系架构一样，所以这里就不重复叙述了，想了解可转去TProtocol类体系架构分析那篇。 　下面将对transport层的几种transport类进行介绍： 1、TSocket　阻塞型socket,　用于客户端，采用系统函数read和write进行读写数据； 2、TServerSocket　非阻塞型socket, 用于服务器端,　accecp...
Delphi网络通信协议分析与应用实现
02-02
Delphi的System.Net.Sockets单元提供了TClientSocket和TServerSocket组件，便于开发者构建客户端和服务器应用程序。通过设置和调用相关属性和方法，如Host、Port、Active等，我们可以创建、连接和断开网络连接，实现...
套接字(Socket)编程的基本方法（供初学者参考）
09-27
在Delphi中，套接字(Socket)编程用到的基本类是TServerSocket与TClientSocket。这两个类全部位于ScktComp单元中。其类型定义如下： type TServerSocket = class (ScktComp.TCustomServerSocket); TClientSocket = class (ScktComp.TCustomSocket)。 　　 　　在编写程序时，首先要对TServerSocket（在服务器端）与TClientSocket（在客户端）进行实例化。对于TServerSocket的对象，主要设置其服务类型（ServerType）与端口（Port）的属性，然后编写“OnClientRead”事件处理程序的代码，处理来自客户机的请求。如要启动服务器，设置TServerSocket对象的Active属性为真（即Active := True），如要停止服务器，则设置TServerSocket对象的Active属性为假（即Active := False）。 　　 　　对于TClientSocket的对象，主要设置对方服务器的服务类型（ServerType）、端口（Port）以及IP地址（Address）的属性，之后编写“OnConnect与OnRead”事件处理程序的代码“OnConnect”事件处理程序用来检查与服务器连接成功与否（必须在这里进行检查才有效），“OnRead”事件处理程序用来读取服务器发来的信息。如要连接服务器，设置TClientSocket对象的Active属性为真（即Active := True；注意：检查连接是否成功，必须在“OnConnect”事件处理程序中进行），如要断开与服务器的连接，则设置TClientSocket对象的Active属性为假（即Active := False）。
BCB6中ServerSocket控件的使用
04-17
关于XRF日本理学荧光SMX14仪器数据采集，XRF（X射线荧光）是一种非破坏性的元素分析技术，广泛应用于材料科学、地质学、环境科学等领域。SMX14是一款高级的XRF分析仪，能够精确测量样品中的化学成分。 在BCB6中，若...
2 TCPUDP(修改).rar
12-25
在Delphi中，你可以使用TClientSocket和TServerSocket组件来实现TCP通信。 UDP则是一种无连接的、不可靠的、基于数据报的传输协议。与TCP不同，UDP不保证数据的顺序或可靠性，也不提供重传服务。因此，UDP通常用于...
Thrift源码分析（七）-- TServer服务器分析
ITer_ZC的专栏
09-30 6928
Thrift采用了TServer来作为服务器的抽象，提供了多种类型的服务器实现。用TServerTransport作为服务器的Acceptor抽象，来监听端口，创建客户端Socket连接 先来看看TServerTransport。主要有两类 1. TNonblockingServerTransport和TNonblockingServerSocket作为非阻塞IO的Acceptor,封装了
Thriftpy源代码走读（三）-服务器端流程分析
youzengjian的专栏
08-07 564
Thriftpy源代码走读（三）
BCB Socket通信 TClientSocket
cddchina的专栏
08-25 5819
[cpp] view plaincopy 服务器：  1.       port:6767  2.       代码：  ///---------------------------------------------------------------------------  #include   #pragma hdrstop  #include "Unit1.h"  ///---
c++builder2010安装tclientsocket
fsfans的专栏
05-14 2412
1. 打开c++builder 2010, 打开菜单Project/Options选项, 囗弹出对话框 2. 在Packages子项目中, 添加dclsockets140.bpl控件安装包, dclsockets140.bpl    在c++builder 2010的bin目录, 包含了TClientSocket、TServerSocket两个控件 C++ Builder
TServerSocket 怎么申明
最新发布
09-23
在 Delphi 中，`TServerSocket` 是一个组件，它代表了服务器端的套接字（socket），用于监听来自客户端的连接请求。它是 Indy 一类库提供的，Indy 是 Borland 提供的一个用于网络通信的高性能开源库，适用于 Delphi 和 Kylix 系列。 声明 `TServerSocket` 的过程通常是这样的，在需要使用它的组件文件 (.dfm) 文件中，你可以直接从 Indy 或其依赖的 Classes 模块中导入该类型的引用，然后像创建其他控件一样创建一个新的 `TServerSocket` 对象。例如，在 Visual Component Designer (VCL) 中： 1. 打开你的项目，进入 Form Design 界面（如果是在 .dfm 文件中编辑，跳过此步）。 2. 右键单击窗体或其他需要放置服务器套接字的地方，选择 "Insert" -> "Component"。 3. 在弹出的组件列表中找到 "System.Classes.TServerSocket" 并选中它。 4. 点击 "Insert" 或双击它，一个 `TServerSocket` 控件将会添加到设计视图。 在代码层面，你需要这样声明和初始化它： ```pascal uses Indy.Sockets; // 引入 Indy Sockets 组件 ... // 其他代码区域 var ServerSocket: TServerSocket; begin // 初始化服务器套接字 ServerSocket := TServerSocket.Create(nil); ServerSocket.Host := 'localhost'; // 地址 ServerSocket.Port := PortNumber; // 设置监听的端口号 ServerSocket.Active := True; // 开启监听 ... // 进行进一步的配置和事件处理 ``` 请注意，实际的代码可能会根据你的需求有所不同，比如错误处理、连接处理等。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值