网页里播放avi,wmv,rm,mov等视频，请问如何用脚本控制播放，暂停，快进，快退，以及音量等，最好能有相关的资料。

僅作為參考<html> <body style="font:9pt">
<object id="mplayer" classid="clsid:22d6f312-b0f6-11d0-94ab-0080c74c7e95" width=300 height=300 align="left">
<param name="filename" value="Once upon a day.asf">
<param name="playcount" value="0">
</object>
<input type=button value="显示媒体信息" onclick="mplayer.showdisplay='true'"><br>
<input type=button value="显示媒体信息" onclick="mplayer.showdisplay='false'"><br>
<p>
<input type=button value="显示/隐藏控制面板" onclick="mplayer.showcontrols=(mplayer.showcontrols==true?false:true)"><br>
<input type=button value="显示/隐藏 跟踪条" onclick="mplayer.showtracker=(mplayer.showtracker==true?false:true)"><br>
</p><p>
<input type=button value="播放" onclick="mplayer.play()">
<input type=button value="暂停" onclick="mplayer.pause()">
<input type=button value="停止" onclick="mplayer.stop()">
</p><p>
请输入要播放的次数(0-1000)：<br>
<input type=text name=count size=3 maxlength="3">
<input type=button value="开始播放" onclick="mplayer.playcount=count.value;mplayer.play()"><br>
</body> </html>

解决方案 »

  1.   

    你给出的这个是播放asf格式的，其它格式的呢？
      

  2.   


    REAL控件的控制方法(C++)
    {=====================打开=========================}
    procedure TRealOneFrm.OpenBtnClick(Sender: TObject);
    begin
      if OpenRMDlg.Execute then
      begin
        RealAudio1.SetSource(RealOneFrm.OpenRMDlg.FileName);
        RealAudio1.DoPlay;
        EndPosition := RealAudio1.GetLength;
      end;
    end;
    {=====================播放=========================}
    procedure TRealOneFrm.PlayBtnClick(Sender: TObject);
    begin
      {设置图像窗口显示}
      RealAudio1.SetControls('ImageWindow');
      {显示图像窗口}
      RealAudio1.Visible := True;
      RealAudio1.DoPlay;
      RealAudio1.SetEnableContextMenu(False);
    end;
    {=====================暂停=========================}
    procedure TRealOneFrm.PauseBtnClick(Sender: TObject);
    begin
      RealAudio1.DoPause;
      PauseFlag := True;
    end;
    {=====================停止=========================}
    procedure TRealOneFrm.StopBtnClick(Sender: TObject);
    begin
      RealAudio1.DoStop;
      DontSeek := True;
      TrackBar1.Position:=0;
      DontSeek := False;
      TrackBar1.Enabled := False;
    end; 
    {=====================全屏=========================}
    procedure TRealOneFrm.FullBtnClick(Sender: TObject);
    begin
      RealOneFrm.RealAudio1.SetFullScreen;
    end; 
    {=====================静音=========================}
    procedure TRealOneFrm.MuteCheckClick(Sender: TObject);
    begin
      if MuteCheck.checked=true then
        RealOneFrm.RealAudio1.SetMute(True)
      else
        RealOneFrm.RealAudio1.SetMute(False);
    end;
    {=====================拖动=========================}
    procedure TRealOneFrm.TrackBar1Change(Sender: TObject);
    begin
    if not(DontSeek) then
      begin
      if not(PauseFlag) then
        RealAudio1.Dopause;
        RealAudio1.SetPosition(TrackBar1.Position);
      if not(PauseFlag) then
        RealAudio1.DoPlay;
      end;
    end;
      

  3.   

    还有个问题，我还想动态的改变
    <param name="filename" value="Once upon a day.asf">
    的值，该怎么做？
    先谢谢两位，等我解决了问题就结帖
      

  4.   

    给个地址,自己去看.
    http://home.goofar.com/xiangtanboy/Index.Asp?Id=12