在delphi中使用flash控件

原创 2002年01月04日 10:39:00
FLASH是Macromedia公司出品的,用在互联网上动态的、可互动的shockwave。它的
优点是体积小,可边下载边播放,这样就避免了用户长时间的等待。
    FLASH可以用其生成动画,还可在网页中加入声音。这样你就能生成多媒体的图形和界面,而使文件的体积却很小。
    FLASH虽然不可以象一门语言一样进行编程,但用其内置的语句并结合
JAVASCRIPE,您也可作出互动性很强的主页来。
    FLASH另外一个特点就是必须安装插件PLUG-IN,才能被浏览器所接受!当然这也
避免了浏览器之间的差异,使之一视同仁!
     但是你知道吗?在delphi中可以直接打开flash动画,并控制它播放和停止。你还
可以得到它的总帧数,知道怎么实现的吗?请跟我来。
    在delphi中的Component|Import ActiveX Contrals...中选中 "Shockwave
Flash(Version 1.0)",并单击Install,会出现一个install窗口。
     如果要把它添加到一个已经存在的包中,在"into existing package"对话框中的
"File name:"窗口中选择你想安装的路径,并单击"OK";会弹出一个确认的对话框,它
问你"Package dclusr50.bpl will be rebuilt. Continue?",单击"Yes";在弹出的窗
口中单击击"install",该插件就安装完毕。
    如果要把它添加到一个新建的包中,在"into new package"对话框中的 "File
name:"窗口中选择你想安装的路径,并新建一个包,假如命名为test,并单击"OK";它
问你"Package test.bpl will be built. Continue?",单击"Yes"。 在弹出的窗口中单
击击"install",该插件就安装完毕。
     这时,你会在控件条的ActiveX下发现一个新的控件,名字为ShokewaveFlash, 单
击它把它放在form中,在该form中放一个OpenDialog控件和一个panel,在该panel上放
四个button,他们的caption属性分别命名为"Openfile","Play","Stop","Close".设置
panel1,ShockwaveFlash的Align 属性分别为Alleft 和AlClient; 分别在这四个
Button的OnClick事件中写下如下代码:

    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,你即可实现该功能。
    怎么样,试试吧,效果还不错吧。

VS2010中添加Flash控件

 一、准备工作 第一步:下载并安装Adobe Flash Player。 从官方网站(http://get.adobe.com/cn/flashplayer/)上下载最新的Flash Pla...
  • u014023993
  • u014023993
  • 2014年06月01日 20:18
  • 814

delphi网络编程udp控件

DELPHI中有两个UDP控件:TIdUDPServer和TIdUDPClient控件,可用于传输UDP数据;用法都很简单,主要是一些细微的特性,弄清楚了对正确使用这两种控件有很大的好处;下面分别介绍...
  • Xjack2012
  • Xjack2012
  • 2013年11月20日 15:40
  • 1601

Delphi 开发数据库控件的方法

Delphi作为一种目前十分流行的数据库开发语言,在数据库开发领域有着十分重要的地位,它不仅提供了可视化的开发环境,使得开发变得相对容易;而且还是一种面向对象的语言, 使得程序员能够充分利用面向对象...
  • lee576
  • lee576
  • 2008年04月15日 16:00
  • 1188

[Delphi] 标准控件(Memo组件)

Edit和MaskEdit组件都只能编辑单行文本,Delphi的Memo组件提供了多行文本的编辑功能。下面解释Memo组件常用的属性。属性说明 Lines这是Memo组件最常用,也是最有用的属性,它用...
  • zhao_jian_feng
  • zhao_jian_feng
  • 2011年06月27日 17:00
  • 6818

Dcef3与Flash有关的两个问题以及解决方式

1、dcef3需要对应的pepflashplayer.dll的版本,建议用14.0的就可以,如果大版本是16.0的话,那么就会提示can't load plugin ,其他版本没测试 2、虽然正常加...
  • QustDong
  • QustDong
  • 2015年03月25日 16:53
  • 2173

delphi中使用flash控件的方法

flash是macromedia公司出品的,用在互联网上动态的、可互动的shockwave。它的优点是体积小,可边下载边播放,这样就避免了用户长时间的等待。    flash可以用其生成动画,还可在网...
  • pmj888666
  • pmj888666
  • 2009年12月26日 17:41
  • 318

delphi中使用透明控件的几种方法

有时需要使用透明控件用于捕获鼠标消息1.调用Windows2000,xp新的API函数实现这一功能的过程。使用SetLayeredWindowAttributes 2.直接设置控件的alphablen...
  • ilvu999
  • ilvu999
  • 2009年09月11日 11:51
  • 1243

delphi中fastreport的基本使用

本人也是刚接触fastreport这款控件,其实用起来还挺简单了 制作一般的报表一定够用了,需要连接数据库的组件都拖出来,连接好数据库,然后只需要Tfrxreport和TfrxDBdataset,把...
  • singular2611
  • singular2611
  • 2015年03月18日 18:07
  • 1907

Delphi中的DBGrid控件

在Delphi中,DBGrid控件是一个开发数据库软件不能不使用的控件,其功能非常强大,可以配合SQL语句实现几乎所有数据报表的显示,操作也非常简单,属性、过程、事件等都非常直观,但是使用中,有时侯还...
  • zisongjia
  • zisongjia
  • 2017年02月23日 16:24
  • 328

delphi控件中的 Tag 属性巧用

delphi控件中的 Tag 属性巧用 ━━━━━━━━━━━━━━━━━━━━━━━━━━    几乎所有的Delphi组件都有Tag属性,Tag是LongINT类型,其实,通过编程技巧,还...
  • danfeng906
  • danfeng906
  • 2015年01月28日 19:16
  • 1142
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在delphi中使用flash控件
举报原因:
原因补充:

(最多只允许输入30个字)