第09章 多媒体技术.ppt

1、叶核亚,Delphi 程序设计实用教程（第3版）,Delphi 程序设计实用教程（第3版）,第1章 Delphi 概述 第2章 Object Pascal语言基础 第3章 图形用户界面 第4章 菜单、工具栏和对话框 第5章 使用复杂组件 第6章 类的封装、继承与多态 第7章 多文档界面与系统对象 第8章 程序调试与异常处理 第9章 多媒体技术 第10章 文件操作和流 第11章 数据库应用基础 第12章 数据库应用设计, Delphi 程序设计实用教程（第3版）,第9章 多媒体技术,9.1 图形设计 9.2 图像处理 9.3 视频播放, Delphi 程序设计实用教程（第3版）,9.1 图形设计

2、,9.1.1 TCanvas画布类 9.1.2 绘图控件及绘图事件 9.1.3 图形动画设计 9.1.4 响应鼠标事件, Delphi 程序设计实用教程（第3版）,9.1.1 TCanvas画布类,设置绘图特性 Pen画笔 Color属性：控制线条的颜色。 Mode属性：控制线条的模式 Style属性：控制线条的风格，包括实线、虚线和点划线 Width属性：控制线条的宽度。 Brush刷子 Color属性：确定图形的填充颜色。 Style属性：确定图形的填充方式。 Pixels像素 PenPos画笔位置, Delphi 程序设计实用教程（第3版）,2. 绘图方法,绘图的坐标体系, Delphi

3、 程序设计实用教程（第3版）,2. 绘图方法,直线 Canvas.MoveTo(x1,y1); /定位(x1,y1) Canvas.LineTo(x2,y2); /在(x1,y1)和(x2,y2)之间画线 矩形 procedure Rectangle(x1,y1,x2,y2:integer); 椭圆 procedure Ellipse(x1,y1,x2,y2:integer); 多边形 procedure Polygon(Points:array of TPoint); 显示字符串 procedure TextOut(x,y;integer;const Text:string);, Delph

4、i 程序设计实用教程（第3版）,图9.2 多种绘图方法, Delphi 程序设计实用教程（第3版）,9.1.2 绘图控件及绘图事件,OnPaint事件与Repaint方法 【例9.1】 四叶玫瑰线。 PaintBox绘图区域控件 ListBox的OnDrawItem事件 【例9.2】 显示系统字体。, Delphi 程序设计实用教程（第3版）,9.1.3 图形动画设计,【例9.3】月蚀。, Delphi 程序设计实用教程（第3版）,9.1.4 响应鼠标事件,当鼠标按下时发生OnMouseDown事件 当鼠标松开时发生OnMouseUp事件 当鼠标移动时发生OnMouseMove事件 【例9.4

5、】 显示鼠标经过的路径。 【例9.5】 拖动鼠标画直线。 【例9.6】 拖动鼠标动态地画直线。, Delphi 程序设计实用教程（第3版）,9.2 图像处理,9.2.1 图像类 9.2.2 图像处理组件 9.2.3 图像动画设计, Delphi 程序设计实用教程（第3版）,9.2.1 图像类,TGraphic类及其子类TBitmap、TIcon、TMetafile和TJPEGImage TGraphic类的属性和方法： Empty只读属性：取值为true时，没有图像数据。 Width和Height属性：控制图像的宽度和高度。 LoadFromFile和SaveToFile方法：读取和保存图像文

6、件。 TPicture类 TPicture类可以处理多种类型的图像文件, Delphi 程序设计实用教程（第3版）,9.2.2 图像处理组件,Image组件 Picture属性 AutoSize属性 Stretch属性 Center属性 Transparent属性 图像对话框：OpenPictureDialog和SavePictureDialog, Delphi 程序设计实用教程（第3版）,9.2.3 图像动画设计,【例9.7】 图像动画设计。, Delphi 程序设计实用教程（第3版）,9.3 视频播放,9.3.1 Animate组件 9.3.2 MediaPlayer组件, Delphi

7、程序设计实用教程（第3版）,9.3.1 Animate组件,Animate组件播放动画使用的两种不同资源 AVI文件，需要设置Animate组件的FileName属性。 Windows内部动画，需要选择Animate组件的CommandAVI属性为某个常量值。 Animate组件的主要属性 Active属性 CommandAVI属性 FileName属性 Animate组件的方法和事件 【例9.8】 使用Animate组件播放动画并显示动画信息。, Delphi 程序设计实用教程（第3版）,9.3.2 MediaPlayer组件,MediaPlayer组件的命令按钮 MediaPlayer组件的属性 AutoEnable属性 AutoOpen属性 AutoRewind属性 DeviceType属性 Display属性 FileName属性 Frames属性