Проблема с воспроизведением Мр3 файлов

[dimka0986]

Осваиваю Delfi 6. Составил мультимедийный плеер, но не могу сделать так, чтобы в плей листе проигрывались все добавленные мелодии. Если я хочу прослушать несколько песен, то при добавлении в плей лист проигрывается только первая, все остальные он игнарирует, как буд-то не видит. Помогите пожалуйста разобраться.

[raxp]

поможем... но для начала - каким методом пользуешся для плея? наработки...

[dimka0986]

Плей лист создал с помощью ListBox. Сформировал 3 основные формы. Одна контрольная. В первой описаны основные операции (OpenDialog, MPlayer) , Вконтрольной форме сами процедеры. И отдельно плей лист.

[dimka0986]

Может здесь чкего надо добавить или убрать.

procedure TControlForm.MediaOpenSpBtnClick(Se nder: TObject);
var
Item: TListItem;
FileName: TFileName;
i: integer;
Nf: string;
begin
with MainForm do
if MediaOpenDlg.Execute
then
begin
for i:=0 to MediaOpenDlg.files.Count-1 do

begin
Nf:=ExtractFileName(MediaOpenDlg.Fi les[i]);
MPlayer.FileName := MediaOpenDlg.FileName;
Mplayer.Open;
Mplayer.Display := ScreenPanel;
Mplayer.DisplayRect :=
Rect(0, 0, ScreenPanel.Width, ScreenPanel.Height);

Mplayer.Play;
if not MPlayer.AutoRewind then MPlayer.Previous;
LifeImage.Visible :=
not (ExtractFileExt(MPlayer.FileName) = '.avi');
LifeForm.EditSpBtn.Down := true;
LifeTimer.Enabled := true;
ControlForm.PosTimer.Enabled := true;
ControlForm.PosTrkBar.Max := MPlayer.Length;
ControlForm.PosTrkBar.Enabled := true;
ControlForm.PlaySpBtn.Enabled := true;
ControlForm.PauseSpBtn.Enabled := true;
ControlForm.StopSpBtn.Enabled := true;
ControlForm.Caption := MediaOpenDlg.FileName;
PlayListForm.PlayLB.Enabled := true;
label1.Caption:=MediaToStr(MainForm .MPlayer.Position);
ratio:=MainForm.MPlayer.Length/PosTrkBar.Max;
label2.Caption:=MediaToStr(MainForm .MPlayer.Length);
PlayListForm.PlayLB.Items.append(Nf );
end;
end;
end;

[raxp]

...и где вы отслеживаете состояние плея? заглянитете-ка сюда

[dimka0986]

Что означают переменные
SoundPath в выражении
MediaPlayer1.FileName:=SoundPath+Li stbox1.Items[ListBox1.ItemIndex];
а также
except
on EMCIDeviceError do

[raxp]

тоже самое, что у вас

Nf:=ExtractFileName(MediaOpenDlg.Fi les[i]);
MPlayer.FileName := MediaOpenDlg.FileName;

второе - обработка ошибки, между except и end можете убрать.

[dimka0986]

procedure TControlForm.PlaySpBtnClick(Sender: TObject);
var

begin
PosTimer.Enabled := true;
ratio:=MainForm.MPlayer.Length/PosTrkBar.Max;
label2.Caption:=MediaToStr(MainForm .MPlayer.Length);
Label3.Caption:=PlayListForm.PlayLB .Items[PlayListForm.PlayLB.ItemIndex];
MainForm.MPlayer.FileName:= SoundPath+PlayListForm.PlayLB.Items[PlayListForm.PlayLB.ItemIndex]
MainForm.MPlayer.Play;
PosTimer.Enabled:=True;
PlaySpBtn.Hint:='Stop';
end;
на SoundPath выдает ошибку. Если уберу, то толку мало так как проигрывает все равно только одну мелодию а вторую не признает. при на жатии на плей проигрывает туже что и при открытии.

[dimka0986]

При открытии нового файла старый перестает проигрывать. Играет новый.

[raxp]

При открытии нового файла старый перестает проигрывать. Играет новый.

а должно быть по-другому? ...если вам так нужно чтобы играли одновременно, то вам плеер не нужен, используйте mcisendstring()