flash播放器

谁有FLASH播放器的源码,给我一个,最好功能好一些,谢谢大家了,我有急用!~~~~~

解决方案 »

  1.   

    FLASH播放器的源码？？flash控件就那么几个功能？？自己写不行吗？？
      

  2.   

    delphi---component--import Activex----shockwave flash ----install
    即可得到播放控件。
      

  3.   

    procedure TForm1.TrackBar1Change(Sender: TObject);
    begin
          if abs(TrackBar1.Position-ShockwaveFlash1.CurrentFrame)>10 then begin
            ShockwaveFlash1.GotoFrame(TrackBar1.Position);
            ShockwaveFlash1.Play;
          end;
    end;
      

  4.   

    但是怎么样才能让trackbar滑动的时候,像豪杰解霸那样平缓的动,而不是一格一格的动?