Скачать: CL | DM;

Как проиграть midi файл   Найти похожие ветки 

← →
Riddler   (2004-09-29 21:54) [0]

Здраствуйте! Помогите пожалуйста вставить в программу midi файл, чтобы он естественно проигрывался. Заранее спасибо.

---

← →
_silver ©   (2004-09-29 21:59) [1]

Riddler   (29.09.04 21:54)

> чтобы он естественно проигрывался

Это как?

---

← →
Riddler   (2004-09-29 22:17) [2]

Там запитые должны были быть :). Ну, короче, чтобы эта мидишка проигрывалась при запуске проги.

---

← →
_silver ©   (2004-09-29 22:31) [3]

В обработчике события OnCreate - функция PlaySound.

---

← →
Riddler   (2004-09-29 23:01) [4]

Почему-то когда я вызываю эту функцию, делфи говорит, что это неизвестный идентификатор
procedure TForm1.FormCreate(Sender: TObject);
begin
PlaySound (404.mid;0;SND_ASYNC);
end;

---

← →
_silver ©   (2004-09-29 23:28) [5]

function PlaySound(pszSound: PChar; hmod: HMODULE; fdwSound: DWORD): BOOL; stdcall; external "winmm.dll" name "PlaySoundA";

...
PlaySound("404.mid",0,SND_FILENAME or SND_NODEFAULT or SND_NOWAIT or SND_ASYNC);
...

---

← →
Riddler   (2004-09-29 23:48) [6]

А при этом ничего в Uses добавлять не надо? А то Делфи все ругается, что незнает что такое PlaySound :(

---

← →
_silver ©   (2004-09-30 00:49) [7]

unit SoundActionUnit;
interface

procedure SoundAction;

implementation

uses Windows;

const
 SND_FILENAME        = $00020000;  { name is file name }
 SND_NODEFAULT       = $0002;  { don"t use default sound }
 SND_NOWAIT          = $00002000;  { don"t wait if the driver is busy }
 SND_ASYNC           = $0001;  { play asynchronously }
 SND_LOOP            = $0008;  { loop the sound until next sndPlaySound }
 SND_PURGE           = $0040;      { purge non-static events for task }

function PlaySound(pszSound: PChar; hmod: HMODULE; fdwSound: DWORD): BOOL; stdcall; external "winmm.dll" name "PlaySoundA";

procedure SoundAction;
begin
 PlaySound(PChar(Param),0,SND_FILENAME or SND_NODEFAULT or SND_NOWAIT or SND_ASYNC);
end;
end.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c