Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.101 Beiträge
 
Delphi 11 Alexandria
 
#8

Re: Problem mit Abspielen von Song, außerhalb der Playlist

  Alt 31. Aug 2003, 21:27
Moin DelphiUser,

so wie Du es jetzt geschrieben hast steht zwar einmal begin und einmal end mehr drin als vorher, allerdings so, dass sich der Programmablauf nicht im geringsten geändert hat.

Jetzt wo ich es mir noch einmal ansehe, stelle ich fest, dass ich das ursprünglich nicht richtig gesehen hatte. Das Problem war kein fehlendes begin/end. Du benutzt in jedem Falle PlayList1.ItemIndex, was ja nicht sein darf.
Ich habe jetzt mal angenommen, dass für den Fall, dass kein Titel aus der Playlist ausgewählt wurde FileLoad1.Filename einen gültigen Dateinamen enthält

Delphi-Quellcode:
procedure TForm1.Play1Click(Sender: TObject);
begin
  If Mediaplayer1.Mode = mpOpen then Mediaplayer1.close;
  if Playlist.ItemIndex = -1 then begin
    Mediaplayer1.FileName := PlayList1.Items.String [PlayList1.ItemIndex]
    end else begin
       Mediaplayer1.FileName := FileLoad1.FileName;
    end;
    SongPanel.Caption := Mediaplayer1.FileName;
    Mediaplayer1.Open;
    Mediaplayer1.Play;
    Timer1.Enabled := True;
   end;
end;
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat