各位老大 如何使用dlephiX来实现播放器呢

Question

早就听说dlephiX很好，偶一直想试试，各位老大能否帮帮忙 怎么样用delphiX来实现多媒体播放器呢

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MPlayer, StdCtrls, ExtCtrls;type
  TForm1 = class(TForm)
    Panel1: TPanel;
    OpenButton: TButton;
    PlayButton: TButton;
    PauseButton: TButton;
    RewindButton: TButton;
    CloseButton: TButton;
    MediaPlayer1: TMediaPlayer;
    OpenDialog1: TOpenDialog;
    procedure OpenButtonClick(Sender: TObject);
    procedure PlayButtonClick(Sender: TObject);
    procedure PauseButtonClick(Sender: TObject);
    procedure RewindButtonClick(Sender: TObject);
    procedure CloseButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.OpenButtonClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    MediaPlayer1.Close;
    MediaPlayer1.FileName := OpenDialog1.FileName;
    MediaPlayer1.Open;
    if ExtractFileExt(OpenDialog1.FileName) = '.avi' then
    begin
      MediaPlayer1.Display := Panel1;
      MediaPlayer1.DisplayRect := Rect(0,0,Panel1.Width,Panel1.Height);
    end;
    PlayButton.Enabled := true;
    PauseButton.Enabled := true;
    RewindButton.Enabled := true;
  end;
end;procedure TForm1.PlayButtonClick(Sender: TObject);
begin
  if MediaPlayer1.Mode = mpPaused then
  begin
    MediaPlayer1.Resume;
  end
  else
  begin
    MediaPlayer1.Play;
  end;
  RewindButton.Enabled := true;
  PauseButton.Enabled := true;
end;procedure TForm1.PauseButtonClick(Sender: TObject);
begin
  MediaPlayer1.Pause;
  PauseButton.Enabled := false;
  RewindButton.Enabled := false;
end;procedure TForm1.RewindButtonClick(Sender: TObject);
begin
  MediaPlayer1.Rewind;
  MediaPlayer1.Play;
end;procedure TForm1.CloseButtonClick(Sender: TObject);
begin
  MediaPlayer1.Close;
  Close;
end;end.

Answer 2

偶可能没说清楚 偶是问用DirectX 来实现多媒体播放

Answer 3

偶想问的是用小日本开发的dlephiX来实现多媒体播放啊