C
chinavane
Unregistered / Unconfirmed
GUEST, unregistred user!
为什么我后面的两个功能:总帧数、那一帧开始播放实现不了呢?
编译的时候总提示我变量totalframes、SpinEdit1.Value有问题。
我刚接触delphi,以前搞Flash,想用delphi先做个Flash播放器玩玩先,不知高手可否指明一下问题之所在?
望回复,谢谢!
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;
---- 你可以得到打开的flash图像的总帧数,在panel1上添加一个label,在form1的OnClick事件中写下如下代码
procedure TForm1.FormCreate(Sender: TObject);
begin
label1.caption:=shockwaveflash.totalframes;
end;
你还可以控制该打开的flash图像从那一帧开始播放,
在panel1上添加一个button和一个Edit控件,
在该button的OnClick事件中添加如下代码。
if ShockwaveFlash1.playing then
ShockwaveFlash1.GotoFrame(SpinEdit1.Value);
ShockwaveFlash1.Play;
---- 在edit中填上你想跳到的帧,并单击该button,你即可实现该功能。
if ShockwaveFlash1.playing then
ShockwaveFlash1.GotoFrame(SpinEdit1.Value);
ShockwaveFlash1.Play;
我将gotoFrame改成了GotoFrame(StrtoInt(edit1.text))就好了,但是前面一个totalframes的问题帮忙看看怎么回事呀?谢谢呀!
编译的时候总提示我变量totalframes、SpinEdit1.Value有问题。
我刚接触delphi,以前搞Flash,想用delphi先做个Flash播放器玩玩先,不知高手可否指明一下问题之所在?
望回复,谢谢!
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;
---- 你可以得到打开的flash图像的总帧数,在panel1上添加一个label,在form1的OnClick事件中写下如下代码
procedure TForm1.FormCreate(Sender: TObject);
begin
label1.caption:=shockwaveflash.totalframes;
end;
你还可以控制该打开的flash图像从那一帧开始播放,
在panel1上添加一个button和一个Edit控件,
在该button的OnClick事件中添加如下代码。
if ShockwaveFlash1.playing then
ShockwaveFlash1.GotoFrame(SpinEdit1.Value);
ShockwaveFlash1.Play;
---- 在edit中填上你想跳到的帧,并单击该button,你即可实现该功能。
if ShockwaveFlash1.playing then
ShockwaveFlash1.GotoFrame(SpinEdit1.Value);
ShockwaveFlash1.Play;
我将gotoFrame改成了GotoFrame(StrtoInt(edit1.text))就好了,但是前面一个totalframes的问题帮忙看看怎么回事呀?谢谢呀!