Delphi关于多线程同步的一些方法　　线程是进程内一个相对独立的、可调度的执行单元。一个应用可以有一个主线程，一个主线程可以有多个子线程，子线程还可以有自己的子线程，这样就构成了多线程应用了。由于多个线程往往会同时访问同一块内存区域，频繁的访问这块区域，将会增加产生线程冲突的概率。一旦产生了冲突，将会造成不可预料的结果（该公用区域的值是不可预料的）可见处理线程同步的必要性。　　 注

类似代码：CoInitialize(nil) ; //CoInitialize was not called   Qry := TADOQuery.Create(nil) ;   try // MUST USE OWN CONNECTION // Qry.Connection := Form1.ADOConnection1;     Qry.ConnectionString := ConnStr;     Qry.CursorLocation := clUseServer;     Qry.LockType

"临界区"(CriticalSection): 当把一段代码放入一个临界区, 线程执行到临界区时就独占了, 让其他也要执行此代码的线程先等等; 这和前面用的 Lock 和 UnLock 差不多; 使用格式如下:var CS: TRTLCriticalSection; {声明一个 TRTLCriticalSection 结构类型变量; 它应该是全局的}InitializeCritical

之前已经有了两种多线程的同步方法:CriticalSection(临界区) 和 Mutex(互斥), 这两种同步方法差不多, 只是作用域不同;CriticalSection(临界区) 类似于只有一个蹲位的公共厕所, 只能一个个地进; Mutex(互斥) 对象类似于接力赛中的接力棒, 某一时刻只能一个人持有, 谁拿着谁跑.什么是 Semaphore(信号或叫信号量)呢?譬如到银行办业务、或者到车站买

function WaitForSingleObject( hHandle: THandle; {要等待的对象句柄} dwMilliseconds: DWORD {等待的时间, 单位是毫秒}): DWORD; stdcall; {返回值如下:}WAIT_OBJECT_0 {等着了, 本例中是: 等的那个进程终于结束了}WAIT_TIMEOUT

据说 Event(事件对象) 是多线程最原始的同步手段, 我觉得它是最灵活的一个.Event 对象(的句柄表)中主要有两个布尔变量, 从它的建立函数中可以看得清楚:function CreateEvent( lpEventAttributes: PSecurityAttributes; {安全设置} bManualReset: BOOL; {

windows.WaitForSingleObject(FEventHandle, 180000);...... FEventHandle := Windows.CreateEvent(nil, false, False, PChar(@FEventName));...... if FEventHandle ......if FEventHandle .....

(1) CreateThreadl      功能——创建一个在调用进程的地址空间中执行的线程l      格式HANDLE CreateThread( LPSECURITY_ATTRIBUTES lpThreadAttributes,DWORD dwStackSize,LPTHREAD_START_ROUTINE lpStartAddress,LPVOID lpParam

unit uThread;interfaceuses  Classes,SysUtils;Type  //Tfun = procedure;  Tfun = procedure of object;  TFunThread =Class(TThread)  private    fun:Tfun;  protected    procedure Execute;override;  p

在子线程中可以开启和关闭外进程，但不能直接关闭本身进程。子线程要发送消息给主线程，由主线程来关闭本身进程。

//==============================================================================// 多线程查询      cxg           2008-09-26 14:29:42//=======================================================================