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;
0条评论