DSPack 真的很好用,功能也強,大部份的範例也都不錯. 不過範例中找不到重重複撥放的功能. Help 也沒看到. 請教要如何才能重複撥放呢? 謝謝!!

在FilterGraph 的 OnGraphComplete 中寫你的程式碼: Ex:pause 回到要重覆的起點, 然後再 play

你好: 能不能請說清楚一點呢? Pause 應只是暫停而已, 怎麼會是回到起點呢? 在 OnGraphComplete 事件中,執行 Play 我知道, 如何判斷撥放結束我也知道, 當撥放結束時, 執行 Play 因 Position 尚未回到起點, 所以不會撥放. 當然我也知道透過 TDSTrackBar 改變 Position 就可回到起點. 但我不想額外再加 TDSTrackBar 元件. 所以才想此請教諸位前輩. 唯一不知道的且想要請教的是,如何快速回到起點, 如 MideaPlayer 的 Rewind 功能. DSPack 有此功能嗎? 謝謝!!

請查MSDN 上的 IMediaSeeking interface

先前有想過應該是用 IMediaSeeking, 但網路上大都為 C , 且也找不到看得懂的範例. 可否請 scm001 , 用 Delphi 舉個範例呢? 主要的 4 個參數, 不是很清楚它的意義及用法. 謝謝!!

先弄个procedure 

function TWMPFORM.playtarget(targetname: string):boolean ;
begin
   result := false;
   if not FilterGraph1.Active then FilterGraph1.Active:=true;
   FilterGraph1.ClearGraph;
   filtergraph1.RenderFile(targetname);
   FilterGraph1.Play;
end;

在filtergraph元件里面找到一个OnGraphComplete的事件, 那个就是在播放完毕后发生的事件, 在里面我的习惯是做个Timer去延迟两秒后播放下一个档案...

procedure TWMPFORM.FilterGraph1GraphComplete(sender: TObject;
  Result: HRESULT; Renderer: IBaseFilter);
begin
   timer1.Enabled:=true;
end;

Timer就负责延迟三秒后播放下一首,平常就enabled:=false; timer的interval我设3000

procedure TWMPFORM.Timer1Timer(Sender: TObject);
begin
   TIMER1.ENABLED := FALSE;  // 关掉~~~~
   IF CURRPLAY<(LISTVIEW1.Items.COUNT-1) THEN 
      INC(CURRPLAY)  
   ELSE
      CURRPLAY:=0;
   playtarget(ListView1.items[currplay].SubItems[0]);
end;

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, DirectShow9, StdCtrls, ComCtrls, DSPack;

type
TForm1 = class(TForm)
FilterGraph1: TFilterGraph;
Button1: TButton;
procedure FilterGraph1Activate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FilterGraph1GraphComplete(sender: TObject; Result: HRESULT;
Renderer: IBaseFilter);
private
{ Private declarations }
MediaSeeking1: IMediaSeeking;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
FilterGraph1.Active := True;
FilterGraph1.RenderFile('C:\Test.Wav');
FilterGraph1.Play;
end;

procedure TForm1.FilterGraph1Activate(Sender: TObject);
begin
FilterGraph1.QueryInterface(IID_IMediaSeeking,MediaSeeking1);
end;

procedure TForm1.FilterGraph1GraphComplete(sender: TObject;
Result: HRESULT; Renderer: IBaseFilter);
var
StopPosition, CurrentPosition: int64;
begin
FilterGraph1.Stop;
If AsSigned(MediaSeeking1) Then Begin
MediaSeeking1.GetStopPosition(StopPosition);
CurrentPosition := 0;
MediaSeeking1.SetPositions(CurrentPosition, AM_SEEKING_AbsolutePositioning, StopPosition , AM_SEEKING_NoPositioning);
End;
FilterGraph1.Play;
end;

end.
發表人 - JasonSu 於 2004/04/02 14:17:09