云联天下首页 |  登陆 |  注册 |  密码找回 |  关于我们 | 加入收藏 
首页→技术资料→图形图像→在delphi中使用flash控件 【字号：大 中 小】 【背景色 杏仁黄 秋叶褐 胭脂红 芥末绿 天蓝 雪青 灰 银河白(默认色) 】

在delphi中使用flash控件
网址来源:http://kehui.net发布时间: 2002-12-29 14:15:24



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

系统 

相关新闻
v 美国Macromedia发表“Macromedia Flash MX” 2002-12-29 17:27:30
v 推荐用 Flash做一般文字为主的页面 2002-12-29 18:11:28
v Flash播放新秀－－David Flash Player V1.4 2002-12-29 18:11:28
v 芝麻开门--谈谈Flash的反编译 2003-06-28 10:03:21
v Flash 中英文字应用环境分析 2003-08-30 22:36:15
v 使用 Flash满足IE和NS的兼容 2003-08-30 22:36:15
v 怎么给网页中的FLASH动画加超连接,加事件... 2004-01-02 21:34:12
v svg 至 flash的转化 2004-01-02 21:34:12
v 用Flash的as创建人性化雪花的效果 2004-01-29 21:42:04
v flash+asp小小研究· 2004-01-29 22:05:41
  最新新闻
智慧家居
智慧家居颠覆传统智能家居
智慧云谷让智能家居变成有智慧的
智慧云谷引领智慧家居新生活
科技改变生活 智慧云谷智慧家居系
智慧家居领航者，智慧云谷助你玩
智能家居如何赢得市场美誉度？
智慧云谷智慧家居：创业者有无限
WiFi智能家居你还在用？这样的智
互联网+助推智能家居产业
智慧云谷为您打造真正的智能家居
智能家居产业需要的不是单品，而
新家如何选择开关？智慧云谷iWis
智能传感器-世界首款“智”为你的
智慧云谷开关智能安防智能空气质
智能开关品牌，如何选择智能开关
秋季干燥，智慧家居温湿度传感器
传感器助力智慧家居 感知爱家
iWiscloud智能触摸开关缔造家居装

  最新帖子
 ※室内空气污染的危害及  [sensor]
 ※超声波风速传感器在生  [sensor]
 ※这么冷清  [gabc111]
 ※手机APP操作有问题  [ssy11407]
 ※智慧云谷智慧家居将在  [cici]
 ※上传下载  [cici]
 ※下载智慧家居  [apple2008]
 ※秋季干燥，智慧家居温  [apple2008]
 ※智慧家居紧扣热点 安全  [apple2008]
 ※办公大楼如何智慧化管  [apple2008]
 ※智慧云谷工业自控的优  [apple2008]
 ※传感器助力智慧家居 感  [apple2008]
 ※智能开关品牌，如何选  [apple2008]
 ※智慧云谷开关智能安防  [apple2008]
 ※没有专业人员，如何安  [apple2008]
 ※烟台智慧云谷董事长任  [apple2008]
 ※互联网+助推智能家居产  [apple2008]
 ※WiFi智能家居你还在用  [apple2008]
 ※智慧云谷智慧家居：创  [apple2008]
 ※智能家居如何赢得市场  [apple2008]
钯碳回收 硝酸银回收 银浆回收 银焊条回收 回收银浆 氯化钯回收 氯化钯回收 氧化钯回收 回收硝酸钯 钯水回收价格 海绵钯回收 钯炭回收价格 回收镀金板 深圳钯碳回收 镇江氯化钯回收 杭州钯浆回收 银浆回收多少钱 回收钯碳公司 硝酸银的价格 那里有回收金 氯化钯回收价格 江苏擦银布回收 硝酸银价格 德州钯粉回收 银铜回收 回收钯粉 回收铂碳催化剂 佛山钯碳回收 金盐回收价格 海绵钯回收 钯碳高价回收 钯回收价格 钯炭回收