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

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

Как проиграть midi файл [D6, WinXP]

Riddler ©   (2004-09-29 21:54:00) 

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

---

_silver   (2004-09-30 00:49:00) [1]

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.

---

Riddler   (2004-09-29 23:48:00) [2]

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

---

_silver   (2004-09-29 23:28:00) [3]

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:01:00) [4]

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

---

_silver   (2004-09-29 22:31:00) [5]

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

---

Riddler   (2004-09-29 22:17:00) [6]

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

---

_silver   (2004-09-29 21:59:00) [7]

Riddler   (29.09.04 21:54)

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

Это как?

---

Наверх