Inhalt von AudioCD in ListBox laden und abspielen

[DelphiUser7]

Hallo!
weiss hier jemand zufällig, wie ich veranlassen kann, dass beim öffnen einer Datei von einer Audio-CD der Inhalt der AudioCD in einer ListBox, besser wäre FileListBox, angezeigt wird??

Gruss
DelphiUser7

[Sharky]

Zitat von DelphiUser7:

...der Inhalt der AudioCD in einer ListBox, besser wäre FileListBox, angezeigt wird??

Was genau meinst Du denn mit Inhalt?

[DelphiUser7]

Mit Inhalt sind die Tracks der AudioCD gemeint, in der Regel also: Track01.cda bis Track20.cda oder so.

[Stanlay Hanks]

Hallo! Du musst der FileListBox einfach einen Ordner übergeben und dessen Inhalt wird dann in derselbigen angezeigt. Du brauchst den Laufwerksbuchstaben von dem Laufwerk, dessen Inhalt angezeigt werden soll. Das sollte der 1. Buchstabe aus ParamStr(1) sein. (Wenn du einen Dateityp auf dein Programm registrierst, wird beim öffnen des Programms der Name der Datei, die das Programm geöffnet hat, in ParamStr(1) gespeichert. Also müsstest du als Ordner für die FileListbox nur den ersten Buchstaben aus ParamStr(1) + doppelpunkt angeben. dann sollte der Inhalt dargestellt werden.

Mit dem Abspielen, weiß ich nicht so recht. Du könntest evt. die Mediaplayer komponenten nehmen...

Man liest sich, Stanlay

[DelphiUser7]

Hallo!
Ich nehme an mit 'Datentyp' ist in diesem Fall .cda gemeint;
Laufwerksbuchstabe von Laufwerk, das angezeigt werden soll:
FileListBox1.Directory := 'e:\'; {bei mir im OpenDialog untergebracht}
Was ist ParamStr(1)??;

Gruss
DelphiUser7

[Sharky]

Wenn ich das richtig verstehe möchtest Du mit dem Opendialog eine Datei auswählen und danach in einer FilelistBox alle .CDA des Verzeichnisses in einer anzeigen?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if (OpenDialog1.Execute) then
  begin
   FileListBox1.Mask := '*.cda';
   FileListBox1.Directory := ExtractFilePath (OpenDialog1.FileName);
  end;
end;

[DelphiUser7]

Hallo Sharky!
Ja, das funktioniert, aber egal, auf welchen Track ich klicke (Track01 bis Track20), der Player spielt immer nur das erste Lied ab, sobald ich auf meinen (selbsterstellten) Play-Button drücke.
Ich habe allerdings folgende Zeile benutzt, um auf die PlayList(FileListBox) zuzugreifen:
Mediaplayer1.FileName := FileListBox1.Items.Strings[FileListBox1.ItemIndex];
Nun weiß ich nicht, ob ich da nicht auch noch was anderes einfügen muss,
zumal ich diesen String zwar zum Auswählen 'normaler' Audio-Dateien (.mp3|.wav|.mid) aus einer selbsterstellten PlayList verwenden kann, aber nicht zum Abspielen einer Datei aus meiner FileListBox, die für die AudioCD-Dateien vorgesehen ist.
Also kurz und prägnant: Das Anzeigen der Dateien funktioniert, das Abspielen nicht...;

Gruss
DelphiUser7

[Sharky]

Hai,

warum nicht einfach:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
 Mediaplayer1.FileName := := FileListBox1.FileName;
end;

[DelphiUser7]

Hallo Sharky!

Weil das nichts daran ändert, dass der Player, egal welcher Track ausgewählt wurde, nach wie vor immer die erste Datei abspielt.
Er spielt die CD dann allerdings komplett ab.
Und das nicht nur, wenn ich eine andere Datei in der PlayList(FileListBox) gewählt habe, sondern auch wenn die Datei direkt geöffnet wurde.

Gruss
DelphiUser7

[Luckie]

Du mußt dem Mediaplayer wohl die Tracknummer der CD angeben oder so. Zumindest ist da der fehler zu suchen.