第10章其他编程.ppt

《第10章其他编程.ppt》由会员分享，可在线阅读，更多相关《第10章其他编程.ppt（110页珍藏版）》请在三一办公上搜索。

1、第10章 其他编程,第10章 其他编程,Delphi实用教程,第10章 其他编程,10.1 图形图像处理10.1.1画布的通用属性和方法,TCanvas Object（画布对象）常用方法及功能:（1）Arc方法 语法：Arc(x1,y1,x2,y2,x3,y3,x4,y4:Integer)Arc方法在椭圆上画一段弧，椭圆由（x1,y1）、(x2,y2)两点所 确定的椭圆所决定。弧的起点是椭圆圆周和椭圆中心与(x3,y3)连线的交点。弧矩形终点是椭圆周和椭圆中心与(x4,y4)连线的 交点，以逆时针方向画弧。例如，以下的程序将在窗口中将在窗口中绘制一个圆弧：procedure TForm1.Fo

2、rmPaint(Sender:TObject);var R:TRect;begin R:=GetClientRect;Canvas.Arc(R.Left,R.Top,R.Right,R.Bottom,R.Right,R.Top,R.Left,R.Top);end;,第10章 其他编程,10.1.1画布的通用属性和方法,（2）Chord方法语法：Chord(x1,y1,x2,y2,x3,y3,x4,y4:Integer)Chord方法连接椭圆上的两点，椭圆由（x1，y1）、（x2，y2）两点所确定的矩形决定，（x3，y3）是始点，（x4，y4）是终点。例如，在Form1窗体上放置一个按钮“连接椭

3、圆上的两点”，双击该按钮，输入下面的代码：procedure Tform1.Button1Click(Sender:TObject);var R:TRect;beginR:=GetClientRect;Get coordinates of the current window.Canvas.Chord(R.Left,R.Top,R.Right,R.Bottom,R.Right,R.Top,R.Left,R.Top);end;,第10章 其他编程,10.1.1画布的通用属性和方法,Canvas类的Chord方法示例,第10章 其他编程,10.1.1画布的通用属性和方法,（3）Brushcopy方

4、法 语法：Brushcopy(const Dest:TRect;Bitmap:Tbitmap;const Source TRect;Color:Tcolor)Brushcopy方法把位图的一部分复制到画布的某个矩形区域，并用画笔的当前颜色替换位图的颜色。Dest定义画布的一个矩形区域，该矩形用以填充位图，Bitmap定义位图；Source定义位图中的矩形区域，该区域上的位图将被复制；Color定义画笔中，用以替换位图的颜色。,第10章 其他编程,10.1.1画布的通用属性和方法,（4）CopyRect方法 语法：CopyRect(Dest:TRect;Canvas:TCanvas;Source

5、TRect)此方法从另一个画布对象上复制部分图像到该画布。Canvas表示复制画布，Source是源画布上要复制的图像区域，Dest表示目标画布上将接受复制图像的矩形区域。,第10章 其他编程,10.1.1画布的通用属性和方法,（5）Draw方法 语法：Draw(x,y:Integer;Graphic:Tgraphic)此方法在画布给定的像素点坐标（x，y）处画由参数Graphic所给的图像，该图像可以是位图、图标或元位图。Tcanvas的其他方法列于表中。,第10章 其他编程,10.1.1画布的通用属性和方法,2.Tpen Object（画笔对象）用于在画布上绘制各种线段，该对象常用的属性有

6、：l Color：定义笔的颜色；l Width：定义线段宽度；l Style：定义线段的各种类型，如表所示；,第10章 其他编程,10.1.1画布的通用属性和方法,Mode：定义线段的颜色，取值如表所示。,第10章 其他编程,10.1.1画布的通用属性和方法,3.Tbrush Object（画刷对象）画刷对象用以填充图形，如用画刷颜色或图案对矩形或椭圆进行填充。Tbrush拥有一个画刷句柄(Hbrush)。画刷的颜色定义在Color属性中，画刷还有一个Bitmap属性，该属性只能在运行时得到，画刷可使用位图填充图形以产生特殊效果。,第10章 其他编程,10.1.1画布的通用属性和方法,4.TC

7、olor类型 TColor类型用于定义一个对象的颜色。很多部件的颜色属性就是TColor类型，在Graphics单元中TColor定义如下：TColor=-(COLOR_ENDCOLORS+1)$02FFFFF;,第10章 其他编程,10.1.2 图形图像组件,Image组件 Image组件是一个容器组件，它在应用程序窗体窗口中提供了一个矩形区域，用于显示和输出位图、图标、图元文件或用户自定义的图形文件。Image组件的常用属性表。,第10章 其他编程,10.1.2 图形图像组件,2.Shape组件 Shape组件用于在窗体中绘制几何图形，如椭圆、矩形和圆角矩形等。该组件的常用属性有：l Sh

8、ape：指明需要绘制的几何图形，它可能的取值和含义 如表所示；lBrush：指明在几何图形中填充的样式；l Pen：指定几何图形所使用的线型。,第10章 其他编程,10.1.2 图形图像组件,3.PaintBox组件 该组件是一个简单的画板，它为应用程序提供了可在窗体的特定矩形区域内画图的方法。PaintBox组件的主要属性有：(1)Anchors属性 该属性包含4个子属性（akLeft、akTop、akRight和akBotton），用来指定在运行过程中，当父组件是可调时，它相对于父组件边沿的位置。(2)BoundsRect属性 该属性用来指定组件的矩形边界，用其父组件的坐标系来表示。,第1

9、0章 其他编程,10.1.2 图形图像组件,例如，以下代码用于绘制矩形：procedure Tform1.Button1Click(Sender:TObject);var MyRect:TRect;begin MyRect:=ActiveControl.BoundsRect;MyRect.right=MyRect.Left+2*(MyRect.Right-MyRect.Left);MyRect.Botton:=MyRect.Top+(MyRect.Botton-MyRect.Top)div 2;ActiveControl.BoundsRect:=MyRect;end;(3)Canvas属性 该

10、属性仅在运行时有效，使用该属性可以在组件表面的特定区域进行绘图。(4)Color属性该属性可用于除“颜色”对话框以外的所有组件或对象。(5)Constaints属性该属性强制指定组件的大小。,第10章 其他编程,10.1.3图形（Picture）对象,读取图像 读取图像需要使用LoadFromFile方法来调用，同时配合 OpenDialog函数来选择相应的图像文件。下面的代码实现对 图像文件的读取：procedure Tform1.Open1Click(Sender:Tobject);begin if OpenDialog1.Execute then begin CurrentFile:=O

11、penDialog1.Filename;Image.Picture.LoadFromFile(CurrentFile);end;end;,第10章 其他编程,10.1.3图形（Picture）对象,2.保存图像 为将Image组件中的图像保存为文件，可调用Image组件的Picture属性的SaveToFile方法。SaveToFile方法需要一个保存文件的文件名。下面的代码是一般程序常用的“Save”和“Save As”菜单的处理程序：procedure Tform1.Save1Click(Sender:Tobject)beginif CurrentFile then Image.Pictu

12、re.SaveToFile(CurrentFile)else SaveAsClick(Sender);end;procedure Tform.Saveas1Click(Sender:TObject);begin if SaveDialog1.Execute then begin CurrentFile:=SaveDialog1.FileName;Save1Click(Sender);end;end;,第10章 其他编程,10.1.3图形（Picture）对象,3.替换图像 用户可以在任何进修替换掉Image组件中的图像，只要将一新的图像对象赋给Picture就可以了。下面的代码实现用一个新的位

13、图对象代替原有的Image组件中的Picture中的图像对象的功能：Bitmap:Tbitmap:beginBitmap:=Tbitmap.Create;Bitmap.Width:=NewWidth;Bitmap.Height:=NewHeight;Image.Picture.Graphic:=Bitmap;CurrentFile:=;end;,第10章 其他编程,10.1.3图形（Picture）对象,【例】屏幕复制，将当前屏幕的图像抓下来，显示到窗口中；还可以文件的形式保存起来。步骤如下：(1)建立用户界面：建立窗体Form1，添加一个Panel、一个Timer、一个SavePicture

14、Dialog、四个Button控件并在Panel控件上添加一个 Image控件。(2)再创建窗体Form2，用于窗口抓图的显示窗口；在该窗体中添加一个Image控件和Timer控件，其中Image控件用于保存图像。(3)设置控件属性：对添加的控件按下表设置其属性。,第10章 其他编程,10.1.3图形（Picture）对象,控件的属性设置,第10章 其他编程,10.1.3图形（Picture）对象,(4)激活第一个单元文件，单击Delphi 7的File菜单下的Use Unit项，出现窗口，选择Unit2，单击OK。(5)编写程序代码如下:procedure TForm1.Timer1Time

15、r(Sender:TObject);/完成对屏幕的复制，并粘帖到Image控件中 var Fullscreen:Tbitmap;Fullscreencanvas:tcanvas;dc:HDC;begin timer1.Enabled:=false;fullscreen:=tbitmap.Create;/建立一个BITMAP来存放图像 fullscreen.Width:=screen.Width;dc:=getdc(0);/API函数，获取屏幕 fullscreencanvas:=tcanvas.Create;/建立一个CANVAS对象 fullscreencanvas.Handle:=dc;f

16、ullscreen.Canvas.CopyRect(rect(0,0,screen.Width,screen.Height),fullscreencanvas,rect(0,0,screen.Width,screen.Height);,第10章 其他编程,10.1.3图形（Picture）对象,fullscreencanvas.Free;releasedc(0,dc);image1.Picture.Bitmap:=fullscreen;/将拷贝下的图像赋给IMAGE对象 image1.Width:=fullscreen.Width;image1.Height:=fullscreen.Heigh

17、t;fullscreen.Free;form1.WindowState:=wsnormal;form1.Show;messagebeep(1);end;procedure TForm1.Button4Click(Sender:TObject);begin close;end;,第10章 其他编程,10.1.3图形（Picture）对象,procedure TForm1.Button1Click(Sender:TObject);begin form1.WindowState:=wsminimized;form1.Hide;timer1.Enabled:=true;end;procedure TF

18、orm1.Button3Click(Sender:TObject);begin if form1.SavePictureDialog1.Execute then begin form2.Image1.Picture.SaveToFile(savepicturedialog1.FileName);end;end;,第10章 其他编程,10.1.3图形（Picture）对象,procedure TForm1.Button2Click(Sender:TObject);begin form1.Hide;form2.Hide;form2.Timer1.Enabled:=true;end;end.var

19、Form2:TForm2;foldx,x1,y1,x2,y2,oldx,oldy,foldy:integer;flag,trace:boolean;implementationuses unit3;$R*.dfm,第10章 其他编程,10.1.3图形（Picture）对象,procedure TForm2.Timer1Timer(Sender:TObject);var fullscreen:TBitmap;fullscreencanvas:TCanvas;dc:HDC;beginform2.timer1.enabled:=false;fullscreen:=tbitmap.create;ful

20、lscreen.width:=screen.Width;fullscreen.Height:=screen.Height;dc:=getdc(0);fullscreencanvas:=tcanvas.Create;fullscreencanvas.Handle:=dc;fullscreen.Canvas.CopyRect(rect(0,0,screen.Width,screen.Height),fullscreencanvas,rect(0,0,screen.Width,screen.Height);fullscreencanvas.Free;releasedc(0,dc);,第10章 其他编

21、程,10.1.3图形（Picture）对象,image1.Picture.Bitmap:=fullscreen;image1.Width:=fullscreen.Width;image1.Height:=fullscreen.Height;fullscreen.Free;form2.WindowState:=wsnormal;form2.Show;messagebeep(1);foldx:=-1;foldy:=-1;image1.Canvas.Pen.Mode:=pmnot;/笔的模式取反 image1.Canvas.Pen.Color:=clblack;/笔的颜色 image1.Canvas

22、.Brush.Style:=bsclear;/刷子的格式 flag:=true;end;,第10章 其他编程,10.1.3图形（Picture）对象,procedure TForm2.Image1MouseMove(Sender:Tobject;Shift:TShiftState;X,Y:Integer);begin if trace=true then/追踪鼠标 begin/擦除旧的图形并画上新的图形 with image1.Canvas do begin rectangle(x1,y1,oldx,oldy);rectangle(x1,y1,x,y);oldx:=x;oldy:=y;end;

23、end else if flag=true then,第10章 其他编程,10.1.3图形（Picture）对象,begin with image1.Canvas do begin moveto(foldx,0);lineto(foldx,screen.Height);moveto(0,foldy);lineto(screen.Width,foldy);moveto(x,0);lineto(x,screen.Height);moveto(0,y);lineto(screen.Width,y);foldx:=x;foldy:=y;end;end;end;,第10章 其他编程,10.1.3图形（P

24、icture）对象,procedure TForm2.Image1MouseDown(Sender:Tobject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);/绘制区域图像 var width,height:integer;newbitmap:TBitmap;begin if(trace=false)then begin/首次点击鼠标左键，开始追踪鼠标 flag:=false;with image1.Canvas do begin moveto(foldx,0);lineto(foldx,screen.Height);moveto(0

25、,foldy);lineto(screen.Width,foldy);,第10章 其他编程,10.1.3图形（Picture）对象,end;x1:=x;y1:=y;oldx:=x;oldy:=y;trace:=true;image1.Canvas.Pen.Color:=clblack;image1.Canvas.Brush.Style:=bsclear;end else begin/第2次点击鼠标，得到矩形，并将它拷贝到FORM1的IMAGE上 x2:=x;y2:=y;trace:=false;,第10章 其他编程,10.1.3图形（Picture）对象,image1.Canvas.Recta

26、ngle(x1,y1,oldx,oldy);width:=abs(x2-x1);height:=abs(y2-y1);orm1.Image1.Width:=width;form1.Image1.Height:=height;newbitmap:=Tbitmap.Create;/生成Bitmap对象 newbitmap.Width:=width;newbitmap.Height:=height;newbitmap.Canvas.CopyRect(rect(0,0,width,height),form2.Image1.Canvas,rect(x1,y1,x2,y2);form1.Image1.Pi

27、cture.Bitmap:=newbitmap;/放到FORM的IMAGE上 newbitmap.Free;form2.Hide;form1.Show;end;end;end.,第10章 其他编程,10.1.3图形（Picture）对象,(6)运行得到如图的结果。,第10章 其他编程,10.2 多媒体编程 10.2.1 简易媒体播放器实例,制作一个媒体播放器，需要在窗体上设置一个TmediaPlayer（该组件位于组件面板的System选项卡上，图标为）、十个Tbutton、一个TopenDialog（位于组件面板的Dialogs选项卡上，图标为）等组件)、一个Edit、一个ComboBox、

28、一个Timer如图所示。各个组件的名字（Name属性）采用默认值。,第10章 其他编程,10.2.1 简易媒体播放器实例,该媒体播放器的工作过程是：单击“打开”按钮，就会打开OpenDialog对话框，让用户从中选择一个文件。单击“播放”按钮，就会播放用户所选择的文件。下面的代码是用于处理Button8的OnClick事件，它将打开媒体播放器。procedure Tform1.Button8Click(Sender:Tobjict);begin if opendialog1.Execute then begin mediaplayer1.FileName:=opendialog1.FileNa

29、me;mediaplayer1.open end;end.,第10章 其他编程,10.2.1 简易媒体播放器实例,为了OpenDialog对话框只列出多媒体文件，需要在属性查看器中设置OpenDialog1的Filter属性，单击打开Filter属性设置旁的按钮，将打开Filter Editor对话框，如图所示，在该对话框中键入所要打开文件的类型，如*.WAV、*.AVI、*.MID等，单击OK。设置好上述内容后，保存该工程，这样一个简单的媒体播放器就制作好了。运行这个程序，打开一个多媒体文件即可。,第10章 其他编程,10.2.2 媒体播放器组件,1.MediaPlayer组件,媒体播放器组

30、件,媒体播放器组件属性,第10章 其他编程,10.2.2 媒体播放器组件,2.MediaPlayer组件的属性（1）AutoEnable属性 该属性值是Boolean类型。如果这个属性设为True，媒体播放器在运行过程中能够自动控制哪些按钮当前可用，哪些按钮当前不可用（不可用的按钮以灰色显示）。（2）AutoOpen属性 该属性值是Boolean类型。如果这个属性设为True,媒体播放器自动打开DeveceType属性指定的多媒体设备（如果DeviceType属性设为dtAutoSelect，媒体播放器将自动打开FileName属性中指定的文件）。（3）AutoRewind属性 该属性值是Bo

31、olean类型，用于设置是否具有自动重绕功能。,第10章 其他编程,10.2.2 媒体播放器组件,（4）Capabilities属性 该属性值是只读TMPDevCapsSet类型，返回当前设备可以进行 的操作，它的值及值的含义如表所示。,第10章 其他编程,10.2.2 媒体播放器组件,（5）ColoredButton属性 该属性值是TbuttonSet集合类型，用于设置哪些按钮彩色显示，哪些按钮用黑白显示，默认时全部按钮均用彩色显示。,第10章 其他编程,10.2.2 媒体播放器组件,MediaPlayer组件的其他属性列于表中。,第10章 其他编程,10.2.2 媒体播放器组件,上表Mod

32、e属性的取值及含义见表,第10章 其他编程,10.2.2 媒体播放器组件,3.MediaPlayer组件的过程和函数（1）AutoButtonSet过程 该过程用来指定媒体播放器的按钮是否可用。（2）Back过程 该过程使媒体播放器退回数个帧。（3）Click过程 这是一个动态过程，该过程决定当OnClick事件被触发时执行什么动作。在默认状态下，当OnClick事件触发时，该过程不招待任何动作，仅仅是调用一个事件处理程序，连接到媒体播放器的OnClick事件处理程序中。该过程可以根据需要重新加载事件处理程序。（4）Close过程该过程关闭已打开的多媒体播放设备。当应用程序中止时，自动调用该过

33、程。,第10章 其他编程,10.2.2 媒体播放器组件,（5）Create函数 这是一个动态的构造函数，该函数可在运行时建立一个 MediaPlayer对象，并对其进行初始化，使得媒体播放器既可 以在设计时静态建立，也可以在运行时通过调用Create方法 动态建立。（6）Destroy函数 这是一个动态的析构函数，该函数用于撤销媒体播放器对象。应用程序不能直接调用该函数，应先调用Free过程检查媒体播 放器对象是否空闲，如果空闲就释放其占用的内存空间。该函 数执行前，必须确保媒体设备已经关闭。,第10章 其他编程,10.2.2 媒体播放器组件,MediaPlayer媒体播放器的其他过程表。,第

34、10章 其他编程,10.2.2 媒体播放器组件,MediaPlayer媒体播放器的其他过程表。,第10章 其他编程,10.2.2 媒体播放器组件,4.MediaPlayer组件的事件（1）OnClick事件 当用户移动光标到媒体播放器控制按钮组的任一按钮上，单击鼠标左键或者当媒体播放器控制按钮获得焦点时，单击空格键都将会触发该事件。（2）OnNotify事件 如果Notify属性设置为True，当一个媒体控制方法（如Back、Close、Eject、Next、Open、Pause、PauseOnly、Play.Previous、Resume、StartRecording、Step、Stop等）

35、执 行结束时，触发该事件。OnNotify事件触发后，必须重新 设置Notify属性为True，以便触发下一个OnNotify事件。,第10章 其他编程,10.2.2 媒体播放器组件,（3）OnPostClick事件 当OnClick事件处理程序被调用以后，触发该事件。（4）OnEnter事件 当一个控件接收到键入焦点时，触发该事件。,第10章 其他编程,10.3 线程 10.3.1 线程概念,所谓多线程，是指操作系统同时运行多个执行体的能力。线程概念与并发性是紧密相关的，多线程的出发点就是为了提高系统的并发度。线程与进程的差别主要体现在两个方面：线程和进程虽然都是系统的基本执行单元，线程的划

36、分单位比进程小，因此支持多线程的系统比只支持多进程的系统并发度高；进程将内存作为自己独享的资源，每个进程都有自己的内存空间；而线程共享内存空间，并通过共享内存交换信息，因此有利于提高系统效率。,第10章 其他编程,10.3.2 TThread类,TThread类 TThread类是直接从Tobject继承下来的，它是抽象类，即不能创建TThread类的实例，而只能创建TThread派生类的实例即创建线程对象。创建线程对象的方法是，选择Delphi 7主菜单下的FileNewOther，在弹出的“New Items”对话框的“New”选项卡中选择Thread Object图标，如图所示。,第10

37、章 其他编程,10.3.2 TThread类,当双击Thread Object图标后，将出现如图所示的对话框，提示输入 线程对象的名称，线程对象名称是一个标识符，如TestThread。输入线程对象名后，Delphi 7会自动创建一个包括该线程对象的单 元，该单元给出了线程的框架，其最初的内容如下所示：,第10章 其他编程,10.3.2 TThread类,unit Unit1;interfaceuses Classes;type TestThread=class(TThread)private Private declarations protected procedure Execute;o

38、verride;end;implementation TestThread procedure TestThread.Execute;begin Place thread code here end;end.,第10章 其他编程,10.3.2 TThread类,TThread派生类中唯一必须覆盖的方法是Excute()，即需要定义线程所执行的功能。当Create()需要参数为False，则当调用Create()后，线程对象的Execute()方法将会自动被调用，即自动地执行Execute()的代码。当Create()需要参数为False，则不自动执行Execute()的代码，而是要通过TThr

39、ead的Resume()方法来唤醒线程。,第10章 其他编程,10.3.2 TThread类,2.与VCL同步 大多数VCL都要求在任一时刻只允许一个线程访问它，因此在Delphi中使用多线程，还有一个重要的注意事项，即对VCL访问只能在主线程中进行，这表明所有与用户交互的代码只能在主线程中。同时，Delphi为了使线程中的方法也能在主线程中执行，在TThread中设置了一个Synchronize()方法，该方法声明如下：procedure Synchronize(Method:TThreadMethod);Synchronize()方法的参数就是用来传递需要在主线程中执行的线程中的方法。,第

40、10章 其他编程,10.3.3 线程的终止,当线程对象的Execute()方法执行完毕后，就认为该线程终止了，此时Delphi会自动调用一个标准例程EndThread()，该例程将再调用API函数ExitThread()，由ExitThread()来清除线程所占用的栈。线程终止时，将触发OnTerminate事件，可以利用在退出Execute()之前将FreeOnTerminate属性置为True的方法来及时清除线程对象。procedure TestThread.Execute;var i:integer;Begin FreeOnTerminate:=True;/设置FreeOnTermina

41、te为true以便及时清除线程对象 For i:=1 to 10000 dobegin If Terminated then break;Value:=Value+1;end;End;,第10章 其他编程,10.3.3 线程的终止,【例】创建如图所示的窗体，单击“开始”按钮后，将创建一个附 属线程，该线程执行一个计算任务，与此同时主线程并发执行，用户可在文本区域输入任意的字符。示例中所使用的窗体和组件的属性列于表中，未列的属性均取默认值。,主窗体（设计时）,第10章 其他编程,10.3.3 线程的终止,窗体与组件的属性设置,第10章 其他编程,10.3.3 线程的终止,保存主窗体单元为Main

42、.pas，源程序如下：unit Main;interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ThrdU;type TMainForm=class(TForm)Label1:TLabel;Button1:TButton;Label2:TLabel;Edit1:TEdit;Memo1:TMemo;procedure Button1Click(Sender:TObject);end;,第10章 其他编程,10.3.3 线程的终止,var MainForm

43、:TMainForm;implementation$R*.dfmprocedure TMainForm.Button1Click(Sender:TObject);begin TTestThread.Create(False);创建线程，使其立即执行 end;end.,第10章 其他编程,10.3.3 线程的终止,创建线程单元ThrdU.pas，选择主菜单的FileNewUnit，输入线程对象名为TtestThread，再输入以下源程序：unit ThrdU;interfaceuses Classes;type TTestThread=class(TThread)线程TTestThread类定义

44、 private Answer:integer;protected procedure GiveAnswer;procedure Execute;override;end;implementationuses SysUtils,Main;procedure TTestThread.GiveAnswer;begin MainForm.Edit1.Text:=InttoStr(Answer);end;,第10章 其他编程,10.3.3 线程的终止,TTestThread procedure TTestThread.Execute;执行一个较长的计算任务Var i:integer;begin Fre

45、eOnTerminate:=True;for i:=1 to 2000000 do begin if Terminated then break;Inc(Answer,Round(abs(sin(sqrt(i);Synchronize(GiveAnswer);使GiveAnswer能在主线程中执行 end;end;end.,第10章 其他编程,10.3.3 线程的终止,单击F9运行程序，结果如图所示。,第10章 其他编程,10.3.4 线程同步,编写多线程应用程序时，需要控制好线程间的同步资源访问，以保证线程的安全运行。所谓线程同步，简单说就是协调线程间的执行时序。Win32 API提供了一组

46、同步对象，包括信号量、互斥、临界区和事件等，来解决线程的同步问题。Delphi分别将事件对象和临界区对象封装为TEvent和TCriticalSection对象，使得事件和临界区更易使用。,第10章 其他编程,10.3.4 线程同步,临界区 临界区是指一次只能由一个线程执行的一段代码。在使用 临界区之前，要使用InitializeCriticalSection()过程来初始化它，其声明如下：procedure InitializeCriticalSection(var lpCriticalSection:TRTLCriticalSection);stdcall;lpCriticalSectio

47、n是一个TRTLCriticalSection类型的记录，在该参数中传递未初始化的记录，InitializeCriticalSection()过程就会填充这个记录。TRTLCriticalSection是一个与临界区资源相关的类型，。,第10章 其他编程,10.3.4 线程同步,创建临界区，使用EnterCriticalSection()和LeaveCriticalSection()过程来封装代码块。这两个过程的声明如下：procedure EnterCriticalSection(var lpCriticalSection:TRTLCriticalSection);stdcall;proce

48、dure LeaveCriticalSection(var lpCriticalSection:TRTLCriticalSection);stdcall;当不再需要TRTLCriticalSection记录时，要调用DeleteCriticalSection()过程将其删除。,第10章 其他编程,10.3.4 线程同步,【例】设有一个全局数组，分别用两个线程对其进行两次初始化，需要对这两个线程同步，否则将出现数据不确定的情形。用临界区方式进行两线程的同步，将对数组各元素赋值的代码设为临界区。程序界面如图所示，当单击“初始化”按钮后，将生成两个线程并执行，在列表框中显示数组元素值。（1）创建应用

49、程序界面，新建如图所示的窗体，并放置一个 label、一个button和一个listbox组件，各组件及其属性设置列于表中。,第10章 其他编程,10.3.4 线程同步,窗体与组件的属性设置,第10章 其他编程,10.3.4 线程同步,（2）在Form1对应的Unit1单元文件中输入程序代码：unit Unit1;interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,unit2;Type TForm1=class(TForm)Button1:TButt

50、on;ListBox1:TListBox;Label1:TLabel;procedure Button1Click(Sender:TObject);end;,第10章 其他编程,10.3.4 线程同步,var Form1:TForm1;CS:TRTLCriticalSection;/声明临界区资源记录变量implementation$R*.dfmprocedure TForm1.Button1Click(Sender:TObject);begin InitializeCriticalSection(CS);/初始化临界区 TInitThread.Create(False);/创建TinitTh