在delphi中使用flash控件_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

在delphi中使用flash控件

作者：闵涛文章来源：闵涛的学习笔记点击数：856 更新时间：2009/4/23 18:40:52

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

[聊天工具]Gtalkr——Flash版的Google Talk__天极Yesky  [聊天工具]给POPO好友发送可爱的flash表情
[聊天工具]POPO新版推出flash大表情功能  [聊天工具]TOM-Skype功能演示Flash
[常用软件]最新Firefox引起Java，Flash故障  [常用软件]在Maxthon中使用Google网站加速器
[常用软件]“赤手空拳”也能下载Flash  [常用软件]别出心裁：用电视看Flash！
[常用软件]Maxthon：巧妙下载Flash动画  [常用软件]Magic Swf2Gif：Flash动画变身GIF

教程录入：mintao 责任编辑：mintao

上一篇教程： Delphi编译错误中文手册

下一篇教程：如何控制其他程序窗体上的窗口控件：上

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……