说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

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

HTML文档下载 WORD文档下载 PDF文档下载
Delphi编程实现3DS动画的播放

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;

用 QuickReport for Delphi 制作报表 用Delphi 开发数据库程序经验三则 用Delphi 实 现 不 同 数 据 库 系 统 之 间 的 数 据 转 移 用DELPHI本身的控件输出TABLE表数据 用Delphi编程访问SQLServer数据库 怎么样取到当前窗口的上个请求的url? 郁闷:这段程序为什么会发生溢出错误? 大家成天说的接口 接口程序 库……都是什么意思啊?怎么实现的都是? 再见了CSDN…………………..痛并快乐着…………………. 如何Set pic = CreateObject("")方法创建一个picturebox对象? 不是ASP问题,大家也帮忙看看!我急用!谢! 我在DataGrid里面修改数据为什么修改不了?菜鸟求教! 怎样判断文件中的行号, 各位:有一个很急的问题请教大家,还请多多帮忙啊! 数学题求简便运算详解,做好的给100分1>19.2 (两道简便运算题)(25%+3/8)*(13/7/ 简便运算 要用简便运算10×11÷1+11×12÷1+12× 一道数学题,求解(简便计算)9/10+19/20+ ABC是100以内的质数,满足A+B=C的质数共有 把20拆成某些自然数之和,使这两个数的乘积最大; 用两个连续自然数的和乘它们的差,积是17,这两个连 5道数学题,求解.能简便的要简便计算1、5/7+5 南京人社局:工作失误致百姓奔波 当事津巴布韦航空一客机引擎空中着火 成功艾弗森将退役詹韦致敬 詹姆斯:乔丹之中储粮:2家企业违规进口的转基因菜油足协公布中超最佳候选 里皮埃尔克森得“赖”50万躲猫猫正在叹茶时被抓雷凌:0.35秒换挡快感 纵享自由驾首家GAP落户番禺万达说胶囊公寓不合法 不如教它如何合法熊猫三胞胎昨起“见客”非常士兵大天无法云世界侏罗纪公园之龙骑士我是死亡骑士OPA百货旅游徐家汇天主教堂旅游漕溪公园旅游徐家汇公园旅游佘山国家森林公园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘