mediaplayer - Мультимедиа в Delphi

Erick Cartman · 25.03.2010, 12:04

добрый день! У меня программа состоит из 30 уроков. и все открываются через один медиаплеер. вместо кнопок использовал label. В object inspector поле filename оставить пустым? Ведь у мя 30 уроков а не 1. Постоянно выходит ошибка MCI open file.

.Все пути прописаны! посмотрите пжл правильно ли я команды расположил?

Код:

procedure TForm2.Label2Click(Sender: TObject);
begin
  MediaPlayer1.FileName:='sounds\1.wav';
  MediaPlayer1.Open;
  MediaPlayer1.Play;
  Form4.Show;
  Form4.MediaPlayer1.FileName := 'video\2.avi';
  Form4.MediaPlayer1.Open;
  Form4.MediaPlayer1.Play;
  Form4.MediaPlayer1.Notify := false;
  Form4.MediaPlayer1.Display := Form4.Panel1;
  Form4.MediaPlayer1.DisplayRect := Form4.Panel1.ClientRect;
end;

Xatr · 25.03.2010, 14:56

может лучше строки

Код:

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

расположить в самом конце
и перед загрузкой нового клипа нужно закрывать Player.
А для Wav можно Player не использовать. Для этого можно использовать PlaySoundA из юнита mmsystem

25.03.2010, 14:56	#2
Xatr Форумчанин Регистрация: 17.09.2008 Сообщений: 349	может лучше строки Код: `Form4.MediaPlayer1.Open; Form4.MediaPlayer1.Play;` расположить в самом конце и перед загрузкой нового клипа нужно закрывать Player. А для Wav можно Player не использовать. Для этого можно использовать PlaySoundA из юнита mmsystem если чем помог, поставьте отзыв на весы Последний раз редактировалось Xatr; 25.03.2010 в 14:59.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
MediaPlayer	Константин_1701	Мультимедиа в Delphi	1	06.07.2009 21:35
Mediaplayer	anton14	Мультимедиа в Delphi	12	20.10.2008 11:07
MediaPlayer	Killbrum	Помощь студентам	7	13.06.2008 01:23
Mediaplayer	RealSHELS	Общие вопросы Delphi	3	12.05.2008 16:44
MediaPlayer	KORT	Компоненты Delphi	15	17.07.2007 14:51