|
|
MIDI állomány lejátszása programból
|
|
Példaprogram letöltése
26256 bájt
|
Windows alkalmazásokban, különösen az egyszerűbb játékprogramoknál bevált szokás, hogy az akusztikus élményt MIDI zenék lejátszásával próbálják biztosítani a felhasználóknak. Ezek minőségéről lehet vitatkozni, de az mindenképpen mellettük szól, hogy a rendszer erőforrásokat nem csökkentik jelentősen. Ilyen formátumú zene lejátszására a TMediaPlayer komponens is alkalmas, de a legtöbb esetben nem lenne célszerű ennek használata. Ebben a cikkben azt vizsgáljuk meg, hogy hogyan lehet a legegyszerűbben MIDI zenét lejátszani Delphi-ből komponensek használata nélkül.
A multimédiás eszközök, fájlok lejátszására a legegyszerűbbnek az mciSetString függvény tűnik. Ebben a példában is ezt használjuk.
function mciSendString(lpstrCommand, lpstrReturnString: PChar; uReturnLength: UINT; hWndCallback:
HWND): MCIERROR;
Esetünkben egy hasonló parancsot kell kiadnunk:
mciSendString('open C:\MIDI\TESTSND.MID type sequencer alias MyMIDI', NIL, 0, 0);
Ha a függvény visszatérési értéke 0, akkor sikerült a fájl megnyitni. Ha a fájl megnyitás sikeres volt, akkor elindíthatjuk annak lejátszását. A fenti példát követve, az alábbi parancsot kell kiadnunk:
mciSendString('play MyMIDI', NIL, 0, 0);
mciSendString('close MyMIDI', NIL, 0, 0);
A cmd változóban összeállítjuk az elküldendő parancs sztringet. Ez az "open" kulcsszóval kezdődik, majd hozzáadjuk a MIDI fájl elérési útvonalát (ami a példaprogram útvonala is egyben) és nevét. Ezután megadjuk a fájl típusát ("type sequencer") és az azonosításra használt nevet, amit az alias változóban tárolunk.
cmd:='open '+ExtractFilePath(Application.ExeName)+'TESTSND.MID type sequencer alias '+alias;
ok:=mciSendString(PChar(cmd), NIL, 0, 0)=0;
if ok then begin
mciSendString(PChar('play '+alias), NIL, 0, 0);
end else ShowMessage('Nem sikerült megnyitni a fájlt!');
Button1.Enabled:=NOT OK;
Button2.Enabled:=OK;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString(PChar('close '+alias), NIL, 0, 0);
Button1.Enabled:=True;
Button2.Enabled:=False;
end;
|
Könyv
Ez a cikk megtalálható ebben a könyvben:
Delphi Software Offline 2001 évkönyv 391. oldal
Felhasználási feltételek
A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!
|