加入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;