delphi线程池【转】
[code=Delphi(Pascal)]
unit uThreadPool;
{ aPool.AddRequest(TMyRequest.Create(RequestParam1, RequestParam2, ...)); }
interface
uses
Windows,
Classes;
// 是否记录日志
// {$DEFINE NOLOGS}
type
TCriticalSection = class(TObject)
protected
FSection: TRTLCriticalSection;
public
constructor Create;
destructor Destroy; override;
// 进入临界区
procedure Enter;
// 离开临界区
procedure Leave;
// 尝试进入
function TryEnter: Boolean;
end;
type
// 储存请求数据的基本类
TWorkItem = class(TObject)
public
// 是否有重复任务
function IsTheSame(DataObj: TWorkItem): Boolean; virtual;
// 如果 NOLOGS 被定义，则禁用。
function TextForLog: string; virtual;
end;
type
TThreadsPool = class;
//线程状态
TThreadState = (tcsInitializing, tcsWaiting, tcsGetting, tcsProcessing,
tcsProcessed, tcsTerminating, tcsCheckingDown);
// 工作线程仅用于线程池内， 不要直接创建并调用它。
TProcessorThread = class(TThread)
*******
// 创建线程时临时的Event对象, 阻塞线程直到初始化完成
hInitFinished: THandle;
// 初始化出错信息
sInitError: string;
// 记录日志
procedure WriteLog(const Str: string; Level: Integer = 0);
protected
// 线程临界区同步对像
csProcessingDataObject: TCriticalSection;
// 平均处理时间
FAverageProcessing: Integer;
// 等待请求的平均时间
FAverageWaitingTime: Integer;
// 本线程实例的运行状态
FCurState: TThreadState;
// 本线程实例所附属的线程池
FPool: TThreadsPool;
// 当前处理的数据对像。
&
相关文档：
在上一篇中，我们简单的实现了一个对Delphi自身的TEdit编辑框控件的一个扩充！但是我们并不能像Delphi自己的TEdit一样，能够
在设计状态下进行设计，而是非得要自己手动创建控件，然后才能使用。这个虽然说也是组件，但是却失去了组件的可设计的方便性，仅仅可作为一个类库来使用。
现在我就来介绍一下，如何让这个组件注 ......
相对用第三方控件，CDO发送邮件还是很简洁方便的
注：CDONTS为CDO的子集，仅支持WinNT/Win2K，WinXP以上请用CDO;
单元引用ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
VCDOMessage:oleVariant;
begin
vCDOMessage:=CreateOleObject('CDO.Message');
vcdomessage.from:='MR.F'+'< ......
在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的，我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的
DLL或是Pas了。
在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash 单元，再写如下代码即可以达到MD5的实现。
示例代码
procedure TForm1.Button1Click(Sen ......
Windows 下一个典型的特征就是多任务，我们可以同时打开多个窗口进行操作，也可以同时运行程序的多个实例，比如可以打开许多个资源管理器进行文件的移动复制操作。但有时出于某种考虑（比如安全性），我们要做出一些限制，让程序只能够运行一个实例。在Delphi编程中，笔者总结出了以下几种方法：
一、 查找窗口法
� ......
TMS Scripter：支持Pascal和VBScript两种语法。优点是文档齐全、例子齐全，脚本可直接支持DLL，官方还提供了丰富的IDE Debug工具、单元导出函数工具等，缺点是编译运行较慢。for 空循环1000万次，需要10秒钟以上。TMS Scripter是商业共享软件。
FastScript：用过FastReport报表的同� ......
