DELPHI编程实现3DS的动画播放_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

DELPHI编程实现3DS的动画播放

作者：闵涛文章来源：闵涛的学习笔记点击数：759 更新时间：2009/4/23 18:24:58

　　Delphi是一种具有强大功能的编程语言，用它可以轻松创建任何一种数据库应用程序。将3DS动画文件。FLC分解后，按先后顺序存于Delphi提供的Graphics数据类型中，通过读取Graphics类型的图形数据，在窗口中实现动画效果。

　　1．将DOS分解的图片存于数据库中

　　（1）进入3DS的KeyFrame模块，在Output选项中选择．BMP类型的文件。将图形文件全部存于同一目录中（例如目录c：pic，文件可为f0001．bmp，．．．，f0045．bmp）。

　　（2）利用Delphi的数据工具DeskTop建立一个图形数据库Pic．db，其中包括图形文件名filename和图片picture两个字段。

　　（3）创建Name为FrmPic的窗体Form1，从DataAccess页中选择Table组件，并将其放入窗体Form1中，其属性为：

Nametable1
DataBaseMYWORK
TableNamePic．db
　　从DataAccess页中选择DataSource组件，放入Form1窗体中，设置属性为：

NameDataSource1
DataSettable1
　　从DataControl页中选择DBImage选件，放入Form1窗体中，设置属性为：

Nameimage1
DataSourceDataSource1
DataFieldPicture
StretchTrue
　　（4）为FrmPic窗体的FormCreate事件填写如下代码：

procedureTform1．FormCreate（Sender：Tobject）；
begin
table1．open；
withtable1do
begin
whilenoteofdo
begin
image1．picture．loadfromfile（fieldbyname（′filename′）．asstring）；
edit；
fieldbynmae（′picture′）．assign（image1．picture．graphics）；
next；
end；
end；
end；
　　2．使用Timer组件实现动画演播

　　从System页中选择Timer组件放置到窗体Frmpic中，设置属性如下：

NametrmSpeed
EnabledFalse
Interval250
　　Timer组件的OnTimer事件定期自动发生。例如设置tmrSpeed组件的Interval属性为250，那么，tmrSpeedTimer过程，每隔250毫秒都将会自动执行。为tmrSpeedTimer过程的OnTimer事件填加的代码为：
procedureTform1．Timer1Timer（Sender：Tobject）；

begin
table1．next；
iftable1eofthentable1．first；
end；

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： Delphi中多媒体组件使用解析

下一篇教程：用Delphi进行OpenGL编程学习心得

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……