电子教案 《Delphi程序设计及实验指导(第二版)》-张景安
Delphi程序设计及实验指导(第二版)-第1章 Delphi概述
工程管理器可用来查看并且组织窗体、可执行文件、汇编程 序、对象和库文件等工程文件，在工程管理器中能增加、删 除和重新命名文件，也可以联合相关的工程来形成工程组， 可以同时进行编译。包括三个页面：Project Manager、Model View、Data Exploers
1.3 Delphi的安装
安装附加组件 准备安装
1.3 Delphi的安装
安装进度 安装完毕
1.4 Delphi的集成开发环境
Delphi 8 for .NET主窗口介绍
标题栏、主菜单栏、快捷工具栏、组件面板Tool Palette、代 码编辑器、对象观察器Object Inspector和工程管理器Project Manager
1.4 Delphi的集成开发环境
File菜单
Delph 8 for .NET以工程来管理应用程序，主要的文件有两种： 工程文件和单元文件。
1.4 Delphi的集成开发环境
Edit菜单
Edit菜单的功能是对单元文件和组 件对象进行编辑。文本编辑与 Windows下的文本编辑功能基本相 同；组件编辑包括对组件对象的排 列、前台与后台显示、锁定及设定 事件响应顺序等
1.2 Delphi 8 for .NET的功能特点
支持Delphi语言新增的内部函数和其他代码规则，如：多单元命名空 间等。 支持Winforms， Web 窗体以及Borland独自拥有的VCL for .NET和VCL for Win32可视化开发RAD（快速开发）的方法。 支持多种数据库存取（使用数据对象而不仅仅是 BdpDataAdapter）以及使用新的DataSync，DataHub，RemoteServer 和RemoteConnection 组件开发多层数据库应用。 支持重构源代码，增强了代码的可维护性和代码的重用性。 支持在Delphi .NET应用中集成J2EE EJB或带有Janeva的CORBA服务器 解决方案。
Delphi程序设计及实验指导(第二版)-第4章 常用组件
4.1 组件概述
组件的常用事件及触发条件
事件名 OnClick OnDblClick OnMouseDown OnMouseMove OnKeyDown OnKeyPress OnKeyUp OnEnter OnExit OnStartDrag OnDragDrop 触发条件 当鼠标单击时触发本事件 当鼠标双击时触发本事件 当鼠标左键按下时触发本事件 当鼠标移动时触发本事件 当按下任意键（包括组合键）时触发本事件 当按下任意键（单字符键）时触发本事件 当松开已按下键时触发本事件 当获得焦点时触发本事件 当失去焦点时触发本事件 当开始拖动时触发本事件 当组件拖动操作结束时触发本事件
4.2 文本输emo备注框组件位于组件面板的Standard选项卡上，可以 显示、编辑多行文本。 1．用途 ．
TMemo组件为用户提供了一种处理多行文本的方法，还可用来快 速阅读文件中的数据。尽管TLabel、TEdit和TMemo组件有许多相 似之处，但它们的使用场合却有所不同。如果只显示用户不能修 改的信息，可采用标签；如果用户只处理单行信息，则使用TEdit 组件；如果用户要处理多行文本，那么只能采用TMemo组件。
编写DengLu窗体相应的程序代码。 将组件添加到DengLu窗体后，编写相应的程序代码。 (*定义2个unit级符号常量*) const iusename='yonghu'; //定义用户名 ipassword='12345'; //定义口令 双击“确定”按钮，在代码编辑区中输入该按钮的OnClick事件处理代码： procedure TDengLu.BtnOKClick(Sender:TObject); begin if ( usename.text=iusename)and(password.text=ipassword) then MessageDlg('欢迎使用教师人事档案系统！', mtInformation, [mbOK], 0) else MessageDlg('对不起，您不是合法用户！请重新输入用户名和密码', mtInformation, [mbOK], 0); end; 双击“取消”按钮，在编辑区输入该按钮的OnClick事件代码： procedure TDengLu.BtnCancelClick(Sender: TObject); begin close; End;
Delphi程序设计实验指导书
《Delphi程序设计》实验指导书杨长春刘俊石林编写江苏工业学院计算机科学和工程系实验一、Delphi集成化开发环境和Object Opascal 语言一、实验目的1．掌握Delphi程序设计的上机步骤。
2．了解Delphi集成化开发环境。
3．认识使用程序框架。
4．掌握Object Opascal语言程序设计。
二、实验要求1．做好实验预习，掌握并熟悉本实验涉及到的内容2．写出实验报告，内容要求：（1）实验目的（2）实验内容，实验源代码写出关键的部分，一定要写出实验中出现的错误，以及解决错误的方法。
（3）出错信息及处理方法。
（4）实验结果，包括实验处理结果和设计心得。
三、实验环境操作系统：Windows 2000 Pro +SP4，使用系统：Delphi7.0企业版。
四、实验内容1．练习使用Delphi可视化设计方法步骤（1）启动程序，新建工程。
（2）添加组件（3）设置组件属性（4）编写代码（5）保存工程（6）运行工程2．Object Pascal数据类型的使用运行教材第二章中的实例，回答：Object Pascal提供了哪几种运算符数据类型，提供了那些语句？3．简单Windows程序设计任选题目1至题目6中完成4个。
题目1：输入圆的半径，计算并输出圆的内接正方形、外切正方形面积。
题目2：在编辑框中输入三种商品的单价、购买数量，计算并输出所用的总金额。
题目3：单位发工资。
某职工应发工资X元，试求各种票额钞票总张数最少的付款方案。
题目4：编写程序，任意输入一个整数，判断整数的奇偶性。
题目5：键盘输入a,b,c的值，判断他们能否构称三角形的三个边。
如果能够构成一个三角形，则计算三角形的面积。
题目6：设计程序，求s＝1+(1+2)+(1+2+3)+(1+2+3+4)+……+(1+2+……+n)的值。
实验二、常用组件、高级数据类型（必做）一、实验目的掌握按钮类、文本类、列表类、组合框组件、菜单、工具栏、对话框、网格组件、系统组件、PageControl组件的使用掌握高级数据类型的编程二、实验要求1．做好实验预习，掌握并熟悉本实验涉及到的内容2．写出实验报告，内容要求：（1）实验目的（2）实验内容，实验源代码写出关键的部分，一定要写出实验中出现的错误，以及解决错误的方法。
Delphi程序设计及实验指导(第二版)-第6章 窗体设计
1．用途 ．
TPageControl页面组件位于组件面板的Win32选项卡上（如图4-4所 示），用来制作笔记本式的页面标签，是个可多页重叠的显示页 面，用户可通过单击组件顶部（或底部）的页面标签进行页面之 间的切换。
6.2 多页面窗体
2．主要属性 ．
6.1 创建窗体
2．编辑组件 ．
在选中了要进行编辑的组件之后，就可以进行编辑了。 （1）改变位置和大小 选中组件，将鼠标箭头放在组件周围八个小方块的某个方块上， 按住鼠标并拖动即可改变形状和大小。 （2）对齐组件 同时选中要对齐的几个组件，然后选择Edit菜单下的Align命令，或 者选择快捷菜单上的Align命令。
掌握窗体创建的方法 掌握多页面窗体的设计方法 掌握分割窗体的设计方法 了解多文档界面的组成，掌握设计方法
6.1 创建窗体
在Delphi 8 for .NET应用程序的开发过程中，创建窗体是程序 设计的第一步。在Delphi 8 的集成开发环境中，选择主 菜单的File→New→VCL Forms Application，即可新建一个应用 程序.这时系统会自动产生一个窗体，默认名为Form1。
6.2 多页面窗体
3．主要方法 ．
（1）DoAddDockClient方法：如果在运行时向组件增加一个新页 面，那么将调用该方法以完成各页面的必要调整。 （2）FindNextPage方法：该方法返回在TPageControl组件中指定 页面的前一页或下一页。 （3）SelectNextPage方法：该方法用来指定当前页面之前或之后 的页面为活动页面。
6.1 创建窗体
（12）Menu属性：该属性可以定义窗体的菜单。如果用户希望在 不同的情况下显示不同的菜单项目，只需要将Menu属性设置成要 显示的菜单即可。 （13）PopupMenu属性：该属性用来设置对应的快捷菜单。当该 窗体被激活后，右击将显示一个和菜单名称相一致的快捷菜单。 要显示菜单，用户必须将该菜单的AutoPopup属性设置为true。 （14）Position属性：该属性用来描述窗体第一次显示时的屏幕位 置和尺寸，该属性的取值和含义见表6-1。 （15）WindowState属性：该属性定义了窗口的初始化状态，决定 窗口在第一次显示时是以普通形式（wsNormal）、最大化（ wsMaximized）还是最小化（wsMinimized）显示，其默认值为 wsNormal。
DeLphi程序设计教程教学设计 (2)
DeLphi程序设计教程教学设计一、引言DeLphi程序设计是一种基于Pascal语言的开发环境，它从20世纪90年代开始流行，用于开发Windows桌面应用程序，并且仍然广泛应用于企业级软件开发场景。
在本教学设计中，我们将介绍如何向学生传授DeLphi程序设计技能。
二、教学目标本教学设计的教学目标是使学生掌握以下内容：•理解DeLphi程序设计的基本原理和语法•掌握DeLphi程序设计工具的使用方法•能够开发简单的Windows桌面应用程序三、教学内容3.1 DeLphi程序设计基础•操作系统与编程语言•基础语法–数据类型–控制语句–运算符•过程与函数–参数传递–本地变量和全局变量•数组•字符串3.2 DeLphi程序设计工具的使用•DeLphi集成开发环境介绍•创建一个新项目•界面设计•编写代码•编译和调试3.3 开发一个简单的Windows桌面应用程序•留言板应用程序的开发–界面设计–数据库连接–增删改查操作四、教学方法4.1任务驱动教学法本教学设计采用任务驱动教学法，通过实现具有代表性的应用来引导学生学习，学习过程中将实现一个完整的应用程序，每个课时完成一个或多个功能。
4.2学生中心教学法在教学过程中，将学生的主观能动性放在第一位，采用学生中心教学法，引导学生自我发现、探索并解决问题。
教师只扮演学习的指导者和促进者的角色，引导学生自主完成应用程序的编写。
4.3提高教学效果的方法•在教学中注重培养学生的创新精神和实践能力•在教学中融入案例分析，让学生从实际问题中学习•在教学中鼓励学生进行小组合作学习，提高学生的学习效率五、教学评价评估学生的掌握程度，可以通过缩小应用程序的规模来进行评估，例如小规模试验性能能力、界面设计能力和代码的优化能力等方面。
六、教学资源•教学PPT•电子书•可执行文件案列•多媒体课件七、总结DeLphi程序设计作为一种著名的开发工具，在Windows应用程序领域有着广泛的应用。
2024版年度Delphi程序设计实用教程第2版
数据库连接配置
介绍如何配置数据库连接参数，包括数据 库服务器地址、用户名、密码等。
2024/2/2
数据库访问技术
阐述Delphi中访问数据库的几种常见技术， 如BDE、ADO、dbExpress等。
数据库操作基本流程
说明在Delphi中进行数据库操作的基本流 程，包括打开数据库、执行SQL语句、处 理结果集、关闭数据库等步骤。
03
包括基于TCP和UDP的Socket编程，可应用于实时聊天、文件
传输等场景。
34
Web应用开发技术
01
02
03
Web服务器
用于处理客户端请求并返 回响应的服务器程序。
2024/2/2
Web开发语言
如HTML、CSS、 JavaScript等，用于构建 Web应用程序的前端界面 和交互逻辑。
Web开发框架
负责数据包的路由和转发，包括IP、ICMP、 ARP等。
33
Socket编程原理及应用
2024/2/2
Socket概念
01
Socket是网络通信的端点，用于实现不同主机间的通信。
Socket编程原理
02
通过创建Socket对象、绑定地址和端口、监听连接、发送和接
收数据等步骤实现网络通信。
Socket编程应用
31
06
网络编程技术
2024/2/2
32
网络协议栈简介
TCP/IP协议栈
包括传输控制协议（TCP）和网络协议（IP）， 是互联网通信的基础。
传输层协议
提供端到端的通信服务，包括TCP和UDP等。
ABCD
delphi程序设计及实验指导
delphi程序设计及实验指导一、教学内容本节课的教学内容来自于《计算机编程基础》教材的第五章，主要内容包括：1. 介绍Delphi编程环境及基本操作；2. 学习Delphi中的基本数据类型、运算符和表达式；3. 掌握Delphi中的控制结构，如条件语句和循环语句；4. 学习如何使用数组和指针；5. 了解面向对象编程的基本概念，如类、对象、属性、方法等；6. 掌握Delphi中的常用类和函数，如String、Date、Math等；7. 学习如何进行文件操作，包括文件的打开、读写、关闭等；8. 通过实验指导，进行Delphi编程实践。
二、教学目标1. 让学生掌握Delphi编程环境及基本操作；2. 使学生了解并掌握Delphi中的基本数据类型、运算符和表达式；3. 培养学生运用控制结构解决问题的能力；4. 让学生了解数组和指针的使用；5. 使学生理解面向对象编程的基本概念；6. 培养学生运用Delphi中的常用类和函数进行编程的能力；7. 让学生掌握文件操作的基本方法；8. 通过实验指导，提高学生的编程实践能力。
三、教学难点与重点重点：Delphi编程环境及基本操作、基本数据类型、运算符和表达式、控制结构、数组和指针、面向对象编程、常用类和函数、文件操作。
难点：面向对象编程的概念及其应用、文件操作的细节处理。
四、教具与学具准备教具：计算机、投影仪、黑板、粉笔；学具：教材、《Delphi编程实验指导》、计算机。
五、教学过程1. 实践情景引入：通过一个简单的计算器程序，让学生了解Delphi编程环境及基本操作；2. 讲解基本数据类型、运算符和表达式，并通过示例进行讲解；3. 讲解控制结构，如条件语句和循环语句，并通过示例进行讲解；4. 讲解数组和指针的使用，并通过示例进行讲解；5. 讲解面向对象编程的基本概念，如类、对象、属性、方法等，并通过示例进行讲解；6. 讲解Delphi中的常用类和函数，如String、Date、Math等，并通过示例进行讲解；7. 讲解文件操作的基本方法，包括文件的打开、读写、关闭等，并通过示例进行讲解；8. 实验指导：让学生根据实验要求，运用所学的知识进行编程实践。
《Delphi程序设计及实验指导》电子教案--第10章
10.1 基本概念
• 10.1.2 HTML
– 超 文 本 标 记 语 言 HTML （ Hyper Text Markup Language）是制作Web信息的语言，是设计制作页 面的基础。 – 作为一种标记语言而不是编程语言，HTML主要用 来创建与系统平台无关的文档。所以按照HTML语 法规则建立的文档可以运行于不同硬件和操作系统 平台上。
SMTP
DNS
NSP
FTP
HTTP
Telnet
TCP
ICMP IP Ethernet ARPANET
UDP
ARP PDN
NVP
RARP Others
图10-1 TCP/IP协议的体系结构
10.1 基本概念
– 2．HTTP协议
• 超文本传输协议HTTP属于应用层协议，位于TCP/IP协议
的顶层，在设计和使用HTTP协议时需要以TCP/IP协议中
10.1 基本概念
• 10.1.4 线程
– 1．线程的概念
• 线程是Win32进程中的最小执行单元，线程由一个堆栈、CPU寄 存器的状态和系统调度列表中的一个入口组成，每个线程都可 以访问进程中的所有资源。 • 线程与进程的差别主要体现在两个方面： • (1) 线程和进程虽然都是系统的基本执行单元，线程的划分单位 比进程小，因此支持多线程的系统比只支持多进程的系统并发 度高。 • (2) 进程将内存作为自己独享的资源，每个进程都有自己的内存 空间；而线程共享内存空间，并通过共享内存交换信息，因此 有利于提高系统效率。
10.1 基本概念
– 3. Intranet
• Intranet称为企业内部网，它是基于TCP/IP协议，使用环球 网WWW工具、采用防止外界侵入的安全措施、为企业内 部服务，并有Internet功能的企业内部网络。Intranet是一种 使用Internet技术和标准组建的企业内部计算机网络，它可 以与Internet互连，也可以不与Internet互连。 • Intranet上的信息分为两类：企业内部信息和向社会公开的 大众信息；企业内部信息不允许任何外部用户访问的信息， 它主要用于企业内部的信息共享和协同工作。Intranet根据 企业安全要求，设置防火墙、安全代理等，用以保护企业 内部信息，防止外界侵入。
《Delphi程序设计及实验指导》电子教案--第2章
存储格式 有符号32位整数 无符号32位整数 有符号8位整数 有符号16位整数 有符号32位整数 有符号64位整数 无符号8位整数 无符号16位整数 无符号32位整数
2.1 数据类型
• (2) 字符型 • 字符型的类型标识符是Char。字符型的数据只能是单
个字符，不能是一串字符。例如'ABC'，'x=?' 等都不是 字符型的数据，而是字符串。(3) 布尔型 • 通常用到的布尔类型是Boolean，一个Boolean类型的变 量占一个字节，它只有两种取值：true和false。定义变 量i，ch，t分别为整型、字符型、布尔型。 • var • i: Interge; • ch: Char; • t: Boolean;
• 字符串类型是用一对单引号括起来的一系列字符。字符串 类型的表示范围和存储格式见表 2-3。
表2-3 字符串类型的表示范围和存储格式
类型
最多字符 字节数 字符集
ShortString 255
2～256B ANSI向后兼容
AnsiString 231
4～2GB SBCS，MBCS
LongString 231
2.1 数据类型
• 3．记录类型 • 记录类型（有的语言中被称为结构）是一个不同种类
元素的集合，每个元素称为字段（field）。在声明时， 指定记录的名字和每个字段。声明格式为： • type • RecordTypeName=record • FieldList 1:type1; • FieldList 2:type2; •… • FieldList n:type n; • end;
2.1 数据类型
• 2．实型 • 表2-2给出了实型的表示范围和存储格式。
《DELPHI程序设计》课程设计指导书
《DELPHI程序设计》课程设计指导书本指导书主笔人：黄伟审核人：周清平一、设计的目的与任务本设计是计算机科学与技术专业最为核心的课程设计之一，通过设计加深对课堂理论学习的理解，增强动手能力，为毕业设计做准备。
边学边练、逐步深入。
，软件工程模拟，强调独立软件编程操作，培养从事应用软件设计与开发工作的能力，达到迅速就业的目的。
软件开发项目实战是为了巩固所学知识和检验学习效果而设置的重要环节。
促使学生将学到的知识能用到实际的软件开发项目中去，在实际的项目开发工作中积累工作经验。
注：以城镇居民物业管理系统(举例)。
可自选课题。
二、设计的基本要求通过本设计的实践，学生应达到下列要求：1、能够自觉运用数据库原理和软件工程等专业课程的理论知识指导DELPHI进行软件设计；2、学会如何组织或设计软件模块及有关数据结构、数据库结构，并能对设计结果的优劣进行正确的评价；3、掌握设计软件系统的全过程及技术与方法；4、学会如何组织和编写软件设计文档和软件系统的操作说明；5、具有一定的独立分析问题、解决问题的能力；6、熟练掌握一种数据库管理系统。
7、根据设计任务,DELPHI与相应数据库如SQL SERVER2000/ACESS/ORACLE 等编制程序，在计算机上调试运行，并通过上机考核。
注意：按课程设计指导书提供的课题，应根据下一节给出的基本需求独立完成八个方面的设计，标有“可选”的部分可根据设计时间的安排及工作量的大小适当选择。
选用其他课题或不同的数据库管理系统，可以组成设计小组，分模块进行,共同协作完成一个应用系统的开发任务。
要求书写详细的设计说明书，对复杂的代码段和程序段，应画出程序流程图。
在界面设计中，画出每个窗口的布局，有多个窗口时，按模块调用的方式画出窗口调用图。
用手工画好报表和标签样式。
严禁相互抄袭。
三、课程设计内容：〖问题描述〗利用数据库管理系统SQL SERVER 2000和前台开发工具DELPHI实现人员的基本物业管理, 使物业管理摆脱过去那种单纯依靠手工进行管理的方法和手段，就需要规划一整套科学、严密、高效、实用的物业管理系统，对人员、设备、服务、信息、财务及各项活动实施全面管理。
ASP程序设计及应用(第二版)-电子教案及源代码-张景峰-9241 第7章 ASP组件
Set NextLink=
Server.CreateObject("MSWC.NextLink")
7.4 Content Linking组件
7.4.1 线性排列顺序文件 包含Web页的相关信息列表，该文件必须在
impressions
7.2 Ad Rotator组件
2．重定向文件
重定向文件是Ad Rotator组件中的可选项，如 果在循环定时文件中指定使用重定向文件，每 当用户单击广告时，其发出的请求对象会重定 向到该文件。重定向文件是使用 Request.querystring("URL")来取得与被单击 图像相关的“URL”的。
Web服务器的虚拟路径上可用。 语法如下：
Web-page-URL [ text-description [ comment]] Web-page-URL 以 filename 或 directory\filename
表示的Web页的虚拟或相对URL。 text-description是Web-page-URL的描述文字。 comment为组件不处理时的说明性文字。
GetNthDescription(listURL, i)
获取内容链接列表文件中所列的第N页的URL
GetPreviousURL GetNextDescription GetNthURL
GetPreviousURL(listURL) GetNextDescription(listURL) GetNthURL(listURL, i)
SCOPE=Application ID=MyCount PROGID="MSWC.Counters"> </OBJECT> 在Global.asa文件中利用HTML的<OBJECT>标记创 建一个名为MyCount的计数器实例。
《Delphi程序设计及实验指导(第二版)》 第3章 面向对象程序设计
3.1 面向对象的可视化编程步骤
3.1.2 设计程序界面 InputForm窗体设计界面如图3-1所示，界面上包含5
个标签（Label）用于显示输入提示信息；两个文本 框（Edit），分别用于输入姓名、工龄；两个组合 列表框（ComboBox）分别用于选择职称和部门；3 个按钮（Button）分别用于清除、显示和退出程序 。InputForm窗体及其包含的组件属性见表3-1。
3.1 面向对象的可视化编程步骤
3.1.4 保存所有文件
选择File→Save All菜单项，由于这个新建的工程还没有命
名，所以首先会出现一个Save As对话框，默认的单元名是 Unitl，用户可用更具描述意义的名字代替它。在这里，使 用InputUnit.pas进行命名。保存完单元文件后，又会出现 Save As对话框，要求为工程文件命名，在这里，把它命名 为InputPrj.dpr。
第3章 面向对象程序设计
导读 3.1 面向对象的可视化编程步骤 3.2 对象和类的概念 3.3 消息 3.4 异常处理 3.5 程序调试 小结 习题
导读
Delphi 8 for .NET是全新的可视化的编程环境，采用面
向对象程序设计语言，为我们提供了一种方便、快捷 的编程方法，大大提高了编程效率。
属性值 教师基本信息 请输入教师基本信息 10 楷体_GB2312 姓名 工龄 职称 部门 （空） （空） 见习生 助教 讲师 副教授 教 授 见习生 计算机系 外语系 中文系 数理系 化工系 建工系 计算机系 清除 显示 退出
3.1 面向对象的可视化编程步骤
1．设置主窗体的属性 单击Forml窗体，在Object Inspector中设置其属性。将
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
• 导读 • 10.1 动画组件TAnimate • 10.2 媒体播放器组件TMediaPlayer • 10.3 简单的动画播放程序的设计 • 10.4 简单的CD播放器的制作 • 小结 • 习题
导读
• 多媒体技术是近年来计算机技术的一个重要的发展方向，采用多媒体 技术制作的软件产品已经越来越多地走进生活、学习、娱乐之中。 Delphi 8 for .NET作为一种快速开发工具，不仅在开发数据库和网络应 用程序中令人称道，而且Delphi 8 for .NET为开发人员提供了功能全面 的多媒体开发组件，这些组件使得利用Delphi开发多媒体应用程序非 常方便容易。
– 注意：在AVI剪辑被激活之前必须确保AVI剪辑是打开的。
• （2）Center属性：该属性用来决定是否将AVI剪辑放 在TAnimate区域的中间位置。
10.1 动画组件Tanimate
• （3）FileName属性：该属性用来指定AVI剪辑文件 的文件名。需要注意的是，该文件包含的AVI剪辑必 须是无声的。此外，在指定播放AVI文件的时候要保 证CommonAVI属性值为aviNone。
• TMediaPlayer组件位于组件面板的System选项卡 上，如图10-3所示。将TMediaPlayer组件添加到 当前活动的窗体中，如图10-4所示。 TMediaPlayer组件总共有9个按钮：播放 （btPlay）、暂停（btPause）、停止（btStop）、 下一音轨（btNext）、上一音轨（btPrev）、快 进（btStep）、快退（btBack）、录制（btRecord）
10.1 动画组件Tanimate
• （7）Repetition属性：该属性指定重复播放AVI剪辑 的次数。当Active属性设置为true时，AVI剪辑开始播 放，当播放次数达到由Repetition属性指定的数值时， AVI剪辑停止播放，同时Active属性设置为false。当 Repetition属性设置为0时，表示不指定重复播放的 次数。这时，可以通过设置Active属性值和使用Stop 方法来停止AVI剪辑的播放。
• 本章主要介绍利用Delphi 8 for .NET中的TAnimate组件和TMediaPlayer组 件开发多媒体应用程序的方法。
• 学习目标：
– 掌握动画组件TAnimate的使用方法 – 掌握媒体播放器组件TMediaPlayer的使用方法
10.1 动画组件Tanimate
– 1．用途
• 动画组件TAnimate 位于组件面板的Win32选项卡上， 如图10-1所示，该组件专门用于播放动画应用程序。 通常，在应用程序中需要显示动态图像，但不需要 声音设备的时候，可以使用TAnimate组件。 TAnimate组件能够播放的AVI（Audio Video Interlaced） 剪辑可以是无声的AVI文件、使用RLE（Runtime Length Encoding）压缩方式压缩过的AVI文件，AVI剪 辑通常是一个位图图像的序列。
10.2 媒体播放器组件
TMediaPlayer
– 2．主要属性
• （1）AutoEnable属性：该属性用来设置 TMediaPlayer组件的控制按钮在运行过程中是否可自 动变为可用或者不可用。如果其值为true，则媒体 播放器可以自动将控制按钮变为可用或不可用。媒 体播放器根据Mode属性返回的设备状态以及 DeviceType属性设置的设备类型来确定哪个按钮可用 或不可用。
• （4）FrameCount属性：该属性为只读属性，其属性 值记录了所选中的AVI剪辑中包含的位图图像序列的 总帧数。通过读取该属性，可以选择播放AVI剪辑中 的全部图像帧，或其中指定的一部分图像帧。
• （5）FrameHeight和FrameWidth属性：这两个属性 也是只读的，它们记录了选中的AVI剪辑中包含的位 图图像所占矩形区域的高度和宽度。当TAnimate组 件的AutoSize属性值设为true时，TAnimate组件的大 小会自动和图像的大小进行匹配。
• （8）StartFrame属性和StopFrame属性：这两个属性 用来指定AVI剪辑播放的起始帧和结束帧的序号。当 设置Active属性为true时，AVI剪辑将按照Repetition 数字指定的播放次数重复播放StartFrame和 StopFrame指定区间的图像序列。
• （9）Timer属性：该属性用来指示在播放AVI剪辑的
10.2 媒体播放器组件 TMediaPlayer
– 1．用途
• Delphi提供了一个TMediaPlayer组件，使得程序 员可以使用它快速开发音频或者视频播放器。 TMediaPlayer组件提供了一个MCI（Media Control Interface，媒体控制接口），它可以轻松地在程 序中加入多媒体功能。完整的MCI驱动程序能够 支持*.wav、*.dat、*.midi和*.cda等格式的文件。
10.1 属性：该属性用来指定是否激活选中的 AVI剪辑。当该属性值设置为true时，可以让选中的 AVI剪辑按照用Repetition、StartFrame和StopFrame属 性设置的播放方式，在TAnimate窗口中自动播放。 该属性值设置为false时，选中的AVI剪辑不能播放， 或停止正在播放的AVI剪辑。
10.1 动画组件Tanimate
– 【例10-1】使用TAnimate组件设计一个简单的 动画播放程序。
– 创建一个工程PrjTAnimate.dpr，选择组件面板的Win32选项 卡，从中选择TAnimate组件将其拖动到默认窗体中。这时， 可以看到TAnimate组件表现为一个空白区域，这就是用来 显示动画图像的区域。将TAnimate组件的AutoSize属性设置 为true，接着选择所要播放的AVI剪辑。在示例程序目录下 存在一个名为Clock.avi的AVI文件，设置TAnimate组件的 FileName属性clock.avi，然后设置Active属性为true，可以 看到动画在窗口中已经开始播放，如图10-2所示。