第 10 章其他编程

Delphi实用教程 第10章其他编程第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.FormPaint(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窗体上放置一个按钮“连接椭圆上的两点”，双击该按钮，输入下面的代码： procedure Tform1.Button1Click(Sender:TObject); var R:TRect; begin R:=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方法 ▲语法： 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;SourceTRect) 此方法从另一个画布对象上复制部分图像到该画布。 ●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（画笔对象）用于在画布上绘制各种线段，该对象常用的属性有： lColor：定义笔的颜色； lWidth：定义线段宽度； l Style：定义线段的各种类型，如表所示；第10章其他编程

10.1.1画布的通用属性和方法 ● Mode：定义线段的颜色，取值如表所示。第10章其他编程

10.1.1画布的通用属性和方法 3. Tbrush Object（画刷对象）画刷对象用以填充图形，如用画刷颜色或图案对矩形或椭圆进行填充。Tbrush拥有一个画刷句柄(Hbrush)。画刷的颜色定义在Color属性中，画刷还有一个Bitmap属性，该属性只能在运行时得到，画刷可使用位图填充图形以产生特殊效果。第10章其他编程

10.1.1画布的通用属性和方法 4. TColor类型 TColor类型用于定义一个对象的颜色。很多部件的颜色属性就是TColor类型，在Graphics单元中TColor定义如下： TColor=-(COLOR_ENDCOLORS+1)…$02FFFFF; 第10章其他编程

10.1.2 图形图像组件 • Image组件 Image组件是一个容器组件，它在应用程序窗体窗口中提供了一个矩形区域，用于显示和输出位图、图标、图元文件或用户自定义的图形文件。Image组件的常用属性表。第10章其他编程

10.1.2 图形图像组件 2. Shape组件 Shape组件用于在窗体中绘制几何图形，如椭圆、矩形和圆角矩形等。该组件的常用属性有： lShape：指明需要绘制的几何图形，它可能的取值和含义如表所示； lBrush：指明在几何图形中填充的样式； lPen：指定几何图形所使用的线型。第10章其他编程

10.1.2 图形图像组件 3. PaintBox组件该组件是一个简单的画板，它为应用程序提供了可在窗体的特定矩形区域内画图的方法。 PaintBox组件的主要属性有： (1) Anchors属性该属性包含4个子属性（akLeft、akTop、akRight和akBotton），用来指定在运行过程中，当父组件是可调时，它相对于父组件边沿的位置。 (2) BoundsRect属性该属性用来指定组件的矩形边界，用其父组件的坐标系来表示。第10章其他编程

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属性该属性仅在运行时有效，使用该属性可以在组件表面的特定区域进行绘图。 (4) Color属性该属性可用于除“颜色”对话框以外的所有组件或对象。 (5) Constaints属性该属性强制指定组件的大小。第10章其他编程

10.1.3图形（Picture）对象 • 读取图像读取图像需要使用LoadFromFile方法来调用，同时配合 OpenDialog函数来选择相应的图像文件。下面的代码实现对图像文件的读取： procedure Tform1.Open1Click(Sender:Tobject); begin if OpenDialog1.Execute then begin CurrentFile:=OpenDialog1.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) begin if CurrentFile<>’’ then Image.Picture.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就可以了。下面的代码实现用一个新的位图对象代替原有的Image组件中的Picture中的图像对象的功能： Bitmap:Tbitmap: begin Bitmap:=Tbitmap.Create; Bitmap.Width:=NewWidth; Bitmap.Height:=NewHeight; Image.Picture.Graphic:=Bitmap; CurrentFile:=’’; end; 第10章其他编程

10.1.3图形（Picture）对象 【例】屏幕复制，将当前屏幕的图像抓下来，显示到窗口中；还可以文件的形式保存起来。步骤如下： (1) 建立用户界面：建立窗体Form1，添加一个Panel、一个Timer、一个SavePictureDialog、四个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.Timer1Timer(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; fullscreen.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.Height; 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 TForm1.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 Form2: TForm2; foldx,x1,y1,x2,y2,oldx,oldy,foldy:integer; flag,trace:boolean; implementation uses unit3; {$R *.dfm} 第10章其他编程

10.1.3图形（Picture）对象 procedure TForm2.Timer1Timer(Sender: TObject); var fullscreen:TBitmap; fullscreencanvas:TCanvas; dc:HDC; begin form2.timer1.enabled:=false; fullscreen:=tbitmap.create; fullscreen.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章其他编程

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.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; 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图形（Picture）对象 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,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.Rectangle(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.Picture.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、一个Timer如图所示。各个组件的名字（Name属性）采用默认值。第10章其他编程

10.2.1 简易媒体播放器实例 • 该媒体播放器的工作过程是：单击“打开”按钮，就会打开OpenDialog对话框，让用户从中选择一个文件。单击“播放”按钮，就会播放用户所选择的文件。下面的代码是用于处理Button8的OnClick事件，它将打开媒体播放器。 procedure Tform1.Button8Click(Sender:Tobjict); begin if opendialog1.Execute then begin mediaplayer1.FileName:=opendialog1.FileName; mediaplayer1.open end; end. 第10章其他编程

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

10.2.2 媒体播放器组件 1. MediaPlayer组件媒体播放器组件媒体播放器组件属性第10章其他编程

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

10.2.2 媒体播放器组件 （4）Capabilities属性该属性值是只读TMPDevCapsSet类型，返回当前设备可以进行的操作，它的值及值的含义如表所示。第10章其他编程

10.2.2 媒体播放器组件 （5）ColoredButton属性该属性值是TbuttonSet集合类型，用于设置哪些按钮彩色显示，哪些按钮用黑白显示，默认时全部按钮均用彩色显示。第10章其他编程

10.2.2 媒体播放器组件 MediaPlayer组件的其他属性列于表中。第10章其他编程

10.2.2 媒体播放器组件 上表Mode属性的取值及含义见表第10章其他编程

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

10.2.2 媒体播放器组件 （5）Create函数这是一个动态的构造函数，该函数可在运行时建立一个 MediaPlayer对象，并对其进行初始化，使得媒体播放器既可以在设计时静态建立，也可以在运行时通过调用Create方法动态建立。（6）Destroy函数这是一个动态的析构函数，该函数用于撤销媒体播放器对象。应用程序不能直接调用该函数，应先调用Free过程检查媒体播放器对象是否空闲，如果空闲就释放其占用的内存空间。该函数执行前，必须确保媒体设备已经关闭。第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等）执行结束时，触发该事件。OnNotify事件触发后，必须重新设置Notify属性为True，以便触发下一个OnNotify事件。第10章其他编程

10.2.2 媒体播放器组件 （3）OnPostClick事件当OnClick事件处理程序被调用以后，触发该事件。（4）OnEnter事件当一个控件接收到键入焦点时，触发该事件。第10章其他编程

10.3 线程10.3.1 线程概念 • 所谓多线程，是指操作系统同时运行多个执行体的能力。线程概念与并发性是紧密相关的，多线程的出发点就是为了提高系统的并发度。 • 线程与进程的差别主要体现在两个方面： • 线程和进程虽然都是系统的基本执行单元，线程的划分单位比进程小，因此支持多线程的系统比只支持多进程的系统并发度高； • 进程将内存作为自己独享的资源，每个进程都有自己的内存空间；而线程共享内存空间，并通过共享内存交换信息，因此有利于提高系统效率。第10章其他编程

10.3.2 TThread类 • TThread类 TThread类是直接从Tobject继承下来的，它是抽象类，即不能创建TThread类的实例，而只能创建TThread派生类的实例—即创建线程对象。 ● 创建线程对象的方法是，选择Delphi 7主菜单下的 FileNewOther…，在弹出的“New Items”对话框的“New” 选项卡中选择 Thread Object图标，如图所示。第10章其他编程

10.3.2 TThread类 ● 当双击Thread Object图标后，将出现如图所示的对话框，提示输入线程对象的名称，线程对象名称是一个标识符，如TestThread。 ● 输入线程对象名后，Delphi 7会自动创建一个包括该线程对象的单元，该单元给出了线程的框架，其最初的内容如下所示：第10章其他编程

第 10 章其他编程