认识等待函数.pdfVIP

先看一段程序, 代码文件: unit Unit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) ListBox1:TListBox; Button1:TButton; procedureFormCreate(Sender:TObject); procedureButton1Click(Sender: TObject); end; var Form1:TForm1; implementation {$R *.dfm} function MyThreadFun(p:Pointer): DWORD; stdcall; var i: Integer; begin fori := 0 to99 doForm1.ListBox1.Items.Add(IntToStr(i)); Result := 0; end; procedureTForm1.Button1Click(Sender:TObject); var ID:DWORD; begin CreateThread(nil, 0,@MyThreadFun,nil, 0,ID); CreateThread(nil, 0,@MyThreadFun,nil, 0,ID); CreateThread(nil, 0,@MyThreadFun,nil, 0,ID); end; procedureTForm1.FormCreate(Sender:TObject); begin ListBox1.Align := alLeft; end; end. 窗体文件: objectForm1:TForm1 Left =0 Top=0 Caption =Form1 ClientHeight =154 ClientWidth = 214 Color= clBtnFace Font.Charset= DEFAULT_CHARSET Font.Color =clWindowText Font.Height =-11 Font.Name=Tahoma Font.Style = [] OldCreateOrder =False OnCreate = FormCreate PixelsPerInch= 96 TextHeight =13 objectListBox1: TListBox Left =9 Top=9 Width =121 Height =97 ItemHeight = 13 TabOrder=0 end objectButton1:TButton Left =131 Top=112 Width =75 Height =25 Caption =Button1 TabOrder=1 OnClick=Button1Click end end 在这段程序中, 有三个线程几乎是同时建立, 向窗体中的 ListBox1 中写数据, 最后写出的 结果是这样的: 能不能让它们别打架, 一个完了另一个再来? 这就要用到多线程的同步技术. 前面说过, 最简单的同步手段就是 临界区. 先说这个 同步(Synchronize), 首先这个名字起的不好, 我们好像需要的是 异步; 其实 异步也不准确... 管它叫什么名字呢, 它的目的就是保证不冲突、有次序、都发生. 临界区(CriticalSection): 当把一段代码放入一个临界区, 线程执行到临界区时就独占了, 让其他也要执行此代码的线程先等等; 这和前面用的 Lock 和 UnLock 差不多; 使用格式 如下: var CS:TRTLCriticalSection; {声明一个 TRTLCriticalSection 结构类型变量; 它应该是全 局的} InitializeCriticalSection(CS); {初始化} EnterCriticalSection(CS); {开始: 轮到我了其他线程走开} LeaveCriticalS