2024年3月14日发(作者：)

delphi多线程编程2

在这段程序中, 有三个线程几乎是同时建立, 向窗体中的 ListBox1 中写数据,

最后写出的结果是这样的:

能不能让它们别打架, 一个完了另一个再来? 这就要用到多线程的同步技

术.

前面说过, 最简单的同步手段就是 "临界区".

先说这个 "同步"(Synchronize), 首先这个名字起的不好, 我们好像需要

的是 "异步"; 其实异步也不准确...

管它叫什么名字呢, 它的目的就是保证不**、有次序、都发生.

"临界区"(CriticalSection): 当把一段代码放入一个临界区, 线程执行到

临界区时就独占了, 让其他也要执行此代码的线程先等等; 这和前面用的 Lock

和 UnLock 差不多; 使用格式如下:

var CS: TRTLCriticalSection; {声明一个 TRTLCriticalSection 结构类型

变量; 它应该是全局的}

InitializeCriticalSection(CS); {初始化}

EnterCriticalSection(CS); {开始: 轮到我了其他线程走开}

LeaveCriticalSection(CS); {结束: 其他线程可以来了}

DeleteCriticalSection(CS); {删除: 注意不能过早删除}

//也可用 TryEnterCriticalSection 替代 EnterCriticalSection.

用上临界区, 重写上面的代码, 运行效果图:

代码文件:unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,

Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

ListBox1: TListBox;

Button1: TButton;

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure Button1Click(Sender: TObject);

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

var

CS: TRTLCriticalSection;

function MyThreadFun(p: Pointer): DWORD; stdcall;

var

i: Integer;

begin

EnterCriticalSection(CS);

for i := 0 to 99 do (IntToStr(i));

LeaveCriticalSection(CS);

Result := 0;

end;

procedure 1Click(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;

procedure eate(Sender: TObject);

begin

:= alLeft;

InitializeCriticalSection(CS);

end;

procedure stroy(Sender: TObject);

begin

DeleteCriticalSection(CS);

end;

end.