delphi 线程同步 临界区

页面导航:首页 > 软件编程 > Delphi > delphi 线程同步 临界区

delphi 线程同步 临界区

来源: 作者: 时间:2016-01-18 15:42 【

dephi线程的同步,最简单的就是临界区。临界区的意思就是,一次只能由一个线程执行的代码。在使用临界区之前,必须使用InitializeCriticalSection( )过程来初始化它。其声明如下:procedu
dephi线程的同步,最简单的就是临界区。
临界区的意思就是,一次只能由一个线程执行的代码。
 
在使用临界区之前,必须使用InitializeCriticalSection( )过程来初始化它。
其声明如下:
procedure InitializeCriticalSection(var lpCriticalSection);stdcall;
 
lpCriticalSection参数是一个TRTLCriticalSection类型的记录,并且是变参。至于TRTLCriticalSection
是如何定义的,这并不重要,因为很少需要查看这个记录中的具体内容。只需要在lpCriticalSection中传
递未初始化的记录,InitializeCriticalSection()过程就会填充这个记录.
 
在记录被填充后,我们就可以开始创建临界区了。这时我们需要用 E n t e r C r i t i c a l S e c t i o n ( )和L e a v e C r i t i c a l S e c t i o n ( )来封装代码块.
当你不需要T RT L C r i t i c a l S e c t i o n记录时,应当调用D e l e t e C r i t i c a l S e c t i o n ( )过程,下面是它的声明:
procedure DeleteCriticalSection(var lpCriticalSection: TRT L C r i t i c a l S e c t i o n ) ; s t d c a l l ;
 
列子:
[] 
unit CriticaSection;  
  
interface  
  
uses  
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;  
  
type  
  TForm2 = class(TForm)  
    btn1: TButton;  
    lstbox1: TListBox;  
    procedure btn1Click(Sender: TObject);  
  public  
    procedure ThreadsDone(Sender : TObject);  
  end;  
  
  TFooThread=class(TThread)  
    protected  
      procedure Execute;override;  
  end;  
  
var  
  Form2: TForm2;  
  
implementation  
  
{$R *.dfm}  
const  
  MAXSIZE=128;  
var  
  NextNumber : Integer=0;  
  DoneFlags : Integer=0;  
  GlobalArray : array[1..MAXSIZE] of Integer;  
  CS : TRTLCriticalSection;  
function GetNextNumber:Integer;  
begin  
  Result:=NextNumber;  
  Inc(nextnumber);  
end;  
  
{ TForm2 }  
  
procedure TForm2.btn1Click(Sender: TObject);  
begin  
 // InitializeCriticalSection(CS);  
  TFooThread.Create(False);  
  TFooThread.Create(False);  
end;  
  
procedure TForm2.ThreadsDone(Sender: TObject);  
var  
  i:Integer;  
begin  
  Inc(DoneFlags);  
  if DoneFlags=2 then  
  for I := 1 to MAXSIZE do  
    lstbox1.Items.Add(IntToStr(GlobalArray[i]));  
  DeleteCriticalSection(CS);  
end;  
  
{ TFooThread }  
  
procedure TFooThread.Execute;  
var  
  i:Integer;  
begin  
  EnterCriticalSection(cs);  
  OnTerminate:=Form2.ThreadsDone;  
  for I := 1 to MAXSIZE do  
  begin  www.2cto.com
    GlobalArray[i]:=GetNextNumber;  
  end;  
  LeaveCriticalSection(CS);  
end;  
  
end.  
 
这样就可以是线程同步,不会发生冲突。
 
Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<