Delphi编程完成3DS动画的播映-Delphi-优质IT资源分享社区

admin
管理员
管理员
  • UID1
  • 粉丝29
  • 关注4
  • 发帖数581
  • 社区居民
  • 忠实会员
  • 原创写手
阅读:213回复:0

  Delphi编程完成3DS动画的播映

楼主#
更多 发布于:2016-06-19 12:18

 
Delphi是一种具有强壮功用的编程语言,用它能够轻松创立任何一种数据库应用程序。将3DS动画文件。FLC分化后,按先后顺序存于Delphi提供的Graphics数据类型中,经过读取Graphics类型的图形数据,在窗口中完成动画作用。
1.将3DS分化的图像存于数据库中
(1)进入3DS的KeyFrame模块,在Output选项中挑选.BMP类型的文件。将图形文件全部存于同一目录中(例如目录c:\pic,文件可为f0001.bmp,...,f0045.bmp)。
(2)运用Delphi的数据东西DeskTop树立一个图形数据库Pic.db,其间包含图形文件名filename和图像picture两个字段。
(3)创立Name为FrmPic的窗体Form1,从DataAccess页中挑选Table组件,并将其放入窗体Form1中,其特点为:
Name table1
DataBase MYWORK
TableName Pic.db
从DataAccess页中挑选DataSource组件,放入Form1窗体中,设置特点为:
Name DataSource1
DataSet table1
从DataControl页中挑选DBImage选件,放入Form1窗体中,设置特点为:
Name image1
DataSource DataSource1
DataField Picture
Stretch True
(4)为FrmPic窗体的FormCreate事情填写如下代码:
procedureTform1.FormCreate(Sender:Tobject);
begin
table1.open;
with table1 do
begin
while not eof do
begin
image1.picture.loadfromfile(fieldbyname(filename).asstring);
edit;
fieldbynmae(picture).assign(image1.picture.graphics);
next;
end;
end;
end;
2.运用Timer组件完成动画演播
从System页中挑选Timer组件放置到窗体Frmpic中,设置特点如下:
Name trmSpeed
Enabled False
Interval 250
Timer组件的OnTimer事情定时主动发作。例如设置tmrSpeed组件的Interval特点为250,那么,tmrSpeedTimer进程,每隔250毫秒都将会主动执行。为tmrSpeedTimer进程的OnTimer事情填加的代码为:
procedureTform1.Timer1Timer(Sender:Tobject);
begin
table1.next;
if table1.eof then
table1.first;
end;




[font=Tahoma  ]
优质IT资源分享社区为你提供此文。
本站有大量优质Delphi教程视频,资料等资源,包含Delphi基础教程,高级进阶教程等等,教程视频资源涵盖传智播客,极客学院,达内,北大青鸟,猎豹网校等等IT职业培训机构的培训教学视频,价值巨大。欢迎点击下方链接查看。
Delphi教程视频
优质IT资源分享社区(www.itziyuan.top)
一个免费,自由,开放,共享,平等,互助的优质IT资源分享网站。
专注免费分享各大IT培训机构最新培训教学视频,为你的IT学习助力!

!!!回帖受限制请看点击这里!!!
!!!资源失效请在此版块发帖说明!!!

[PS:按 CTRL+D收藏本站网址~]

——“优质IT资源分享社区”管理员专用签名~

本版相似帖子

游客