Циклическое воспроизведение - Мультимедиа в Delphi

grom333 · 16.01.2010, 17:28

На циклическое воспроизведение:

Код:

uses mmsystem;
PlaySound(PChar('sndMsg.wav'), 0, snd_Async);

А как через медиаплауер сделать циклическое воспроизведение 1 mp3
файла?

Пепел Феникса · 16.01.2010, 17:42

Цитата:

А как через медиаплауер сделать циклическое воспроизведение 1 mp3
файла?

событие OnNotify
и св-во компонента Notify чето там.

grom333 · 17.01.2010, 11:13

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
with MediaPlayer1 do
if NotifyValue = nvSuccessful then
begin
Notify:=True;
Play;
end;
end;

grom333 · 17.01.2010, 12:47

Почему при запуске выдает ошибку MCI и не играет музыка у других? У меня все норм работает и играет музыка.
Путь прописал для файла c:\Чат Языкочес\sound\sound.mp3

ViNcHeStEr · 17.01.2010, 15:07

Возможно нужно написать путь относительно твоей программы.

grom333 · 17.01.2010, 15:08

писал и так sound\sound.mp3
Одно и тоже

Пепел Феникса · 17.01.2010, 16:47

а использовать ExtractFilePath(ParamStr(0)) попробуйте

grom333 · 17.01.2010, 18:16

Цитата:

Сообщение от Пепел Феникса

а использовать ExtractFilePath(ParamStr(0)) попробуйте

.(ExtractFilePath(ParamStr(0))+ 'sound.mp3'); пробывал одно и тоже, может я где-то накосячил? посмотрите исходник. А то целый день мучаюсь, могу запариться. скачать

16.01.2010, 17:28	#1
grom333 Форумчанин Регистрация: 21.10.2008 Сообщений: 337	Циклическое воспроизведение На циклическое воспроизведение: Код: `uses mmsystem; PlaySound(PChar('sndMsg.wav'), 0, snd_Async);` А как через медиаплауер сделать циклическое воспроизведение 1 mp3 файла? Лучше быть последним из львов, чем первым среди шакалов. Мой чат community on struggle with zoomics

17.01.2010, 11:13	#3
grom333 Форумчанин Регистрация: 21.10.2008 Сообщений: 337	procedure TForm1.MediaPlayer1Notify(Sender: TObject); begin with MediaPlayer1 do if NotifyValue = nvSuccessful then begin Notify:=True; Play; end; end; Лучше быть последним из львов, чем первым среди шакалов. Мой чат community on struggle with zoomics Последний раз редактировалось grom333; 17.01.2010 в 11:16.

17.01.2010, 12:47	#4
grom333 Форумчанин Регистрация: 21.10.2008 Сообщений: 337	Почему при запуске выдает ошибку MCI и не играет музыка у других? У меня все норм работает и играет музыка. Путь прописал для файла c:\Чат Языкочес\sound\sound.mp3 Лучше быть последним из львов, чем первым среди шакалов. Мой чат community on struggle with zoomics

17.01.2010, 15:08	#6
grom333 Форумчанин Регистрация: 21.10.2008 Сообщений: 337	писал и так sound\sound.mp3 Одно и тоже Лучше быть последним из львов, чем первым среди шакалов. Мой чат community on struggle with zoomics

17.01.2010, 16:47	#7
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	а использовать ExtractFilePath(ParamStr(0)) попробуйте Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

17.01.2010, 15:07	#5
ViNcHeStEr Delphi Форумчанин Регистрация: 12.06.2008 Сообщений: 137	Возможно нужно написать путь относительно твоей программы.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Воспроизведение	SLIMMUS	Общие вопросы Delphi	1	13.09.2008 15:45
Воспроизведение звука	Djaconda	Общие вопросы C/C++	14	09.06.2008 00:19
Воспроизведение видеофайла	Airou	Мультимедиа в Delphi	5	16.05.2008 11:28
воспроизведение звука..	Kaktys v tymane	Помощь студентам	1	01.05.2008 20:55
Циклическое проигрывание midi-файла без разрывов в звучании	LordYuri	Мультимедиа в Delphi	2	23.04.2008 18:09