• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

在delphi中使用flash控件_Delphi

Delphi 搞代码 3年前 (2018-08-09) 159次浏览 已收录 0个评论

—- FLASH是Macromedia公司出品的,用在互联网上动态的、可互动的shockwave。它的优点是体积小,可边下载边播放,这样就避免了用户长时间的等待。  

—-    FLASH可以用其生成动画,还可在网页中加入声音。这样你就能生成多媒体的图形和界面,而使文件的体积却很小。  

—- FLASH虽然不可以象一门语言一样进行编程,但用其内置的语句并结合javaSCRIPE,您也可作出互动性很强的主页来。  

—-   FLASH另外一个特点就是必须安装插件PLUG-IN,才能被浏览器所接受!当然这也避免了浏览器之间的差异,使之一视同仁!  

—- 但是你知道吗?在Delphi中可以直接打开flash动画,并控制它播放和停止。你还可以得到它的总帧数,知道怎么实现的吗?请跟我来。  

http://www.gaodaima.com/?p=65919在delphi中使用flash控件_Delphi

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

欢迎大家阅读《在delphi中使用flash控件_Delphi,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址