Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Мультимедиа
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 10.04.2009, 19:55
Аватар для Ar4ers
Ar4ers Ar4ers вне форума
Прохожий
 
Регистрация: 10.04.2009
Сообщения: 9
Репутация: 10
Вопрос воспроизведение звука (автозапуск)

дарова всем!!!
Как воспроизвести звук при запуске проги
Ответить с цитированием
  #2  
Старый 10.04.2009, 20:11
Аватар для :S.p.a.m.
:S.p.a.m. :S.p.a.m. вне форума
Активный
 
Регистрация: 04.05.2008
Сообщения: 260
Репутация: 15
По умолчанию

в событии onCreate можно попробовать или еще лучше после создания всех форм воспроизводить.

вот тебе 2 варианта воспроизведения, выбирай:
первый
Второй
Ответить с цитированием
  #3  
Старый 11.04.2009, 00:13
Аватар для Ar4ers
Ar4ers Ar4ers вне форума
Прохожий
 
Регистрация: 10.04.2009
Сообщения: 9
Репутация: 10
По умолчанию

ок спс попробую
Ответить с цитированием
  #4  
Старый 12.04.2009, 00:25
Аватар для Ar4ers
Ar4ers Ar4ers вне форума
Прохожий
 
Регистрация: 10.04.2009
Сообщения: 9
Репутация: 10
По умолчанию

не 4е то не то воспроизводить как нажимаем на кнопку а надо было при запуске программы
Ответить с цитированием
  #5  
Старый 12.04.2009, 18:12
SERЖant SERЖant вне форума
Начинающий
 
Регистрация: 22.03.2008
Адрес: г.Елец , Липецкой области , Россия
Сообщения: 104
Репутация: 7
По умолчанию

Код:
procedure TForm1.FormShow(Sender: TObject);
begin
MediaPlayer1.FileName := 'имя твоего файла';
MediaPlayer1.Open;
MediaPlayer1.Play
end;
Ответить с цитированием
  #6  
Старый 12.04.2009, 19:14
Аватар для Ar4ers
Ar4ers Ar4ers вне форума
Прохожий
 
Регистрация: 10.04.2009
Сообщения: 9
Репутация: 10
По умолчанию

4ерез OnCreate пробывал PlaySound('c:\1.wav', 0, 0); работает, только с перво звук идет потом только прога запускается
Ответить с цитированием
  #7  
Старый 12.04.2009, 19:15
Аватар для Ar4ers
Ar4ers Ar4ers вне форума
Прохожий
 
Регистрация: 10.04.2009
Сообщения: 9
Репутация: 10
По умолчанию

Цитата:
Сообщение от SERЖant
Код:
procedure TForm1.FormShow(Sender: TObject);
begin
MediaPlayer1.FileName := 'имя твоего файла';
MediaPlayer1.Open;
MediaPlayer1.Play
end;

Спасибо все норм работает
Ответить с цитированием
  #8  
Старый 12.04.2009, 20:21
Аватар для Vayrus
Vayrus Vayrus вне форума
Исполняемый Ретровирус
 
Регистрация: 09.08.2008
Адрес: Umbrella Corporation
Сообщения: 743
Репутация: 1293
Лампочка

Цитата:
Сообщение от Ar4ers
4ерез OnCreate пробывал PlaySound('c:\1.wav', 0, 0); работает, только с перво звук идет потом только прога запускается

Надо в параметрах указать что файл должен проигрываться асинхронно, если не ошибаюсь, тогда все норм будет.
Ответить с цитированием
  #9  
Старый 12.04.2009, 20:25
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

А лучше не в форме это делать, а в главной программе (Project1.dpr), после Application.Run;. Тогда звук будет проигрываться после отрисовки форм (ы), что собственно и требуется.
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
  #10  
Старый 13.04.2009, 08:11
Аватар для Karsh
Karsh Karsh вне форума
Активный
 
Регистрация: 22.09.2007
Адрес: SPb
Сообщения: 228
Версия Delphi: 7, 2009, XE2
Репутация: 70
По умолчанию

Цитата:
Сообщение от Vayrus
Надо в параметрах указать что файл должен проигрываться асинхронно, если не ошибаюсь, тогда все норм будет.
поясню как:
Код:
PlaySound('tada.wav', 0, SND_ASYNC);
__________________
Начинающий программист уверен, что в 1 килобайте 1000 байт.
Законченный программист уверен, что в 1 километре 1024 метра.
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

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

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 18:56.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter