Playlist (ListBox) til Mplayer

hvad er mplayer ?

Jens B

Han mener vel TMediaPlayer !?

Nedenstående er noget jeg lavede for næsten 2 år siden, og det kan noget af det som du ønsker !

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  MPlayer, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    MediaPlayer1: TMediaPlayer;
    procedure ListBox1DblClick(Sender: TObject);
    procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
      var DoDefault: Boolean);
  private
    { Private declarations }
    i, imax: Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  imax := Listbox1.Items.Count -1;
  i := Listbox1.ItemIndex;
  With MediaPlayer1 do begin
    Filename := Listbox1.Items.Strings[i];
    DeviceType := dtAutoSelect;
    Open;
    Play;
  end;

end;

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
  case button of
    btNext:
      begin
        With MediaPlayer1 do begin
          if i+1 <= imax then begin
            Stop;
            Close;
            Filename := Listbox1.Items.Strings[i+1];
            i := i + 1;
            DeviceType := dtAutoSelect;
            Open;
            Play;
          end;
        end;
      end;

    btPrev:
      begin
        With MediaPlayer1 do begin
          if i >= 0 then begin
            Stop;
            Close;
            Filename := Listbox1.Items.Strings[i-1];
            DeviceType := dtAutoSelect;
            i := i - 1;
            Open;
            Play;
          end;
        end;
      end;
  end;
end;

end.

ja det er eksakt det jeg mener.... men jeg kan ikke finde nogen steder hvor man kan sætte det bibliotek som skal være i listboxen.....?
Indsætter den forresten filens navn i listboxen?

m.v.h. ProDoc

Det er heller ikke lavet i det kode jeg har skrevet ovenfor. Det var bare lige for at hjælpe dig lidt videre ;)

Kigger lige på det andet hvis jeg får tid til det :)

Snowball

Okay mange tak for det, hvis det er et spørgsmål om points kan vi godt finde ud af noget....

Så tager jeg altså de points igen....

typisk

...?