12 #ifdef WIN32_ENABLE_DIRECTMUSIC_SUPPORT
15 #include "../stdafx.h"
16 #ifdef WIN32_LEAN_AND_MEAN
17 #undef WIN32_LEAN_AND_MEAN // Don't exclude rarely-used stuff from Windows headers
20 #include "../os/windows/win32.h"
21 #include "../core/mem_func.hpp"
30 #include "../safeguards.h"
35 static IDirectMusic *music = NULL;
38 static IDirectMusicPerformance *performance = NULL;
41 static IDirectMusicLoader *loader = NULL;
44 static IDirectMusicSegment *segment = NULL;
46 static bool seeking =
false;
50 static const char ole_files[] =
60 unsigned long (WINAPI * CoCreateInstance)(REFCLSID rclsid, LPUNKNOWN pUnkOuter, DWORD dwClsContext, REFIID riid, LPVOID *ppv);
61 HRESULT (WINAPI * CoInitialize)(LPVOID pvReserved);
62 void (WINAPI * CoUninitialize)();
70 if (performance != NULL)
return NULL;
72 if (proc.CoCreateInstance == NULL) {
74 return "ole32.dll load failed";
79 if (FAILED(proc.CoInitialize(NULL))) {
80 return "COM initialization failed";
84 if (FAILED(proc.CoCreateInstance(
85 CLSID_DirectMusicPerformance,
88 IID_IDirectMusicPerformance,
91 return "Failed to create the performance object";
95 if (FAILED(performance->Init(&music, NULL, NULL))) {
96 return "Failed to initialize performance object";
101 #ifndef NO_DEBUG_MESSAGES
102 if (_debug_driver_level > 0) {
104 char desc[DMUS_MAX_DESCRIPTION];
108 caps.dwSize =
sizeof(DMUS_PORTCAPS);
110 DEBUG(driver, 1,
"Detected DirectMusic ports:");
111 for (
int i = 0; music->EnumPort(i, &caps) == S_OK; i++) {
112 if (caps.dwClass == DMUS_PC_OUTPUTCLASS) {
120 IDirectMusicPort *music_port = NULL;
126 caps.dwSize =
sizeof(DMUS_PORTCAPS);
127 if (FAILED(music->EnumPort(port, &caps)))
return "Supplied port parameter is not a valid port";
128 if (caps.dwClass != DMUS_PC_OUTPUTCLASS)
return "Supplied port parameter is not an output port";
131 DMUS_PORTPARAMS params;
133 params.dwSize =
sizeof(DMUS_PORTPARAMS);
134 params.dwValidParams = DMUS_PORTPARAMS_CHANNELGROUPS;
135 params.dwChannelGroups = 1;
137 if (FAILED(music->CreatePort(caps.guidPort, ¶ms, &music_port, NULL))) {
138 return "Failed to create port";
142 if (FAILED(music_port->Activate(TRUE))) {
143 music_port->Release();
144 return "Failed to activate port";
149 if (FAILED(performance->AddPort(music_port))) {
150 if (music_port != NULL) music_port->Release();
151 return "AddPort failed";
156 if (music_port != NULL) {
157 if (FAILED(performance->AssignPChannelBlock(0, music_port, 1))) {
158 music_port->Release();
159 return "Failed to assign PChannel block";
162 music_port->Release();
166 if (FAILED(proc.CoCreateInstance(
167 CLSID_DirectMusicLoader,
170 IID_IDirectMusicLoader,
173 return "Failed to create loader object";
180 MusicDriver_DMusic::~MusicDriver_DMusic()
190 if (performance != NULL) performance->Stop(NULL, NULL, 0, 0);
192 if (segment != NULL) {
193 segment->SetParam(GUID_Unload, 0xFFFFFFFF, 0, 0, performance);
203 if (performance != NULL) {
204 performance->CloseDown();
205 performance->Release();
209 if (loader != NULL) {
214 proc.CoUninitialize();
221 DMUS_OBJECTDESC obj_desc;
222 ZeroMemory(&obj_desc,
sizeof(obj_desc));
223 obj_desc.dwSize =
sizeof(obj_desc);
224 obj_desc.guidClass = CLSID_DirectMusicSegment;
225 obj_desc.dwValidData = DMUS_OBJ_CLASS | DMUS_OBJ_FILENAME | DMUS_OBJ_FULLPATH;
227 CP_ACP, MB_PRECOMPOSED,
229 obj_desc.wszFileName,
lengthof(obj_desc.wszFileName)
233 if (segment != NULL) {
239 if (FAILED(loader->GetObject(
240 &obj_desc, IID_IDirectMusicSegment, (LPVOID*)&segment
242 DEBUG(driver, 0,
"DirectMusic: GetObject failed");
247 if (FAILED(segment->SetParam(
248 GUID_StandardMIDIFile, 0xFFFFFFFF, 0, 0, performance
250 DEBUG(driver, 0,
"DirectMusic: SetParam (MIDI file) failed");
255 if (FAILED(segment->SetParam(GUID_Download, 0xFFFFFFFF, 0, 0, performance))) {
256 DEBUG(driver, 0,
"DirectMusic: failed to download instruments");
261 if (FAILED(performance->PlaySegment(segment, 0, 0, NULL))) {
262 DEBUG(driver, 0,
"DirectMusic: PlaySegment failed");
272 if (FAILED(performance->Stop(segment, NULL, 0, 0))) {
273 DEBUG(driver, 0,
"DirectMusic: StopSegment failed");
283 if (performance->IsPlaying(segment, NULL) == S_OK) {
294 long db = vol * 2000 / 127 - 2000;
295 performance->SetGlobalParam(GUID_PerfMasterVolume, &db,
sizeof(db));