Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Музыка в проге

Автор: COOLHack 15.5.2008, 21:48

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

Я пробывал это реализовать с помощью компонента Медиа плеер, но не получилось.

Просто запуск файла (то есть открытие его с прогой по умолчанию) не подъходит.

Нужно чтоб при нажатии на кнопку началось воспроизведение трека, при нажатии на втрую-остановилось.

Автор: Exai1e 15.5.2008, 21:51

че не получилось то ?...

Код


i : integer = 0;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  if i = 0 then
    MediaPlayer1.FileName := 'C:\f.mp3';
  i := 1;
    MediaPlayer1.Play;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  MediaPlayer1.Pause;
//или MediaPlayer1.Stop; смотря чего тебе именно надо
end;

помоему и неполучаться то нечему smile

Автор: COOLHack 15.5.2008, 22:23

Вылазиет окно ошибки с таким текстом:

Project Project1.exe raised exception class EMDCIDeviceError with message 'No MCI denice open'. Process stopped. Use Step or Run to contine.

Жму OK, потом на F9, и ещё одно сообщение: No MCI divice open.

Чё эт за фигня, и как сделать чтоб всё работало?

Автор: SAVANE 15.5.2008, 23:31

Используй библиотеку Bass.dll
В форуме есть описано.
Медиаплеер делфи не коректно работает.

Автор: Qu1nt 15.5.2008, 23:34

Код


..
MediaPlayer1.Open;
MediaPlayer1.Play;
..

Автор: COOLHack 15.5.2008, 23:49

пишу так:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
    MediaPlayer1.FileName := 'D:\Music\f.mp3';
    MediaPlayer1.Open;
    MediaPlayer1.Play;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    MediaPlayer1.Stop;
end;

И вместо предыдущей ошибки, эта:

user posted image

Автор: Данкинг 16.5.2008, 00:01

Какой дебаггер?? smile

А что в devicetype у медиаплеера стоит?

Автор: dumb 16.5.2008, 03:22

кодек какой-то с навесным протектом, в котором антидебаг включен... порылся: инет говорит, что какие-то версии divx'а этим страдают. либо кодек переставь, либо запускай не из среды.

Автор: COOLHack 16.5.2008, 08:22

скомпелировал, запустил, в итоге музыку играет как зажованную старую касетную плёнку, только раза в дву хуже...

ЧТо мне теперь делать?

Автор: Exai1e 16.5.2008, 17:04

Ну на делфи ругаться не стоит, чет у тя с компом smile

обнови кодеки, мб поможет)