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

Delphi是一种功能强大的编程语言，可以很容易地创建任何数据库应用程序。3DS动画文件。FLC分解后，以Delphi提供的图形数据类型有序存储。通过读取图形类型的图形数据，在窗口中实现动画效果。

1.在数据库中存储DOS分解的图片。

(1)进入3DS的关键帧模块，选择。。输出选项中的BMP类型文件。将所有图形文件保存在同一个目录下(例如目录C: PIC，文件可以是f0001.bmp，...，f0045.bmp)。

(2)利用Delphi的数据工具DeskTop建立图形数据库Pic.db，包括图形文件名和图片图片两个字段。

(3)创建名为FrmPic的表单Form1，从数据访问页中选择Table组件，放入表单Form1中。它的属性是:

名称表1
数据库我的工作
表名称Pic.db

从数据访问页中选择DataSource组件，将其放入Form1表单中，并按如下方式设置属性:

name data source 1
dataset table 1

从DataControl页面选择DBImage选项，将其放入Form1表单中，并设置如下属性:

name image1
data source data source 1
DataFieldPicture
stretch true

(4)为FrmPic表单的FormCreate事件填写以下代码:

过程表单1。FormCreate(发件人:to object)；
begin
table 1 . open；
with table 1 do
begin
while noteofdo
begin
image1 . picture . loadfromfile(field by name(′filename′)。asstring)；
编辑；
fieldbynmae(′图片′)。assign(image1 . picture . graphics)；
接下来；
end；
end；
end；

2.利用定时器组件实现动画表演

从系统页面中选择计时器组件，并以Frmpic的形式放置它。按如下方式设置属性:

NametrmSpeed
enabled false
interval 250

计时器组件的OnTimer事件会定期自动发生。例如，如果tmrSpeed组件的Interval属性设置为250，则tmrSpeedTimer进程将每隔250毫秒自动执行一次。为tmrSpeedTimer进程的OnTimer事件添加的代码为:
proceduretform 1 . timer 1 timer(sender:to object)；

begin
table 1 . next；
iftable 1 eofthentable 1 . first；
end；