DELPHI編程實現3DS的動畫播放

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中，其屬性為：

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;