| 0,0 → 1,237 |
|---|
| (* |
| * This unit is free software; you can redistribute it and modify it |
| * under the terms of the GNU Library General Public License as published |
| * by the Free Software Foundation; either version 2 of the license or |
| * (at your option) any later version. |
| * |
| * Author of CPP header file : Olivier Lapicque <olivierl@jps.net> |
| * Author of Delphi conversion : Dean Ellis <Dean_Ellis@sillex.freeserve.co.uk> |
| * |
| * NOTE : The Origonal C++ Class declarations anc constants have been left in place |
| * |
| *) |
| unit MpSndSys; |
| |
| interface |
| |
| uses Windows,Classes; |
| |
| const |
| //#ifndef MPP_SND_SYS_H |
| //#define MPP_SND_SYS_H |
| |
| //#ifndef MPPDLLEXPORT |
| //#define MPPDLLEXPORT |
| //#endif |
| |
| //#define MPPAPI __stdcall |
| //#define MPPCDECL __cdecl |
| //#define MPPAPI_VERSION 0x0140 |
| |
| //#define MPPAPI_VERSION 0x0140 |
| |
| MPPAPI_VERSION = $0141; |
| |
| // Version-specific functions |
| //#define MPPVERSION_HAS_NAVIGATION 0x0139 |
| //#define MPPVERSION_HAS_SONGTIME 0x0141 |
| |
| MPPVERSION_HAS_NAVIGATION = $0139; |
| MPPVERSION_HAS_SONGTIME = $0141; |
| |
| // Error codes |
| //typedef long MPPERR; |
| // |
| //enum { |
| // MPPERR_NOERROR=0, |
| // MPPERR_FAILED, |
| // MPPERR_INVALIDPARAM, |
| //}; |
| |
| //enum { |
| // MPPSONG_INVALID=0, |
| // MPPSONG_MOD, |
| // MPPSONG_S3M, |
| // MPPSONG_XM, |
| // MPPSONG_IT, |
| // MPPSONG_MDL, |
| // MPPSONG_UNKNOWN=100 |
| //}; |
| MPPERR_NOERROR = 0; |
| MPPERR_FAILED = 1; |
| MPPERR_INVALIDPARAM = 2; |
| |
| MPPSONG_INVALID = 0; |
| MPPSONG_MOD = 1; |
| MPPSONG_S3M = 2; |
| MPPSONG_XM = 3; |
| MPPSONG_IT = 4; |
| MPPSONG_MDL = 5; |
| MPPSONG_UNKNOWN = 100; |
| |
| // Mixer Options MPPMIX_XXXX |
| //#define MPPMIX_NORESAMPLING 0x01 // Faster, but crappy quality |
| //#define MPPMIX_BASSEXPANSION 0x02 // Bass Expansion |
| //#define MPPMIX_SURROUND 0x04 // Surround Encoding |
| //#define MPPMIX_REVERB 0x08 // Reverb |
| //#define MPPMIX_LOOP 0x10 // Loop the song (backward jumps will be enabled) |
| //// v1.40+ flags |
| //#define MPPMIX_HIGHQUALITY 0x20 // HQ mixing (better resampling, dithering enabled) |
| //#define MPPMIX_GAINCONTROL 0x40 // Automatic Gain Control |
| //#define MPPMIX_NOISEREDUCTION 0x80 // Noise reduction (-6dB 22kHz lowpass filter) |
| |
| MPPMIX_NORESAMPLING = $01; // Faster, but crappy quality |
| MPPMIX_BASSEXPANSION = $02; // Bass Expansion |
| MPPMIX_SURROUND = $04; // Surround Encoding |
| MPPMIX_REVERB = $08; // Reverb |
| MPPMIX_LOOP = $10; // Loop the song (backward jumps will be enabled) |
| // v1.40+ flags |
| MPPMIX_HIGHQUALITY = $20; // HQ mixing (better resampling, dithering enabled) |
| MPPMIX_GAINCONTROL = $40; // Automatic Gain Control |
| MPPMIX_NOISEREDUCTION = $80; // Noise reduction (-6dB 22kHz lowpass filter) |
| |
| type |
| //========================== |
| //class MPPDLLEXPORT IModMixer |
| //========================== |
| (* { |
| public: |
| // Reference count: the initial reference count is 1, so you shouldn't have to call AddRef() |
| virtual unsigned long MPPAPI AddRef() = 0; |
| virtual unsigned long MPPAPI Release() = 0; |
| |
| // API Version: you should refuse to continue if the returned value is smaller than MPPAPI_VERSION |
| virtual unsigned long MPPAPI GetVersion() = 0; |
| |
| // Basic I/O Functions |
| virtual MPPERR MPPAPI LoadSong(const void *pmemfile, long len) = 0; |
| // Songs are always loaded from memory. The pointer pmemfile can be destroyed |
| // after the call to LoadSong. You can use memory-mapped files or a pointer returned |
| // by LockResource(), or whatever file in memory. |
| virtual MPPERR MPPAPI FreeSong() = 0; // Free the memory used by the song |
| |
| // Audio Rendering Functions: example: (44100, 2, 16) for 44.1kHz, stereo, 16-bit |
| virtual MPPERR MPPAPI SetWaveFormat(long samplespersec, long channels, long bitspersample) = 0; |
| // return # of SAMPLES that have been written to the buffer, 0 if end has been reached |
| // Note: protect calls to Render() and SetMixerOptions() by a critical section, if they |
| // are used in different threads. |
| virtual long MPPAPI Render(void *pbuffer, unsigned long bufsize) = 0; |
| |
| // Player Configuration: set of MPPMIX_XXXX |
| virtual MPPERR MPPAPI SetMixerOptions(unsigned long dwOptions) = 0; |
| virtual unsigned long MPPAPI GetMixerOptions() = 0; |
| |
| // Song Information |
| virtual long MPPAPI GetSongType() = 0; // Return MPPSONG_XXXX |
| virtual void MPPAPI GetSongName(char *pszbuf) = 0; // pszbuf must be at least 32-bytes |
| |
| ////////////////////////////////////////////////////////////////////////////////////// |
| // v1.39+: Navigation functions |
| // The order is the position in the pattern sequence list: this allows you to |
| // jump to a specific part of a song. It can be useful in a game with a song that |
| // uses pattern position jump effects (or pattern loops). |
| // These function will not be available if GetVersion() returns a value smaller than 0x139 (MPPVERSION_HAS_NAVIGATION) |
| virtual unsigned long MPPAPI GetNumOrders() = 0; |
| virtual unsigned long MPPAPI GetCurrentOrder() = 0; |
| virtual MPPERR MPPAPI SetCurrentOrder(unsigned long neworder) = 0; |
| |
| }; |
| *) |
| MppError = longint; |
| |
| PModMixer = ^IModMixer; |
| IModMixer = class |
| public |
| function AddRef:longint; virtual; stdcall; abstract; |
| function Release:longint; virtual; stdcall; abstract; |
| function GetVersion:longint; virtual; stdcall; abstract; |
| function LoadSong(const MemFile:pointer;Length:longint):MppError;virtual; stdcall; abstract; |
| function FreeSong:MppError;virtual; stdcall; abstract; |
| function SetWaveFormat(SamplesPerSec,channels,bitsPerSample:longint):MppError;virtual; stdcall; abstract; |
| function Render(Buffer:pointer;BufferSize:longint):MppError;virtual; stdcall; abstract; |
| function SetMixerOptions(dwOptions:longint):MppError;virtual; stdcall; abstract; |
| function GetMixerOptions:longint;virtual; stdcall; abstract; |
| function GetSongType:longint;virtual; stdcall; abstract; |
| procedure GetSongName(Buffer:PChar);virtual; stdcall; abstract; |
| function GetNumOrders:longint;virtual; stdcall; abstract; |
| function SetCurrentOrder(newOrder:longint):MppError;virtual; stdcall; abstract; |
| function GetSongLength:longint; virtual; stdcall; abstract; |
| end; |
| |
| var |
| MppSdkLibLoaded:Boolean; |
| ModMixer:IModMixer; |
| |
| implementation |
| |
| const MppSdkLibrary = 'mppsdk.dll'; |
| |
| var MppSdkLibHandle:THandle; |
| |
| //#define MPP_GETMODAPIFUNCNAME "MPP_GetModAPI" |
| //typedef MPPERR (MPPCDECL * MPP_GETMODAPIFUNC)(IModMixer **); |
| GetModAPI : function(MODMixer:PModMixer):MppError;cdecl; |
| |
| (* |
| * |
| * To get a pointer to the IModMixer interface, you can use the following functions: |
| * |
| * HMODULE hMPPSDK = (HMODULE)LoadLibrary("mppsdk.dll"); |
| * MPP_GETMODAPIFUNC pFunc = (MPP_GETMODAPIFUNC)GetProcAddress(hMPPSDK, MPP_GETMODAPIFUNCNAME); |
| * IModMixer *pMPPAPI; |
| * pFunc(&pMPPAPI); |
| * ... |
| * You can then access the MPP SDK API through the IModMixer interface |
| * |
| * When you are done: |
| * |
| * pMPPAPI->Release(); |
| * FreeLibrary(hMPPSDK); |
| * |
| *) |
| |
| //#endif // MPP_SND_SYS_H |
| |
| |
| {----------------------------------------------------------------------------} |
| {InitLibrary - will try to load the Mppsdk.dll and get the ModMixer object} |
| {----------------------------------------------------------------------------} |
| function InitLibrary:Boolean; |
| begin |
| Result := False; |
| |
| MppSdkLibHandle := LoadLibrary(MppSdkLibrary); |
| |
| if MppSdkLibHandle = 0 then |
| begin |
| Exit; |
| end; |
| |
| try |
| GetModAPI := GetProcAddress(MppSdkLibHandle,'MPP_GetModAPI'); |
| GetModAPI(@ModMixer); |
| Result := True; |
| except |
| Result := False; |
| end; |
| end; |
| {----------------------------------------------------------------------------} |
| {UnLoadLibrary - Will unload the Mppsdk.dll if it was loaded} |
| {----------------------------------------------------------------------------} |
| procedure UnLoadLibrary; |
| begin |
| if MppSdkLibLoaded then |
| begin |
| FreeLibrary(MppSdkLibHandle); |
| end; |
| end; |
| |
| {----------------------------------------------------------------------------} |
| {Automatic initialization and finalization - comment out if you want to |
| do this manually} |
| {----------------------------------------------------------------------------} |
| initialization |
| MppSdkLibLoaded:=InitLibrary; |
| finalization |
| UnloadLibrary; |
| end. |