procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
try
try
ShockwaveFlash1.Movie:=OpenDialog1.FileName;
except
begin
showmessage('123');
exit;
end;
end;
Timer1.Enabled:=true;
Button2.Enabled:=true;
Button3.Enabled:=true;
except
begin
Timer1.Enabled:=false;
ShockwaveFlash1.Movie:='';
showmessage('please open new falsh file!');
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShockwaveFlash1.Play;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ShockwaveFlash1.StopPlay;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
try
TrackBar1.Max :=ShockwaveFlash1.TotalFrames;
TrackBar1.Min:=0;
TrackBar1.Position :=ShockwaveFlash1.FrameNum;
Edit1.Text:=inttostr(ShockwaveFlash1.FrameNum)
//if (ProgressBar1.Position=ShockwaveFlash1.TotalFrames) then
// Button3.Enabled:=false;
except
begin
Timer1.Enabled:=false;
ShockwaveFlash1.Movie:='';
showmessage('456');
exit;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
TrackBar1.Position:=0;
Button2.Enabled:=false;
Button3.Enabled:=false;
加入activeX控件的 shockwarveFlash(version 1.0)
button1 打开flash文件:
procedure tform1.button1click(sender:tobject);
begin
if opendialog1.execute then
showckwaveflash1.movie:=opendialog1.filename;
end;
button2:播放:
procedure tform1.button2click(sender:tobject);
begin
shockwaveflash1.play;
end;
button3:停止
procedure tform1.button3click(sender:tobject);
begin
shockwaveflash1.stopplay;
end;
button4:播放帧
procedure tform1.button4click(sender:tobject);
begin
showckwaveflash1.freeonrelease;
close;
end;