线程池（1、2）使用

最新推荐文章于 2023-06-28 19:49:50 发布
最新推荐文章于 2023-06-28 19:49:50 发布
阅读量94 收藏
点赞数
文章标签： Delphi 工作
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/vincentchun/article/details/83393829
版权
// 创建线程池
FThreadPool := TThreadsPool.Create(Self); // 创建线程池
FThreadPool.ThreadsMin := 5; // 初始工作线程数
FThreadPool.ThreadsMax := 50; // 最大允许工作线程数
FThreadPool.OnProcessRequest := DealwithCommRecvData; // 线程工作函数(DealwithCommRecvData在工作者线程的Execute方法中被调用)


// 使用线程池
var
　AWorkItem: TRecvCommDataWorkItem; // 继承自TWorkItem
begin
　AWorkItem := TRecvCommDataWorkItem.Create;
　Move(PData[0], AWorkItem.FRecvData[0], PDataLen);
　AWorkItem.FRecvDataLen := PDataLen;
　FThreadPool.AddRequest(AWorkItem); // 向线程池分配一个任务
end;
本文来自Delphi之窗，原文地址：http://www.52delphi.com
vincentchun
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
ThreadPool线程池
jian704的专栏
10-20 2782
问题：我一个朋友给我了一个包装好的线程池类,但是我不太会用,请教诸位达人帮助 ( 积分：100, 回复：10, 阅读：313 )分类：多线程 ( 版主：g622, wjiachun
delphi线程池单元文件uThreadPool.pas
03-14
delphi线程池单元文件uThreadPool.pas，用法如下 type TRecvCommDataWorkItem=class(TWorkItem) public // updatetime,addtime:TDateTime; // orderid,ordertype,urljson,loadcount,savepath:string; url,Filename:string; total,order:Integer; _orderid:string; failedcount:Integer; IFCoverFile:Boolean; // 线程处理请求时触发的事件 procedure DealwithCommRecvData(Sender: TThreadsPool; WorkItem: TWorkItem; aThread: TProcessorThread); // 线程初始化时触发的事件 procedure TProcessorThreadInitializing(Sender: TThreadsPool; aThread:TProcessorThread); // 线程结束时触发的事件 procedure TProcessorThreadFinalizing(Sender: TThreadsPool; aThread:TProcessorThread); //任务队列空时触发的事件 procedure TQueueEmpty(Sender: TThreadsPool; EmptyKind: TEmptyKind); end; 先声明一个类 然后用法 FThreadPool := TThreadsPool.Create(nil); // 创建线程池 FThreadPool.ThreadsMin := 10; // 初始工作线程数 FThreadPool.ThreadsMax := 100; // 最大允许工作线程数 AWorkItem := TRecvCommDataWorkItem.Create; ISAllOverLoad:=False; AWorkItem.url:=urljson; AWorkItem.order:=i; AWorkItem.total:=JA.Count; AWorkItem.Filename:=savefilepath; AWorkItem._orderid:=orderid; AWorkItem.IFCoverFile:=IFCoverFile; FThreadPool.AddRequest(AWorkItem,True); // 向线程池分配一个任务 FThreadPool.OnProcessRequest := AWorkItem.DealwithCommRecvData; FThreadPool.OnThreadInitializing := AWorkItem.TProcessorThreadInitializing; FThreadPool.OnThreadFinalizing := AWorkItem.TProcessorThreadFinalizing; FThreadPool.OnQueueEmpty := AWorkItem.TQueueEmpty; 仔细看下线程池单元的函数说明轻松搞定。 procedure TRecvCommDataWorkItem.TQueueEmpty(Sender: TThreadsPool; EmptyKind: TEmptyKind); begin if EmptyKind=ekProcessingFinished then begin try if Assigned(geturl) then //存在的bug 如果下载文件存在的不行 begin //Sleep(200); //激活线程可能会发生在 休眠之前！！ ISAl
线程池精讲（pthread pool）
qq_38769551的博客
09-25 1225
线程池也是多线程的处理方式。是将“生产者”线程提出任务添加到“任务队列”，然后一些线程自动完成“任务队列”上的任务。 多线程编程，创建一个线程，指定去完成某一个任务，等待线程的退出。虽然能够满足编程需求，但是当我们需要创建大量的线程的时候， 在创建过程以及销毁线程的过程中可能会消耗大量的CPU.增加很大开销。 如： 文件夹的copy WEB服务器的响应。 。。。。 。。。。 线程池就是用来解决类似于这样的一个问题的，可以降低频繁地创建和销毁线程所带来地开销。 线程池技术思路： 一般
uThreadPool.pas 线程池示例 DEMO 修正资源死锁
10-09
DEMO程序必须重新编译运行才能修正原资源死锁问题 取自卢伟的专栏DELPHI 线程池代码(http://blog.csdn.net/babyvspp/archive/2008/01/01/2008234.aspx)，封装的十分完美，用法也非常简单，可以根据使用者设定的初始工作线程数和最大线程数以及线程执行时间自动增加工作线程。 此发布修改了原作者在线程池Free时的一点问题：“不能结束工作中的工作者线程（资源死锁）”。 用法： // 创建线程池 FThreadPool := TThreadsPool.Create(Self); // 创建线程池 FThreadPool.ThreadsMin := 5; // 初始工作线程数 FThreadPool.ThreadsMax := 50; // 最大允许工作线程数 FThreadPool.OnProcessRequest := DealwithCommRecvData; // 线程工作函数(DealwithCommRecvData在工作者线程的Execute方法中被调用) // 使用线程池 var 　AWorkItem: TRecvCommDataWorkItem; // 继承自TWorkItem begin 　AWorkItem := TRecvCommDataWorkItem.Create; 　Move(PData[0], AWorkItem.FRecvData[0], PDataLen); 　AWorkItem.FRecvDataLen := PDataLen; 　FThreadPool.AddRequest(AWorkItem); // 向线程池分配一个任务 end;
uThreadPool线程池例程
12-28
卢伟的uThreadPool线程池示例，网上一直没有相对应的demo，所以特意上传一个，当然uThreadPool已经被修改过了
线程池的使用
Krive~Irving
06-28 1903
线程池的使用
安卓，线程池的使用 ，封装
10-24
本文将深入探讨Android中线程池的使用以及如何进行封装，以实现更灵活、高效的并发处理。 首先，我们需要理解Android中的线程池是如何工作的。线程池是由`java.util.concurrent.ThreadPoolExecutor`类提供的，它...
C# 线程池使用示例
12-04
在VS2013环境下，结合控制台窗口，我们可以轻松地实现线程池的使用。下面将详细探讨C#线程池的工作原理、优势以及如何在实际项目中应用。 线程池的基本概念： 线程池是一组预先创建的线程，这些线程由操作系统维护...
ThreadPoolExecutor线程池的使用方法
08-25
ThreadPoolExecutor线程池的使用方法 ThreadPoolExecutor线程池是Java提供的开发框架，管理线程的创建、销毁、优化、监控等。它提供了四种不同的任务队列：ArrayBlockingQueue、LinkedBlockingQueue、...
uThreadPool.pas修正错误并加入线程等待功能
09-03
delphi多线程 uThreadPool.pas 修正错误 线程等待功能
ThreadPool线程池调用步骤
10-05
delphi版线程池调用，这个小项目网上实例很容易找到，对delphi初学者而言，仔细跟中调用步骤，更能理解实现。
Delphi中有一个线程类TThread是用来实现多线程编程
01-23
Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数Delphi书藉都有说到，但基本上都是对TThread类的几个成员作一简单介绍，再说明一下Execute的实现和Synchronize的用法就完了。然而这并不是多线程编程的全部，我写此文的目的在于对此作一个补充。
Delphi线程池实现多线程FTP分段下载组件
10-18
Delphi线程池实现多线程FTP分段下载组件 by :renshouren mail:114032666@qq.com QQ:114032666 2019.10.05 使用的组件 1、TIdFTP Indy FTP客户端 2、TThreadsPool 线程池 工作原理及流程 调用本单元，将自动在程序初始化时生成线程池TThreadPoolDown实例 Share_ThreadPool_FTPDown 一、外部调用方法 外部只需要一次性调用 FtpDown() 函数向线程池加入下载任务，下载任务执行中的事件会通过调用时注册的 回调函数 AFtpDownEvent 进行通知。 二、内部工作流程 1、FtpDown()函数将调用TThreadPoolDown.AddFtpDown() ，然后调用TADownFileObj.MakeGetFileSizeObj()分配线程任务 本过程中，将向回调函数 AFtpDownEvent 触发 HEM_ADDURL 事件通知 2、工作线程调用任务对象TFTPHeadObj.DoThreadExecute 过程获取远程文件大小 备注：该功能实际使用到FTP命令SIZE，该命令一些老版本FTP服务器有可能不支持 本过程中，若获取文件大小成功，将向回调函数 AFtpDownEvent 触发 HEM_GETSIZE 事件通知， 若失败，则触发 HEM_ERROR 事件通知 3、得到远程文件大小后，调用TADownFileObj.MakeGetObjs()，分配获取远程文件线程任务 本过程中，开始时，将向回调函数 AFtpDownEvent 触发 HEM_WORKBEGIN 事件通知 在接收数据时，向回调函数 AFtpDownEvent 触发 HEM_WORK 事件通知 4、工作线程调用任务对象 TFTPGetObj.DoThreadExecute 实际下载远程文件数据块 每一个数据块下载任务完成后，触发 HEM_BLOCKOK 事件通知 5、所有数据块完成后，将调用 DoDownloadOK 函数，触发 HEM_DOWNOK 事件通知
uThreadPool线程池最新修正
09-03
在CSDN下载的uThreadPool线程池示例使用时出错,最后到网上下载到uThreadPool.pas最新修正,解决了问题..
深入学习springboot线程池的使用和扩展
08-25
2. 创建Service层的接口和实现，并使用@Async注解来指定线程池的名称。 3. 创建Controller层，并开发一个HTTP服务接口，里面会调用Service层的服务。 4. 创建线程池的配置，并指定线程池的参数。 5. 将Service层的...
Delphi利用线程池实现基于TIdFTP的FTP分段下载
rslxy的专栏
10-18 760
FTP下载单元，使用TIdFtp实现，利用SIZE命令获取文件大小，使用REST命令分段下载： unit rsrFtpDown; interface uses SysUtils, Classes, Windows, Messages, Forms, Controls, ComObj, ActiveX, IdResourceStrings, IDTCPClient, IdIOHand...
线程池threadpool怎么使用
最新发布
08-15
以下是引用中的代码示例： ```java ExecutorService executor = Executors.newFixedThreadPool(2); Runnable worker = new Runnable() { public void run() { // do some work } }; executor.execute(worker); ``` 这段代码创建了一个固定大小的线程池，其中corePoolSize为2，maximumPoolSize也为2。这意味着线程池最多会保持2个线程处于活动状态，并在任务到达时创建新的线程来处理任务。当队列中没有任务时，线程池中的线程会进入空闲状态，直到有新的任务到来。如果使用的是无界队列（例如LinkedBlockingQueue），那么线程数就不会超过corePoolSize。keepAliveTime参数指定了线程池中的空闲线程在等待新任务时的存活时间。 以下是引用中的代码示例： ```java ExecutorService executor = Executors.newFixedThreadPool(5); Runnable worker = new Runnable() { public void run() { // do some work } }; executor.execute(worker); ``` 这段代码创建了一个固定大小的线程池，其中corePoolSize为5，maximumPoolSize也为5。这意味着线程池最多会保持5个线程处于活动状态，并在任务到达时创建新的线程来处理任务。当队列中没有任务时，线程池中的线程会进入空闲状态，直到有新的任务到来。如果使用的是无界队列（例如LinkedBlockingQueue），那么线程数就不会超过corePoolSize。keepAliveTime参数指定了线程池中的空闲线程在等待新任务时的存活时间。这段代码创建了一个5个线程的线程池，如果需要创建更多的线程，可以调整corePoolSize和maximumPoolSize的值。如果使用的是有界队列（例如ArrayBlockingQueue），那么可以通过调用put()方法将任务放入队列中。这段代码展示了如何创建一个固定大小的线程池，并使用execute()方法执行任务。如果需要停止线程池，可以使用shutdown()方法或者shutdownNow()方法。<span class="em">1</span><span class="em">2</span><span class="em">3</span> #### 引用[.reference_title] - *1* *2* *3* [线程池ThreadPool详解](https://blog.csdn.net/qq_43651945/article/details/124717896)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v92^chatsearchT0_1"}}] [.reference_item style="max-width: 100%"] [ .reference_list ]

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

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

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值