1

/*********************************************************************

     2

 * OpenTTD: An Open Source Transport Tycoon Deluxe clone             *

     3

 * Copyright (c) 2002-2004 OpenTTD Developers. All Rights Reserved.  *

     4

 *                                                                   *

     5

 * Web site: http://openttd.sourceforge.net/                         *

     6

 *********************************************************************/

     7

     8

/*

     9

 * This program is free software; you can redistribute it and/or modify

    10

 * it under the terms of the GNU General Public License as published by

    11

 * the Free Software Foundation; either version 2 of the License, or

    12

 * (at your option) any later version.

    13

 *

    14

 * This program is distributed in the hope that it will be useful,

    15

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

    16

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

    17

 * GNU General Public License for more details.

    18

 *

    19

 * You should have received a copy of the GNU General Public License

    20

 * along with this program; if not, write to the Free Software

    21

 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

    22

 */

    23

    24

/* DirectMusic driver for Win32 */

    25

/* Based on dxmci from TTDPatch */

    26

    27

#include "stdafx.h"

    28

    29

#ifdef WIN32_ENABLE_DIRECTMUSIC_SUPPORT

    30

    31

// for gcc, the GUIDs are available in a library instead

    32

#ifndef __GNUC__

    33

#define INITGUID

    34

#endif

    35

    36

#ifdef __cplusplus

    37

	extern "C" {

    38

#endif

    39

    40

#include "openttd.h"

    41

#include "debug.h"

    42

#include "sound.h"

    43

#include "hal.h"

    44

    45

#ifdef __cplusplus

    46

	}

    47

#endif

    48

    49

#include <windows.h>

    50

#include <stdio.h>

    51

    52

#include <dmksctrl.h>

    53

#include <dmusici.h>

    54

#include <dmusicc.h>

    55

#include <dmusicf.h>

    56

    58

    63

    64

// the performance object controls manipulation of  the segments

    66

    67

// the segment object is where the MIDI data is stored for playback

    69

    70

// the loader bject can load many types of DMusic related files

    72

    73

// whether we've initialized COM or not (when deciding whether to shut down)

    75

    76

    77

extern "C" bool LoadLibraryList(void **proc, const char *dll);

    78

    79

// Use lazy linking

    80

struct ProcPtrs {

    81

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

    82

	HRESULT (WINAPI *CoInitialize)(  LPVOID pvReserved );

    83

	void (WINAPI *CoUninitialize)( );

    84

};

    85

    86

#define M(x) x "\0"

    87

static const char ole_files[] =

    88

	M("ole32.dll")

    89

	M("CoCreateInstance")

    90

	M("CoInitialize")

    91

	M("CoUninitialize")

    92

	M("")

    93

;

    94

#undef M

    95

    96

    97

static ProcPtrs _proc;

    98

    99

static bool LoadOleDLL(void)

   100

{

   101

	if (_proc.CoCreateInstance != NULL)

   102

		return true;

   103

	if (!LoadLibraryList((void**)&_proc, ole_files))

   104

		return false;

   105

	return true;

   106

}

   107

   108

   109

#ifdef __cplusplus

   110

extern "C" {

   111

#endif

   112

   113

// Initialize COM and DirectMusic

   115

{

   116

	if (NULL != performance)

   117

		return true;

   118

   119

	// Initialize COM

   120

	if (!COMInitialized) {

   121

		if (!LoadOleDLL()) {

   122

			MSGBOX("ole32.dll load failed");

   123

			return false;

   124

		}

   125

   126

		_proc.CoInitialize(NULL);

   127

		COMInitialized = 1;

   128

	}

   129

   130

	// Create the performance object via CoCreateInstance

   131

	if (FAILED(_proc.CoCreateInstance(

   139

		return false;

   140

	}

   141

   142

	// Initialize it

   143

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

   144

		MSGBOX("Failed to initialize performance object");

   145

		return false;

   146

	}

   147

   148

	// Choose default Windows synth

   150

		MSGBOX("AddPort failed");

   151

		return false;

   152

	}

   153

   154

	// now we'll create the loader object. This will be used to load the

   155

	// midi file for our demo. Again, we need to use CoCreateInstance

   156

	// and pass the appropriate ID parameters

   164

		MSGBOX("Failed to create loader object");

   165

		return false;

   166

	}

   167

   168

	// that's it for initialization. If we made it this far we

   169

	// were successful.

   170

	return true;

   171

}

   172

   173

// Releases memory used by all of the initialized

   174

// DirectMusic objects in the program

   176

{

   177

	if (NULL != segment) {

   179

		segment = NULL;

   180

	}

   181

}

   184

{

   185

	// release everything but the segment, which the performance

   186

	// will release automatically (and it'll crash if it's been

   187

	// released already)

   188

   189

	if (NULL != loader) {

   191

		loader = NULL;

   192

	}

   193

   197

		performance = NULL;

   198

	}

   199

   200

	if (COMInitialized) {

   201

		_proc.CoUninitialize();

   202

		COMInitialized = 0;

   203

	}

   204

}

   205

   206

// Load MIDI file for playing

   208

{

   209

	DMUS_OBJECTDESC obj_desc;

   210

	WCHAR w_directory[_MAX_PATH];	// utf-16 version of the directory name.

   211

	WCHAR w_filename[_MAX_PATH];	// utf-16 version of the file name

   212

   213

	if (NULL == performance)

   214

		return false;

   215

   217

   221

		MSGBOX("LoadMIDI: SetSearchDirectory failed");

   222

		return false;

   223

	}

   224

   225

	// set up the loader object info

   228

   230

	obj_desc.guidClass = CLSID_DirectMusicSegment;

   231

   233

	obj_desc.dwValidData = DMUS_OBJ_CLASS | DMUS_OBJ_FILENAME;

   234

   235

	// release the existing segment if we have any

   236

	if (NULL != segment)

   237

		ReleaseSegment();

   238

   239

	// and make a new segment

   243

		MSGBOX("LoadMIDI: Get object failed");

   245

	}

   246

   247

	// next we need to tell the segment what kind of data it contains. We do this

   248

	// with the IDirectMusicSegment::SetParam function.

   252

		MSGBOX("LoadMIDI: SetParam (MIDI file) failed");

   253

		return false;

   254

	}

   255

   256

	// finally, we need to tell the segment to 'download' the instruments

   258

		MSGBOX("LoadMIDI: Failed to download instruments");

   259

		return false;

   260

	}

   261

   262

	// at this point, the MIDI file is loaded and ready to play!

   263

	return true;

   264

}

   265

   266

// Start playing the MIDI file

   268

{

   269

	if (NULL == performance)

   270

		return;

   271

   272

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

   273

		MSGBOX("PlaySegment failed");

   274

	}

   275

}

   276

   277

// Stop playing

   279

{

   280

	if (NULL == performance || NULL == segment)

   281

		return;

   282

   283

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

   284

		MSGBOX("StopSegment failed");

   285

	}

   286

}

   287

   288

// Find out whether playing has started or stopped

   290

{

   291

	if (NULL == performance || NULL == segment)

   293

   294

	// IsPlaying return S_OK if the segment is currently playing

   296

}

   297

   298

void SetVolume(long vol)

   299

{

   300

	long db;

   301

   302

	if (performance == NULL && !InitDirectMusic())

   303

		return;

   304

   305

	db = ((vol >> 21) & 0x7ff) - 1000;

   306

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

   307

}

   308

   309

#if defined(__cplusplus)

   310

}

   311

#endif

   312

   313

#endif /* WIN32_ENABLE_DIRECTMUSIC_SUPPORT */