一个线程池的类与例子

Question

线程池，我是从ScktComp.pas中抽取出来的，可能对大家有点用，先贴在这，有需要的看看，不过水平问题，很难用话把它讲清楚，所以干脆就不写注解了。程序调试过，在2k+sp3 + d6+sp2----------------------------
国庆真无聊

Answer 1

faint,地址都没写：）URL：
http://www.playicq.com/dispdoc.php?id=1796
ZIP：
http://www.playicq.com/databack/pooler.zip

Answer 2

哦，忘了说，其实对象池也是这样概念，有时我们会动态在程序运行时这样写代码：
  obj := TSomeClass.Create(..);
  try  finally
    obj.Free;
  end;这样没什么问题，但是有时对象的创建是非常的耗时间，或者非常频繁的时候，那我就会考虑写对象池也保存了，Delphi也有个例子在Demos\Midas\Pooler\中，那个COM对象池，你可以稍改改，就可以变成一个对象池对象。如TDataSet,或TADOCustomDataSet ，可以封装成一个对象池，提供每个单元TDataSet对象，嘿嘿。我写了个，不过还是留给大家写写，都贴出来就不好了，CSDN毕竟不是代码快餐店。