Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.06.2011, 05:49   #1
marina15056
Пользователь
 
Регистрация: 17.04.2009
Сообщений: 68
По умолчанию Не понятное поведение SND_SYNC

Я не совсем понимаю смысл этого:
Цитата:
Const SND_SYNC = &H0 ' Файл воспроизводится синхронно
' и функция не возвращает управление до окончания воспроизведения
Например у меня есть процедура:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Color:=clred;
PlaySound('привет.wav',0,SND_SYNC)
end;
По идее сперва форма должна окрасится в красный цвет, а потом только всё должно зависать.
Мне надо было сделать, что бы программа "висла" на время проигрывания wav-файла. Я решила, что SND_SYNC - то что надо (без всяких заморочек со считыванием из WAV длинны, задействования таймера и ввода дополнительной переменной). Но программа "виснет" не красиво. Надо, что бы предыдущие команды из процедуры были выполнены.
Почему так?
Вложения
Тип файла: rar problem.rar (323.3 Кб, 6 просмотров)

Последний раз редактировалось marina15056; 13.06.2011 в 05:56.
marina15056 вне форума Ответить с цитированием
Старый 13.06.2011, 09:40   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Color:=clred;
Application.ProcessMessages;
PlaySound('привет.wav',0,SND_SYNC)
end;
сообщения то обработать надо(например сообщение перерисовки формы с новым цветом)
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 13.06.2011, 09:54   #3
marina15056
Пользователь
 
Регистрация: 17.04.2009
Сообщений: 68
По умолчанию

Цитата:
Сообщение от Пепел Феникса Посмотреть сообщение
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Color:=clred;
Application.ProcessMessages;
PlaySound('привет.wav',0,SND_SYNC)
end;
сообщения то обработать надо(например сообщение перерисовки формы с новым цветом)
Спасибо за помощь.
marina15056 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Странное поведение BASM Sibedir Общие вопросы Delphi 8 31.01.2011 12:02
Странное поведение gets alex_alpha Общие вопросы C/C++ 3 27.03.2010 18:21
поведение браузеров Antoha HTML и CSS 2 30.05.2009 22:09