Playlisten erstellen

[flomei]

Ich hab zwei Fragen.
Ich möchte gerne einen MP3-Player ähnlich Winamp schreiben.
Ich benutze dazu eine TMediaPlayer Komponente, mehrere Buttons einen TListView (soll die Playlist werden) und einen TShellTreeView (zum Dateien auswählen).

Man soll nun MP3-Dateien und nur diese durch einen Klick auf einen Button in die Playlist hinzufügen können.

1.Frage: Wie kriege ich hin, dass man nur MP3´s hinzufügen kann?

2.Frage: Wie kann ich die hinzufügen???

Schönen Dank! (Schon mal im Voraus )

MfG Florian

[Sharky]

Hai,

versuche es mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 playeintrag : TListItem;
begin
 OpenDialog1.Filter := 'Alle MP3 (*.mp3)|*.mp3;MP3';
 If (OpenDialog1.Execute) then
  begin
   playeintrag := ListView1.Items.Add;
   playeintrag.Caption := OpenDialog1.FileName;
  end;
end;

[flomei]

Juhu!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!:bouncing4 :
Es funktioniert! Vielen Dank für die Hilfe!

MfG Florian

[flomei]

Tach!
Ich hab noch ein Problem. Wie kann ich in meiner Liste einstellen, dass der Dateiname über die ganze Breite angezeigt wird? Noch besser wäre wenn ich wüsste wie man die ID3 Tags auslesen kann.

Thx im Voraus!

MfG Florian

[Sharky]

Zitat von flomei:

...Wie kann ich in meiner Liste einstellen, dass der Dateiname über die ganze Breite angezeigt wird?

Stelle mal den Typ deines ListViews auf vsReport. Erstelle im OI unter [b]Columns[b/] eine Spalte und setzte dort Autosize auf TRUE.

Zitat von flomei:

...Noch besser wäre wenn ich wüsste wie man die ID3 Tags auslesen kann.

Schaue mal bei Torry, es gibt einige Komponenten zum auslesen der ID3-Tags.