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

2008-04-09 04:17:28来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

  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;

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:在DBGrid中实现Copy、Paste功能

下一篇:用Delphi实现将纯文本资料转入数据库