flash播放器,怎样做?

stone565 2003-10-15 03:56:02
由于单位的网速较慢难下载,今天刚好有一同事要一个flash播放器,
由于Delphi编程有一段时间没使用了,无从下手,谢谢各位多提建议,
小弟感激不尽!!!!
...全文
42 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
2312 2003-10-16
  • 打赏
  • 举报
回复
//加入activeX控件的 shockwarveFlash(version 1.0)

unit FlashUnit;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, ShockwaveFlashObjects_TLB, StdCtrls, ExtCtrls,
ComCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Panel2: TPanel;
OpenDialog1: TOpenDialog;
Edit1: TEdit;
Timer1: TTimer;
TrackBar1: TTrackBar;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
try
try
ShockwaveFlash1.Movie:=OpenDialog1.FileName;
except
begin
showmessage('123');
exit;
end;
end;
Timer1.Enabled:=true;
Button2.Enabled:=true;
Button3.Enabled:=true;
except
begin
Timer1.Enabled:=false;
ShockwaveFlash1.Movie:='';
showmessage('please open new falsh file!');
end;
end;
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
close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
try
TrackBar1.Max :=ShockwaveFlash1.TotalFrames;
TrackBar1.Min:=0;
TrackBar1.Position :=ShockwaveFlash1.FrameNum;
Edit1.Text:=inttostr(ShockwaveFlash1.FrameNum)
//if (ProgressBar1.Position=ShockwaveFlash1.TotalFrames) then
// Button3.Enabled:=false;
except
begin
Timer1.Enabled:=false;
ShockwaveFlash1.Movie:='';
showmessage('456');
exit;

end;
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
TrackBar1.Position:=0;
Button2.Enabled:=false;
Button3.Enabled:=false;

end;

end.


helodd 2003-10-16
  • 打赏
  • 举报
回复
加入activeX控件的 shockwarveFlash(version 1.0) 就可以直接使用了.
IORILI 2003-10-16
  • 打赏
  • 举报
回复
加入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;

得到打开的flash图像的总帧数:
label1.caption:=showckwaveflash1.totalframes;

button5:控制flash从哪一帧开始播放:
procedure tform1.button5click(sender:tobject);
begin
shockwaveflash1.stopplay;
shockwaveflash1.gotoframe(spinedit1.value);
shockwaveflash1.play;
end;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧