如题,想在Delphi中实现播放flash作为程序启动画面,现在Tshockwaveflash控件已经装好了,可是不知道怎么用,试过在控件属性的“movies”中写入了“*.swf”文件的路径,但是得到的是张静态的图而不是动态的,往高手赐教
解决方案 »
- 這樣的功能存儲過程怎樣寫???高手指點!!!!
- 请教大家给我一个思路!
- 如何拖拽一个TreeView的节点Text到Memo中?
- image字段查询问题?
- 如何能让 $define 跨单元有效
- InstallShield Professional Standard Edition 6.30 英文版的下载(高分:200)
- 各路朋友 谈谈对《delphi4 编程技术内幕 》这本书的看法 谢谢!
- 不太难,但是我不会!!!
- 几个小问题
- 在QuickRep里打印较多的字符时(TDBText),如何让它自动换行(特别是Memo类型的字段值)
- 播放flash完毕时的触发事件是什么
- Access表mdb数据库另存怎么实现
begin
if OpenDialog1.Execute then
ShockwaveFlash1.Movie:=
OpenDialog1.FileName;
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
ShockwaveFlash1.FreeOnRelease;
close;
end;
TotalFrames:总帧数,只有当ReadyState = 4时才能访问该属性;
FrameNum:当前播放的帧;
Playing:播放或暂停一个flash;
Quality:指定当前渲染的质量,包括0=Low, 1=High、2=AutoLow、3=AutoHigh;
ScaleMode:缩放模式,0=ShowAll、1= NoBorder、2 = ExactFit;
AlignMode:对齐模式,Left=+1、Right=+2、Top=+4、Bottom=+8;
BackgroundColor:背景色,-1为默认颜色;
Loop:是否循环;
Movie:指定播放的flash文件路径,可以为一个URL。 TShockwaveFlash主要方法如下: Play():开始播放动画;
Stop();停止播放动画;
Back();播放前一帧动画;
Forward():播放后一帧动画;
Rewind():播放第一帧动画;
SetZoomRect(int left, int top, int right, int bottom):设置缩放的区域;
Zoom(int percent):按百分比缩放;
Pan(int x, int y, int mode):缩放播放面板,其中模式0为按像数、1为按窗口百分比。 TShockwaveFlash主要事件如下: OnProgress(int percent):读取一个flash时触发;
OnReadyStateChange(int state):状态改变时触发。states的值可以为0=Loading、1=Uninitialized、2=Loaded、3=Interactive和4=Complete。
举例:
: procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
ShockwaveFlash1.Movie:=
OpenDialog1.FileName;
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
ShockwaveFlash1.FreeOnRelease;
close;
end;