Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.26;
Скачать: 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 вся ветка

Текущий архив: 2004.12.26;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.039 c
14-1102348564
kein
2004-12-06 18:56
2004.12.26
Самопальное радио


14-1102295598
просто юзер
2004-12-06 04:13
2004.12.26
Нашествие


1-1102861942
ASDFGH
2004-12-12 17:32
2004.12.26
Перевод в верхний регистр не работает.


3-1101627994
MaxxSoft
2004-11-28 10:46
2004.12.26
Создание / изменение процедур


1-1101809255
JohnS
2004-11-30 13:07
2004.12.26
Cron формат