trackbar1.Position:=shockwaveflash1.FrameNum;
请问用这个 播放flash的时候声音停顿啊。,断断续续的
请问怎么swf-exe,exe-swf啊 最好又源代码,虽然是老问题,但我没有找到好的,有没有象
Macromedia Flash Player 7转换成exe那样的呢?有菜单~~
请问用这个 播放flash的时候声音停顿啊。,断断续续的
请问怎么swf-exe,exe-swf啊 最好又源代码,虽然是老问题,但我没有找到好的,有没有象
Macromedia Flash Player 7转换成exe那样的呢?有菜单~~
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,你即可实现该功能。