Sorry, dass ich schon wieder poste, aber ich werd mit dem Problem hier echt nicht fertig:
Bei jedem 2. Aufruf von mediaplayer1.play wird dieser Befehl nicht ausgeführt, es sei denn ich habe vorher mediaplayer1.Stop ausgeführt
bei mir: den Stop-Button gedrückt; dann führt er eigenartiger Weise bei jedem 'Anlauf' mediaplayer1.play aus;
Weiß einer von euch vielleicht, wie ich dieses Problem lösen kann?; ihr seid dann auch für einige Zeit von meinen Fragen 'befreit'!!!
Hier der Code von meinem Öffnen-Button, da ich annehme, dass es damit irgendwie zusammenhängt, denn der Fehler tritt ja nicht nur beim Betätigen des Play-Buttons auf, sondern wirklich wie schon beschrieben bei jeder Art der Ausführung von mediaplayer1.play;
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 := mediaplayer1.FileName;
mediaplayer1.Open;
TrackPane;
newplaylist := TStringList.Create;
c := PlayListBox.Items.Count;
newplaylist.Add(Mediaplayer1.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(Mediaplayer1.fileName);
end;
PlayL1.Clear;
PlayL1.Items.Assign(newplaylist);
PlayListBox.ItemIndex := 0;
PlayL1.ItemIndex := 0;
ButtonsEnable;
mediaplayer1.Play;
Stunden:=0; Minuten:=0; Sekunden:=0;
Timer1.Enabled := True;
TimeBar.Enabled := true;
end else begin
Exit;
end;
end;
Man könnte jetzt natürlich annehmen, dass das standardmäßig ist; ist es aber nicht, weiß auch nicht was ich da falsch gemacht haben könnte; auf jeden Fall ging es auch mal anders...;
In diesem Sinne
DelphiUser7