Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Звуки в Delphi [D7, WinXP]


Galiaf ©   (2005-04-02 08:57:00) 

Привет всем! Я из начинающих програмистов и мне очень нужно узнать что-нить о звуках в Delphi. Я знаю только команду 'Beep', а мне необходимо менять тональность как в команде 'Sound(n)' в Паскале. Помогите кто может, буду рад :).


ALL   (2005-05-23 02:04:00) [1]

А вообше это почти в любой книге по Delphi есть


ALL   (2005-05-23 02:03:00) [2]

Ну если совсем не понятно то
procedure Button1Click();
begin
mediaplaer1.filename:='D:\.avi'//тогда у тебя ролик воспроизведётся в отдельном фрейме если не выставиш дисплей в инспекторе
mediaplaer1.open;
mediaplaer1.play;
end;


ALL   (2005-05-23 01:57:00) [3]

Попробуй так, что я не знаю мультиплеера в Dlphi знаю только
Mediaplayer.
вот
,,,,,,,,,,,,,,

mediaplayer1.filename:='D:\......mp3';-Формат не забывай!
Mediplaer1.open;
Mediplaer1.play;
.................


totti   (2005-05-21 12:48:00) [4]

Попробуй

procedure TForm1.Button1Click(Sender: TObject);
begin

 Beep;

end;


Galiaf   (2005-04-04 21:19:00) [5]

Ещё вопрос назрел. Нужно вывести звук как в команде 'windows.beep' нечерез внутренний динамик, а через колонки.


Galiaf   (2005-04-03 14:41:00) [6]

пасиба


Kind   (2005-04-03 12:32:00) [7]

Попробуй так:

media:=tmediaplayer.Create(self);
media.Parent := Self;
media.FileName:='e:\1.mp3';
media.Open;
media.Play;


Только смысл в этом какой? Кинь его просто на форму.

P.S. Да, не забудь уничтожить media после использования :)


Galiaf   (2005-04-03 09:02:00) [8]

А можно присвоить переменной 'mediaplayer' и не бросая его на форму пользоваться им, если можно то как.
Я пробовал
var media:tmediaplayer;
begin
 media:=tmediaplayer.Create(form1);
 media.FileName:='e:\1.mp3';
 media.Open;
 media.Play
end;
Не получилось.
Помогите, плизз.


  (2005-04-03 05:50:00) [9]

Удалено модератором


Galiaf   (2005-04-02 21:43:00) [10]

Пасиба, надеюсь пойдёт;).


Comrade   (2005-04-02 20:52:00) [11]

Поместит на форму multiplayer.

multiplayer.filename:='имя файла музыки';
multiplayer.open;
multiplayer.play;


Galiaf   (2005-04-02 18:14:00) [12]

А как оформляется?


Neznaika   (2005-04-02 10:29:00) [13]

PlaySound?


Galiaf   (2005-04-02 09:37:00) [14]

Благодарю за Помощь, хотелось бы узнать можно ли этот звук проиграть не через внутренний динамик, в смысле через звуковую карту, просто в некоторых случаях это просто необходимо.


Verg   (2005-04-02 09:26:00) [15]

Windows.Beep


Наверх

Титульная страница Поиск, карта сайта Написать письмо