科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网›软件频道 ›基础软件›DELPHI编程实现3DS的动画播放

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

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

Delphi是一种具有强大功能的编程语言，用它可以轻松创建任何一种数据库应用程序.......

作者：佚名 来源：程序员之家 2007年11月1日

关键字： Delphi 3D 动画播放

  • 评论
  • 分享微博
  • 分享邮件
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；

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    VIP专区
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息，那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章

    业界热点:

    北京第二十六维信息技术有限公司（至顶网）版权所有. 京ICP备15039648号-7 京ICP证161336号 京公网安备 11010802021500号