Einzelnen Beitrag anzeigen

beanbear6

Registriert seit: 28. Okt 2009
Ort: Passau
170 Beiträge
 
Delphi 7 Enterprise
 
#1

Playlist wird nicht fortgeführt

  Alt 23. Aug 2011, 00:38
Hallo an alle...
Bin verzweifelt.. Hab mit dem Mediaplayer einen mp3/wav-Player
gemacht. Mit folgendem Quellcode wird bei .wav(s) der Satzzeiger
im Table weitergeschaltet und die nächste Wave wird gespielt.
Trifft der Satzzeiger jedoch auf eine mp3 Datei, bleibt der Satz-
zeiger am Ende des Liedes stehen und schaltet nicht weiter...
Kann mir bitte jemand helfen? Ich finde den Fehler einfach nicht.
Vielen Dank gleich mal!!!

procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.DataBaseName := ExtractFilePath(Application.Exename);
Table1.TableName := 'Musik.DBF';
Table1.Open;
MediaPlayer1.Wait := true;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
With MediaPlayer1 do begin
AutoOpen := True;
Notify := true;
DeviceType := dtAutoSelect;
FileName := Table1.Fieldbyname('name').asstring;
Open;
Play;
end;
end;

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
with Sender as TMediaPlayer do begin
if ModeStr[Mode] = 'Stop' then begin
Table1.Next;
if Table1.eof then table1.first;
AutoOpen := true;
Notify := true;
FileName := Table1.Fieldbyname('name').asstring;
Open;
Play;
end;
end;
end;
Reiner
  Mit Zitat antworten Zitat