1

/* $Id$ */

     2

     5

#ifdef WIN32_ENABLE_DIRECTMUSIC_SUPPORT

     6

     7

#include "../stdafx.h"

     8

#include "../debug.h"

     9

#include "../win32.h"

    10

#include "dmusic.h"

    11

    12

#include <windows.h>

    13

#include <dmksctrl.h>

    14

#include <dmusici.h>

    15

#include <dmusicc.h>

    16

#include <dmusicf.h>

    17

    18

    20

static IDirectMusicPerformance* performance = NULL;

    21

    23

static IDirectMusicLoader* loader = NULL;

    24

    26

static IDirectMusicSegment* segment = NULL;

    27

    28

static bool seeking = false;

    29

    30

    31

#define M(x) x "\0"

    32

static const char ole_files[] =

    33

	M("ole32.dll")

    34

	M("CoCreateInstance")

    35

	M("CoInitialize")

    36

	M("CoUninitialize")

    37

	M("")

    38

;

    39

#undef M

    40

    41

struct ProcPtrs {

    42

	unsigned long (WINAPI * CoCreateInstance)(REFCLSID rclsid, LPUNKNOWN pUnkOuter, DWORD dwClsContext, REFIID riid, LPVOID* ppv);

    43

	HRESULT (WINAPI * CoInitialize)(LPVOID pvReserved);

    44

	void (WINAPI * CoUninitialize)();

    45

};

    46

    47

static ProcPtrs proc;

    48

    49

    50

static const char* DMusicMidiStart(const char* const* parm)

    51

{

    52

	if (performance != NULL) return NULL;

    53

    54

	if (proc.CoCreateInstance == NULL) {

    55

		if (!LoadLibraryList((Function*)&proc, ole_files))

    56

			return "ole32.dll load failed";

    57

	}

    58

    60

	if (FAILED(proc.CoInitialize(NULL))) {

    61

		return "COM initialization failed";

    62

	}

    63

    65

	if (FAILED(proc.CoCreateInstance(

    66

				CLSID_DirectMusicPerformance,

    67

				NULL,

    68

				CLSCTX_INPROC,

    69

				IID_IDirectMusicPerformance,

    70

				(LPVOID*)&performance

    71

			))) {

    72

		proc.CoUninitialize();

    73

		return "Failed to create the performance object";

    74

	}

    75

    77

	if (FAILED(performance->Init(NULL, NULL, NULL))) {

    78

		performance->Release();

    79

		performance = NULL;

    80

		proc.CoUninitialize();

    81

		return "Failed to initialize performance object";

    82

	}

    83

    85

	if (FAILED(performance->AddPort(NULL))) {

    86

		performance->CloseDown();

    87

		performance->Release();

    88

		performance = NULL;

    89

		proc.CoUninitialize();

    90

		return "AddPort failed";

    91

	}

    92

    94

	if (FAILED(proc.CoCreateInstance(

    95

				CLSID_DirectMusicLoader,

    96

				NULL,

    97

				CLSCTX_INPROC,

    98

				IID_IDirectMusicLoader,

    99

				(LPVOID*)&loader

   100

			))) {

   101

		performance->CloseDown();

   102

		performance->Release();

   103

		performance = NULL;

   104

		proc.CoUninitialize();

   105

		return "Failed to create loader object";

   106

	}

   107

   108

	return NULL;

   109

}

   110

   111

   112

static void DMusicMidiStop()

   113

{

   114

	seeking = false;

   115

   116

	if (performance != NULL) performance->Stop(NULL, NULL, 0, 0);

   117

   118

	if (segment != NULL) {

   119

		segment->SetParam(GUID_Unload, 0xFFFFFFFF, 0, 0, performance);

   120

		segment->Release();

   121

		segment = NULL;

   122

	}

   123

   124

	if (performance != NULL) {

   125

		performance->CloseDown();

   126

		performance->Release();

   127

		performance = NULL;

   128

	}

   129

   130

	if (loader != NULL) {

   131

		loader->Release();

   132

		loader = NULL;

   133

	}

   134

   135

	proc.CoUninitialize();

   136

}

   137

   138

   139

static void DMusicMidiPlaySong(const char* filename)

   140

{

   142

	DMUS_OBJECTDESC obj_desc;

   143

	ZeroMemory(&obj_desc, sizeof(obj_desc));

   144

	obj_desc.dwSize = sizeof(obj_desc);

   145

	obj_desc.guidClass = CLSID_DirectMusicSegment;

   146

	obj_desc.dwValidData = DMUS_OBJ_CLASS | DMUS_OBJ_FILENAME | DMUS_OBJ_FULLPATH;

   147

	MultiByteToWideChar(

   148

		CP_ACP, MB_PRECOMPOSED,

   149

		filename, -1,

   150

		obj_desc.wszFileName, lengthof(obj_desc.wszFileName)

   151

	);

   152

   154

	if (segment != NULL) {

   155

		segment->Release();

   156

		segment = NULL;

   157

	}

   158

   160

	if (FAILED(loader->GetObject(

   161

				&obj_desc, IID_IDirectMusicSegment, (LPVOID*)&segment

   162

			))) {

   163

		DEBUG(driver, 0, "DirectMusic: GetObject failed");

   164

		return;

   165

	}

   166

   168

	if (FAILED(segment->SetParam(

   169

				GUID_StandardMIDIFile, 0xFFFFFFFF, 0, 0, performance

   170

			))) {

   171

		DEBUG(driver, 0, "DirectMusic: SetParam (MIDI file) failed");

   172

		return;

   173

	}

   174

   176

	if (FAILED(segment->SetParam(GUID_Download, 0xFFFFFFFF, 0, 0, performance))) {

   177

		DEBUG(driver, 0, "DirectMusic: failed to download instruments");

   178

		return;

   179

	}

   180

   182

	if (FAILED(performance->PlaySegment(segment, 0, 0, NULL))) {

   183

		DEBUG(driver, 0, "DirectMusic: PlaySegment failed");

   184

		return;

   185

	}

   186

   187

	seeking = true;

   188

}

   189

   190

   191

static void DMusicMidiStopSong()

   192

{

   193

	if (FAILED(performance->Stop(segment, NULL, 0, 0))) {

   194

		DEBUG(driver, 0, "DirectMusic: StopSegment failed");

   195

	}

   196

	seeking = false;

   197

}

   198

   199

   200

static bool DMusicMidiIsSongPlaying()

   201

{

   202

	/* Not the nicest code, but there is a short delay before playing actually

   203

	 * starts. OpenTTD makes no provision for this. */

   204

	if (performance->IsPlaying(segment, NULL) == S_OK) {

   205

		seeking = false;

   206

		return true;

   207

	} else {

   208

		return seeking;

   209

	}

   210

}

   211

   212

   213

static void DMusicMidiSetVolume(byte vol)

   214

{

   216

	performance->SetGlobalParam(GUID_PerfMasterVolume, &db, sizeof(db));

   217

}

   218

   219

   220

const HalMusicDriver _dmusic_midi_driver = {

   221

	DMusicMidiStart,

   222

	DMusicMidiStop,

   223

	DMusicMidiPlaySong,

   224

	DMusicMidiStopSong,

   225

	DMusicMidiIsSongPlaying,

   226

	DMusicMidiSetVolume,

   227

};

   228

   229

#endif /* WIN32_ENABLE_DIRECTMUSIC_SUPPORT */