delphi TAnimate组件

在组建win32下面，显示avi视频。

主要是以下几个属性的使用
active:设为true则将动画激活
commonavi:这个属性可将动画设为系统预定义的avi剪辑
filename:若不使用系统动画，在此处设置动画文件的路径，注意必须为avi动画，且该动画不能有声音
startframe,stopframe:开始和结束的帧数
示例如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
Animate1.CommonAVI:=aviDeleteFile;
animate1.StartFrame:=1;
animate1.StopFrame:=24;
animate1.Active:=true;
end; 

1.找到avi资源并显示：

self.OpenDialog1.Execute;
self.Animate1.FileName:=OpenDialog1.FileName;
Animate1.Open:=true;

2.播放：

      Animate1.Active:=true; 或Animate1.Play(起始帧,结束帧,循环次数);循环次数为0表示无限循环

3.暂停：

Animate1.Stop;

4.释放：

Animate1.Open:=false;

5.重置：

Animate1.Reset;

 

TAnimate组件

1 属性

Center 决定TAnimate组件是否居中播放动画.

Repetitions 设置动画循环播放次数.

Open 指出动画是否已经载入内存.

FileName 指定包含动画的文件路径.

CommonAVI 决定是否播放Shell32.dll中的公用动画.

取值                                   作用.

aviNone                      采用自定义动画

aviCopyFile                显示复制文件的动画.

aviFindFolder             显示系统查找的目录动画.

aviRecycleFile            将文件放入回收站的动画.

aviFindFile                  显示系统中查找文件的动画.

aviEmptyRecycle         清空回收站的动画.

aviFindComputer        显示查找计算机的动画.

aviDeleteFile               删除文件的动画.

aviCopyFiles               显示复制多个文件的动画.

***************************************************************

Active         决定TGAnimate组件是否播放动画.

StartFrame 指定当组件激活时的起始帧.

StopFrame 指定当组件激活时的结束帧.

FrameCount 获取当前AVI的总帧数.

play 用于显示指定帧序列

stop 停止播放.

***********************************************************

procedure TForm1.btn1Click(Sender: TObject);
begin
ani1.Visible := True;
ani1.FileName := 'D:/我的文档/桌面/code30/data.avi';
ani1.Center := True;
ani1.Repetitions := 1;
if ani1.Open then
begin
   ani1.Active := True;
   end
else
begin
   ShowMessage('无法找到!');
   end;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
ani1.Visible := True;
ani1.CommonAVI := aviCopyFile;
ani1.Active := True;
CopyFile(PChar('D:/我的文档/桌面/Tcode/1.exe'),PChar('D:/我的文档/桌面/Tcode/heihei.exe'),False);
Sleep(3000);
ani1.Active := False;
ani1.Visible := False;
stat1.Panels[0].Text := '文件复制成功!';

end;

procedure TForm1.btn3Click(Sender: TObject);
var
toalCount : Integer;
begin
ani1.CommonAVI := aviFindFolder;
ani1.Visible := True;
if ani1.Open then
begin
   toalCount := ani1.FrameCount ;
   ani1.Play(0,toalCount,1);
    end;

end;

end.