Аудиоплеер на Delphi

[Xatr]

Я писал похожую программу, но только я писал:

MediaPlayer1.FileName:=ListBox1.Items.Strings[ListBox1.ItemIndex]

[>>arty<<]

я в начале темы прикрепил аттач, посмотри пожалуйста и укажи на ошибки, заранее благодарен, а то поди даже и наработки не поглядели....

это дело чести, написал почтовый клиент читающий почту, прожку для мало мальских работ с базой данных и хочу её усовершенствовать а тут такое и не даётся осилить

[Xatr]

Там я лично увидел только добавление строк в ListBox через OpenDialog, но и это можно переделать:

if opendialog1.Execute then Listbox1.Items.Append(opendialog1.FileName);

Это условие нужно, например если пользователь ничего не выберет, а нажмёт "отмена", а включение MediaPlayer нужно включать, когда кликаешь по ListBox

Лично я использовал не TrackBar, а ProgressBar.

ListBox1.Click:

begin
Mediaplayer1.Close;
ProgressBar1.Max:=Mediaplayer1.Length;
MediaPlayer1.FileName:=ListBox1.Items.Strings[ListBox1.ItemIndex];
Mediaplayer1.Open;
Timer1.Enabled:=true;
Mediaplayer1.Play;
end;

А для изменения позиции в ProgressBar, нужно в компоненте Timer1 прописать:

ProgressBar1.Position:=Mediaplayer1.Position;

Этот код может и не получиться.
Первоначальное значение Timer1.Enabled установить в False

Попробуй это, потом продумаем про автоматический переход на следующую мелодию.

[>>arty<<]

не фурычит ничего, открываю нужный файл, тыкаю в listbox'е и прерывает процесс, ошибка мол говорит.... Мне интересно ты тупо код исходный посмотрел или запускал проект?
А то уже к которому человеку обращаюсь все советуют а советы то пустые!
У меня установлена среда CodeGear 2009 Delphi 2009 и программирую я на ней...

[ОДИНОЧЕСТВО В СЕТИ]

про автоматический переход на следующую мелодию

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // изменить счетчик времени
  if sec < 59
    then inc(sec)
    else begin
      sec :=0;
      inc(min);
    end;

  // вывести время воспроизведения
  Label2.Caption := IntToStr(min)+':';
  if sec < 10
    then Label2.Caption :=
           Label2.Caption +'0'+ IntToStr(sec)
    else Label2.Caption :=
           Label2.Caption + IntToStr(sec);

  // если воспроизведение текущей композиции
  // не завершено
  if MediaPlayer1.Position < MediaPlayer1.Length
    then exit;

  // воспроизведение текущей композиции
  // закончено
  Timer1.Enabled := False; // остановить таймер
  MediaPlayer1.Stop;       // остановить плеер

  if ListBox1.ItemIndex < ListBox1.Count // список не исчерпан
  then begin
        ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
        Play;
       end
end;

так устроит?
воспроизвести по клику в ListBoxe

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  // вывести в поле метки Label1 имя выбранного файла
 if not SpeedButton2.Down
    then  SpeedButton2.Down := True;
 Label1.Caption:=ListBox1.Items[ListBox1.itemIndex];
 Play;
end;
procedure TForm1.Play;
begin
  Timer1.Enabled := False;
  Label1.Caption:=ListBox1.Items[ListBox1.itemIndex];
  MediaPlayer1.FileName := SoundPath + ListBox1.Items[ListBox1.itemIndex];

  try
   Mediaplayer1.Open;
  except
    on EMCIDeviceError do
      begin
        ShowMessage('Ошибка обращения к файлу '+
                     ListBox1.Items[ListBox1.itemIndex]);
        SpeedButton2.Down := False;
        exit;
      end;
  end;
  MediaPlayer1.Play;
  min :=0;
  sec :=0;
  Timer1.Enabled := True;
  SpeedButton2.Hint := 'Stop';
end;

вот посмотри!!!

[>>arty<<]

вот тебе огромное спасибо! Всё чётко и понятно, а главное - ошибки свои подметил