Ошибка MediaPlayer'а

[Marsel737]

Всем доброго времени суток.

Подскажите пожалуйста в чём тут проблема. Вообщем у меня есть несколько форм, на каждой медиаплеер для проигрвывания простеньких щелчков при нажатии на кнопки и т.д. Сначал появляется 1-я - главная форма, с неё можно прейти на любую другую, при этом главную делаю невидимой. Когда перехожу с главной формы на вторую, потом обратно и потом снова на вторую, то при нажатии на кнопку(когда должен быть щелчок) вылазит ошибка : "Данное имя уже используется в приложении в качестве псевдонима, создайте уникальный псевдоним" , и указывается на строчку Play в проце с медиаплеером.

Вот на всякий случай выложу ещё и всю процедуру:

procedure TfrmBook.SelectSoundPlay;
begin
  if fileexists('Media/Book/Select2.wav') then
  begin
    try
      mpBook.FileName:='Media/Book/Select2.wav';
      with mpBook do
      begin
       mpBook.open;
       Play;
      end;
    except
      Exit;
    end;
  end else
    Exit;
end;

[Sensizu]

Если скрываете форму с помощью Hide, то попробуйте использовать Free.
Может это отпустит всё что использует данная форма?

[Marsel737]

Sensizu, неа не прокатило...

[Neeter]

Попробуйте перед присваиванием FileName MediaPlayer'у проверять, не содержит ли это свойство вводимое значение, т.е:

procedure TfrmBook.SelectSoundPlay;
begin
 if (fileexists('Media/Book/Select2.wav')) and (mpBook.FileName <> 'Media/Book/Select2.wav') then
 begin
  try
   mpBook.FileName:='Media/Book/Select2.wav';
   with mpBook do
   begin
    mpBook.open;
    Play;
   end;
  except
   Exit;
  end;
 end else Exit;
end;

Еще можно сначала выгружать из MediaPlayer'а загруженную композицию, а потом уже загружать новую.

Прочитайте правила, и научитесь оформлять код как положено.

[Marsel737]

Нет, это тоже не помогло, а как можно выгружать из плеера?

Всё, проблема решена, добавлением вот этой строчки:

procedure TfrmBook.SelectSoundPlay;
begin
  if fileexists('Media/Book/Select2.wav') then
  begin
    try
      mpBook.FileName:='Media/Book/Select2.wav';
      with mpBook do
      begin
       Open;
       Play;
       Close;
      end;
    except
      Exit;
    end;
  end else
    Exit;
end;

Правда звук не успевает полностью прозвучатть, как уже выгружается плеер, поэтому лчше на выходе прописать:

mpBook.Close;

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

[Marsel737]

Всё, проблема решена, добавлением вот этой строчки:

procedure TfrmBook.SelectSoundPlay;
begin
  if fileexists('Media/Book/Select2.wav') then
  begin
    try
      mpBook.FileName:='Media/Book/Select2.wav';
      with mpBook do
      begin
       Open;
       Play;
       Close;
      end;
    except
      Exit;
    end;
  end else
    Exit;
end;

[Neeter]

Вы выгружаете после проигрывания, и это работает?
Может нужно так:

procedure TfrmBook.SelectSoundPlay;
begin
  if fileexists('Media/Book/Select2.wav') then
  begin
    try
      with mpBook do
      begin
       if FileName <> '' then Close;
       FileName := 'Media/Book/Select2.wav';
       Open;
       Play;
      end;
    except
      Exit;
    end;
  end else
    Exit;
end;

[Marsel737]

Neeter, работает только файл не успевает полностью проигрываться, лучше как я уже сказал выгружать на выходе и всё.