为什么我给ShockwaveFlash的MOVIE指定文件后不能放FLASH啊,谁可以告诉我啊????写详细点,哦棵???
解决方案 »
- 请教关于ListView排列问题
- 高薪诚约Delphi高级开发工程师加盟!【北京】
- ghostScript 接口函数问题(clasj关注)
- spcomm接收数据代码应该怎么写?
- 如何向excel表格里面写unicode?急
- 我要从DateTimePicker控件上取出时间,然后再加上若干个小时(如1.5小时), 得到一个新的时间在另一个DateTimePicker控件上显示,怎么办
- 初看<<Inside VCL>>的两个疑惑
- 求一判断字段是各类型的函数!在线等
- 有对程序有着很大热情 and 觉得程序是自己的追求的 and .. and ..人吗?请看...
- 如何能让从单独打开的窗口form1打开的对话框窗口出现在form1的前面?
- 那里有Delphi 7(Delphi 6)组件应用实例书籍免费下载?急急........解决了给分!thank you
- 怎样实现当鼠标经过按钮时,按钮的颜色发生变化
ShockwaveFlash1.Play;
ShockwaveFlash1.Close;
ShockwaveFlash1.Movie:='D:\Downloads\sfasg22.swf';
ShockwaveFlash1.Play;
特别是在播放的过程中又打开另一个文件来播放.
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;得到打开的flash图像的总帧数:
label1.caption:=showckwaveflash1.totalframes;button5:控制flash从哪一帧开始播放:
procedure tform1.button5click(sender:tobject);
begin
shockwaveflash1.stopplay;
shockwaveflash1.gotoframe(spinedit1.value);
shockwaveflash1.play;
end;
控件版本比swf文件版本低;
swf文件不完整;