mp3 player

[Gohac]

hallo zusammen,
ich fange gerade erst an mit delphi und habe das Tutorial auf http://www.delphi-tutorials.tk gefunden und den audio player erstellt.
ging soweit auch recht gut wollte dann aber ein paar zusätzliche fuktionen drin haben (ohne videos) aber schau da gerade nicht mehr durch.

hier erstmal der code

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
if Form2.Listbox1.Items.Count=0 then

begin
   if Opendialog1.Execute then

begin
  Form2.Listbox1.Items.Add(Opendialog1.FileName);
  Mediaplayer1.FileName:=Form2.Listbox1.Items[song];
  Mediaplayer1.open;
  MediaPlayer1.Play;
  Timer1.Enabled:=true;
  Progressbar1.Max:=Mediaplayer1.Length;
  end;
 end;
end;

das ist der play button es soll so fuktionieren das wenn kein lied in der playlist ist das dann opendialog geöffnet wird. das geht auch aber sowie ein lied in der playlist ist passiert nichts wenn man auf play klickt.

brauche eure hilfe finde im inet nichts was mir weiter helfen könnte.

danke schonmal im vorraus

[DeddyH]

Du musst dem Mediaplayer ja auch die abzuspielende Datei zuweisen. Dein Code tut das ja nur, wenn die Liste leer ist.

Zitat:

Delphi-Quellcode:

if Form2.Listbox1.Items.Count=0 then

P.S.: Willkommen in der DP :dp:

[Gohac]

vieleicht verstehe ich das falsch aber es soll kein lied vorgeschrieben werden

um zu schaun ob ein lied in der playlist ist dafür ist

Delphi-Quellcode:

if Form2.Listbox1.Items.Count=0 then

richtig?

und wenn kein lied drin ist dann

Delphi-Quellcode:

if Opendialog1.Execute then

oder?

das klapt ja auch soweit
also wenn keine lied in der listbox eingetragen ist dann soll sich opendialog öffnen wo man ein lied auswählen kann und dann abspielen das haut auch hin nur sowie ein lied in der playlist schon vorhanden ist passiert bei klick auf play nichts

[DeddyH]

Wie ist es denn so?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  (* ListBox ist leer -> Dialog aufrufen *)
  if Form2.Listbox1.Items.Count=0 then
    (* Dialog wurde nicht abgebrochen, Datei also angegeben *)
    if Opendialog1.Execute then
      (* Datei zur ListBox hinzufügen *)
      Form2.Listbox1.Items.Add(Opendialog1.FileName);
      
  (* Eintrag ausgewählt? *)
  if Form2.Listbox1.ItemIndex > -1 then
    begin
      (* Eintrag dem Mediaplayer zuweisen und abspielen *)
      Mediaplayer1.FileName:=Form2.Listbox1.Items[Form2.Listbox1.ItemIndex];
      Mediaplayer1.open;
      MediaPlayer1.Play;
      Timer1.Enabled:=true;
      Progressbar1.Max:=Mediaplayer1.Length;
    end;
end;

[Gohac]

also hab es mit deinem code versucht Danke Dir

aber es funktioniert noch nicht richtig. ich muss eine lied in der playlist anklicken und dann spielt er es erst ab

wie kann ich das nun hinbekommen?

[DeddyH]

Das war ja auch beabsichtigt. Der User muss ja zuerst die Datei auswählen, die er abgespielt haben möchte. Oder soll es immer die erste in der Liste sein? Dann macht ja die Liste keinen Sinn.

[edit] Alternativ kannst Du natürlich selbst den ersten Eintrag setzen, wenn einer vorhanden ist und keiner ausgewählt wurde.

Delphi-Quellcode:

if (DeineListBox.Items.Count > 0) and (DeineListBox.ItemIndex = -1) then
  DeineListBox.ItemIndex := 0;

[/edit]

[Gohac]

super danke das klappt :)

habe aber noch feststellen müssen das wenn sich opendialog öffnet und mit klick auf abbrechen kommt eine fehlermeldung. also opendialog will unbedingt das ich ein lied auswähle.
solte nicht eigendlich

Delphi-Quellcode:

Opendialog1.Execute

dieses problem verhindern ?

verzeiht mir wenn ich so frage muss halt noch einiges lernen

[DeddyH]

Welche Fehlermeldung kommt denn, und wie sieht Dein aktueller Quellcode aus?

[Gohac]

die fehlermeldung ist

Listenindex überschreitet das Maximum (-1)

meinst du den gesammten code?

oder hier erstmal den für den play button

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  (* ListBox ist leer -> Dialog aufrufen *)
  if Form2.Listbox1.Items.Count=0 then
    (* Dialog wurde nicht abgebrochen, Datei also angegeben *)
    if Opendialog1.Execute then
      (* Datei zur ListBox hinzufügen *)
      Form2.Listbox1.Items.Add(Opendialog1.FileName);

  (* Eintrag ausgewählt? *)
 if Form2.ListBox1.Items.Count > 0 and Form2.Listbox1.ItemIndex -1 then
  Form2.ListBox1.ItemIndex :=0;
    begin
      (* Eintrag dem Mediaplayer zuweisen und abspielen *)
      Mediaplayer1.FileName:=Form2.Listbox1.Items[Form2.Listbox1.ItemIndex];
      Mediaplayer1.open;
      MediaPlayer1.Play;
      Timer1.Enabled:=true;
      Progressbar1.Max:=Mediaplayer1.Length;
    end;
end;

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  (* ListBox ist leer -> Dialog aufrufen *)
  if Form2.Listbox1.Items.Count=0 then
    (* Dialog wurde nicht abgebrochen, Datei also angegeben *)
    if Opendialog1.Execute then
      (* Datei zur ListBox hinzufügen *)
      Form2.Listbox1.Items.Add(Opendialog1.FileName);

  (* Wenn Einträge vorhanden, aber keiner gewählt, dann ersten auswählen *) 
  if (Form2.ListBox1.Items.Count > 0) and (Form2.Listbox1.ItemIndex = -1) then
    Form2.ListBox1.ItemIndex :=0;
  (* Eintrag ausgewählt? *)
  if Form2.Listbox1.ItemIndex > -1 then 
    begin
      (* Eintrag dem Mediaplayer zuweisen und abspielen *)
      Mediaplayer1.FileName:=Form2.Listbox1.Items[Form2.Listbox1.ItemIndex];
      Mediaplayer1.open;
      MediaPlayer1.Play;
      Timer1.Enabled:=true;
      Progressbar1.Max:=Mediaplayer1.Length;
    end;
end;