• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

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

Delphi 搞代码 3年前 (2018-08-09) 130次浏览 已收录 0个评论

  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中,其属性为:

http://www.gaodaima.com/?p=65998DELPHI编程实现3DS的动画播放_Delphi

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;

欢迎大家阅读《DELPHI编程实现3DS的动画播放_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址