Звуки в Delphi

← →
Galiaf (2005-04-02 08:57) [0]

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

← →
Verg © (2005-04-02 09:26) [1]

Windows.Beep

← →
Galiaf (2005-04-02 09:37) [2]

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

← →
Neznaika © (2005-04-02 10:29) [3]

PlaySound?

← →
Galiaf (2005-04-02 18:14) [4]

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

← →
Comrade (2005-04-02 20:52) [5]

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

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

← →
Galiaf (2005-04-02 21:43) [6]

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

← →
имя (2005-04-03 05:50) [7]

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

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

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

← →
Kind © (2005-04-03 12:32) [9]

Попробуй так:
media:=tmediaplayer.Create(self); media.Parent := Self; media.FileName:="e:\1.mp3"; media.Open; media.Play;

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

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

← →
Galiaf (2005-04-03 14:41) [10]

пасиба

← →
Galiaf (2005-04-04 21:19) [11]

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

← →
totti (2005-05-21 12:48) [12]

Попробуй

procedure TForm1.Button1Click(Sender: TObject);
begin

Beep;

end;

← →
ALL (2005-05-23 01:57) [13]

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

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

← →
ALL (2005-05-23 02:03) [14]

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

← →
ALL (2005-05-23 02:04) [15]

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

Звуки в Delphi Найти похожие ветки