flash自带一个ocx空间!用它可以!

解决方案 »

  1.   

    需要安装一个flash的控件,如果你能在机器上顺利的看flash的东西就说明这个ocx已经存在了。
    在component/import activex control中选择shockwave flash就可以了
      

  2.   

    with ShockwaveFlash1 do    //shockwave控件名
            begin
                Movie:=ExtractFilePath('c:\Movie3.swf') //movie3.swf是要播放的动画名字
                Loop:=True;
                ScaleMode:=0;
            BackgroundColor:=RGB(11,11,11);
                Play;
            end; 
      

  3.   

    to xueyin:
    我按照你的代码运行时,为何是一片黑,没有任何图象.
      

  4.   

    你双击一下shockwaveflash1, 在nurl里头输入要播放的路径和文件名,然后把Play,loop,
    embed movie前选中, 文件路径一定要对 
    你可以把这段代码放入一个buttom的click事件里
      

  5.   

    Movie:=ExtractFilePath('c:\Movie3.swf')  这里头一定要输对