中央广播电视大学 课件 多媒体组件及应用（1）_Delphi程序设计第七章

第22讲 多媒体组件及应用 ●多媒体播放组件 ●绘图组件

第22讲 多媒体组件及应用 ⚫多媒体播放组件 ⚫绘图组件

MediaPlayer ●在System组件页上 ●关键属性 。FileName属性-用于指定要播 放的媒体文件(mpg、avi…) 。Display)属性-指定播放窗口

MediaPlayer ⚫在System组件页上 ⚫关键属性 FileName属性－用于指定要播 放的媒体文件（mpg、avi...） Display属性－指定播放窗口

MediaPlayer ●Display:=panel1 OMediaPlayer1.DisplayRect Rect 0,0, Panel1.Width,Panel1.Height

MediaPlayer ⚫Display:=panel1 ⚫MediaPlayer1.DisplayRect := Rect（0, 0, Panel1.Width,Panel1.Height）

MediaPlayer ●方法 OMediaPlayer1.open OMediaPlayer1.close OMediaPlayer1.Play OMediaPlayer1.Pause OMediaPlayer1.Rewind

MediaPlayer ⚫方法 MediaPlayer1.open MediaPlayer1.close MediaPlayer1.Play MediaPlayer1.Pause MediaPlayer1.Rewind

MediaPlayer例 22-1 7Forni 回x 打开文件

MediaPlayer 例 22-1

MediaPlayer例 procedure TForm1.Button1Click(...); begin if OpenDialog1.Execute then begin MediaPlayer1.Close; MediaPlayer1.FileName : OpenDialog 1.FileName;

MediaPlayer 例 procedure TForm1.Button1Click(...); begin if OpenDialog1.Execute then begin MediaPlayer1.Close; MediaPlayer1.FileName := OpenDialog1.FileName;

MediaPlayer例 MediaPlayer1.Open; MediaPlayer1.Display :Panel1; MediaPlayer1.DisplayRect : Rect(0,0, Panel1.Width,Panel1.Height); end end;

MediaPlayer 例 MediaPlayer1.Open; MediaPlayer1.Display := Panel1; MediaPlayer1.DisplayRect := Rect(0, 0, Panel1.Width,Panel1.Height); end ; end;

MediaPlayer方法例 22-2 7 Forn1 回☒ 打开 播放 重播 暂停

MediaPlayer 方法例 22-2

Delphi中的绘图功能 ●Canvas(画布)对象 。Delphi将常用的绘图功能封装 在TCanvas类中 。通过设置Canvas对象的属性 调用其方法，可实现简单绘图 ◆Image、Form等含有Canvas

Delphi中的绘图功能 ⚫Canvas（画布） 对象 Delphi将常用的绘图功能封装 在TCanvas类中 通过设置Canvas对象的属性、 调用其方法，可实现简单绘图 ⚫Image、Form等含有Canvas

Canvas属性 ●Pen(画笔)属性 。Style子属性 opsSolid（实线) 。Color-子属性 ⊙clBlack(黑色 OWidth子属性（隐含为1）

Canvas属性 ⚫Pen（画笔）属性 Style子属性 psSolid（实线） Color子属性 clBlack（黑色） Width子属性 （隐含为1）