gute werde ich machen habs aber noch nie probiert als werde ich es mal testen
Delphi-Quellcode:
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
with fileLoad1 do begin
Filter := 'mp3-Files(*.mp3)|*.mp3|Wav-Files(*.wav)|*.wav|MIDI-Files(*.mid)|*.mid|Alle Audiodateien(*.mp3,*.wav,*.mid)|*.mp3;*.wav;*.mid';
end;
if fileLoad1.Execute then
begin
Ticks;
//mediaplayer1.FileName := FileLoad1.FileName;
mylabel.Enabled := true;
myLabel.Caption := FileLoad1.FileName; <-
//mediaplayer1.Open;
TrackPane;
newplaylist := TStringList.Create;
c := PlayListBox.Items.Count;
newplaylist.Add(FileLoad1.FileName); <-
PlayListBox.Items.Clear;
PlayListBox.Items.AddObject('PlayList001', newplaylist);
PlayL1.Items.Count;
if PlayL1.Items.Count = -1 then
begin
ClearSel1.Enabled := false;
end else begin
ClearSel1.Enabled := true;
end;
if not PlayL1.Items.Count = -1 then
begin
newplaylist.clear;
newplaylist.Add(FileLoad1.FileName); <-
end;
PlayL1.Clear;
PlayL1.Items.Assign(newplaylist);
PlayListBox.ItemIndex := 0;
PlayL1.ItemIndex := 0;
ButtonsEnable;
mediaplayer1.filename := FileLoad1.FileName; <-
mediaplayer1.open; <-
mediaplayer1.Play;
Stunden:=0; Minuten:=0; Sekunden:=0;
Timer1.Enabled := True;
TimeBar.Enabled := true;
end else begin
Exit;
end;
end;