互斥量是系统内核对象，谁拥有就谁执行。它与临界区工作很类似。不同处在于：1、互斥量可以跨进程边界同步线程。2、可以给互斥量取个名字，通过引用互斥量的名字来使用一个已知的互斥量对象。
使用互斥量之类的对象需要反复调用系统内核，期间需要进行进程上下文转换和控制级别转换，大概需要耗费400到600个时间周期。
又是图书馆的比喻，现在是搞一个锁，把钥匙（互斥量句柄）交给管理员（操作系统），每一个人（线程）想要借书的时候，都要向管理员拿钥匙。当有人在使用的时候，另一人必须等待，等到钥匙有空的时候（互斥量进入信号状态），才能拿到钥匙（拥有了句柄）办理借书业务（此时互斥量进入非信号状态直到办完业务）。
使用互斥量的步骤：
1、声明一个全局的互斥量句柄变量（var hMutex: THandle;）；
2、创建互斥量：CreateMutex(
lpMutexAttributes: PSecurityAttributes;
......
信号量是建立在互斥量的基础之上，同时加入重要特性：提供了资源计数功能，因此预定义数量的线程同时可以进入同步的代码块中。
信号量是维护0到指定最大值之间的计数器的同步对象，当线程完成一次信号量的等待时，计数器自减1，当线程释放信号量对象时，计数器自增1。
借用上面的图书馆例子，信号量好像是多设几把管理钥匙。每次可以设定N把钥匙同时工作，那就有N个人员可以同时办理业务。
信号量使用的一般步骤：
1、声明一个全局的信号量名柄，如：hSem:THandle;
2、创建信号量：CreateSemphore(
lpSemaphoreAttributes:PSecurityAttributes;
lInitialCount,lMaximumCount:LongInt;
......
Event事件用法与Mutex差不多，但它可以使用：SetEvent（启动运行）ResetEvent（暂停运行）、PulseEvent（执行一次后立即暂停）。
先看一下创建函数：CreateEvent(
lpEventAttributes: PSecurityAttributes;
bManualReset: BOOL;
bInitialState: BOOL;
&nbs ......
一个线程的优先级取决于创建线程的进程的优先级（priority class）和线程本身相对的优先级（relative priority）。
1、进程优先级：
不同操作系统 优先级数目不同。Windows2000以上的版本列表如下：
Idle：（标志：IDLE_PRIORITY_CLASS，值为$40）；
Below Normal：（标志：BELOW_NORMAL_PRIORITY_CLASS，值为$4000）；
Normal：（标志：NORMAL_PRIORITY_CLASS，值为$20）；
Above Normal：（标志：ABOVE_NORMAL_PRIORITY_CLASS，值为$8000）；
High：（标志：HIGH_PRIORITY_CLASS，值为$80）；
Realtime：（标志：REALTIME_PRIORITY_CLASS，值为$100）。
进程的缺省优先级为Normal，几乎所有场合都不应将优先级设为Realtime。
创建进程时给定优先级，只要在CreateProcess中，将优先级标志做“OR”操作，填入dwCreationFlags参数中。
取得活动进程的优先级：
function GetPriorityClass(hProcess:THandle):DWORD;stdcall;
设置活动进程的优先级：
function SetPriorityClass(hProcess:THandle;dwPriorityClass:DWORD);BOOL;
（上面两个函数的hProcess由GetCurrentProcess函� ......
ADO多线程数据库查询通常会出现3个问题：
1、CoInitialize 没有调用（CoInitialize was not called）；所以，在使用任何dbGo对象前，必须手 调用CoInitialize和CoUninitialize。调用CoInitialize失败会产生"CoInitialize was not called"例外。
2、画布不允许绘画（Canvas does not allow drawing）；所以，必须通过Synchronize过程来通知主线程访问主窗体上的任何控件。
3、不能使用主ADO连接（Main TADoConnection cannot be used!）；所以，线程中不能使用主线程中TADOConnection对象，每个线程必须创建自己的数据库连接。
Delphi2007安装后在X:\Program Files\Common Files\CodeGear Shared\Data目录下有一个dbdemos.mdb文件，用来作为测试的例子。dbdemos.mdb中的customer表保存了客户信息，orders表中保存了订单信息。
测试程序流程大致是这样的：在主窗体上放TADOConnection和TQuery控件，启动时这个TQuery从Customer表中查出客户编码CustNo和公司名称Company，放到三个Combox框中，分别在三个列表框中选定客户公司名称，按照公司名称所对应的客户代码建立三个线程同时在orders表中查询销售日期Sa ......
上文中，多线程同步主窗体的Label的Caption属性值，发现一个问题：使用Synchronize用于同步的时候，主窗体好像死掉一样；而直接用子程序为Label的引用赋值，则有时会出现“Canvas does not allow drawing”错误。书上说VCL同步一定要用Synchronize，而不能直接访问。
测试：
{主窗体}
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses TestThread;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
TTestThread.Create(Label1);
//TTestThread.Create(Label2);
//TTestThread.Create(Label3);
end;
end.{多线程类}
unit TestThread;
interface
uses
Cla ......
最新文章 :