Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 12.02.2008, 16:19   #1
bagish
Пользователь
 
Регистрация: 12.02.2008
Сообщений: 10
Репутация: 10
По умолчанию Закончилось ли воспроизведение?

Перед вами код воспроизведения звукового ресурса из dll:
Код:

var
  hModule:THandle;
begin
 hModule:=LoadLibraryEx('test.DLL',0,LOAD_LIBRARY_AS_DATAFILE);
 if hModule<>0 then
   PlaySound(file_ID,hModule, SND_RESOURCE+SND_ASYNC);
end;

На мой взгляд он хорош для воспроизведения коротких звуков. А если звучание длится 3-4 минуты и мне надо отловить его окончание? Т.е. мне нужна индикация этого события.
Удаление SND_ASYNC приводит к потере активности всех компонентов до конца воспроизведения и поэтому мне не подходит. Организовать цикл и дождаться его окончания тоже не удаётся: SND_ASYNC разрушает его. Есть предложения?
bagish вне форума   Ответить с цитированием
Старый 12.02.2008, 16:32   #2
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,957
Репутация: 6832
По умолчанию

Есть, смотри в сторону многопоточности
Stilet вне форума   Ответить с цитированием
Старый 12.02.2008, 17:04   #3
bagish
Пользователь
 
Регистрация: 12.02.2008
Сообщений: 10
Репутация: 10
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Есть, смотри в сторону многопоточности
Это как? До этого имел дело в основном только с компонентами и нужна мне конкретная помощь.
bagish вне форума   Ответить с цитированием
Старый 12.02.2008, 17:21   #4
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,957
Репутация: 6832
По умолчанию

Запросто в Demos делфы есть пример работы с TThread его и опануй
Stilet вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Воспроизведение звука Патрон Общие вопросы Delphi 21 15.07.2008 20:08
Воспроизведение Flash (*.swf) Airou Компоненты Delphi 2 19.05.2008 12:24
Воспроизведение видеофайла Airou Мультимедиа в Delphi 5 16.05.2008 11:28
воспроизведение звука.. Kaktys v tymane Помощь студентам 1 01.05.2008 20:55
Воспроизведение звука! Небесный Мультимедиа в Delphi 7 20.10.2007 09:48


04:07.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru