关于超想
本站导航
邮件列表
  首页 | 本站产品 | Delphi资料 | 免费资源 | 程序人生 | 软件工程 | 网站设计 | 推荐网站
你所在的位置 -> 主页 -> 超想软件 -> 编程资料 -> delphi -> 开发技巧 -> 图形图像 ->详细
相关内容  
 
 
在程序运行期设置QUERY控件的PARAMS
 
【新品推荐】

  详细内容
 

DELPHI编程实现3DS的动画播放
作者: 评价: 上站日期: 2001-05-09
内容说明:
来源:

  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中,其属性为:
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;
if table1.eof then table1.first;
end; 

 
你所在的位置 -> 主页 -> 超想软件 -> 编程资料 -> delphi -> 开发技巧 -> 图形图像 ->详细
  首页 | 本站产品 | Delphi资料 | 免费资源 | 程序人生 | 软件工程 | 网站设计 | 推荐网站
声明:本站内容除注明原创以外均从网上摘抄,如有侵权请指明。
  如果您对我们的网站有什么意见或者建议,请与我们联系
powered by 建站易上手- V2.0