3 * Copyright (C) 2003-2004 Rok Mandeljc
4 * Copyright (C) 2003-2004 Raphael Junqueira
6 * This program is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this program; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 #include "wine/port.h"
28 #include "dmscript_private.h"
31 WINE_DEFAULT_DEBUG_CHANNEL(dmscript
);
32 WINE_DECLARE_DEBUG_CHANNEL(dmfile
);
35 /*****************************************************************************
36 * IDirectMusicScriptImpl implementation
38 typedef struct IDirectMusicScriptImpl
{
39 IDirectMusicScript IDirectMusicScript_iface
;
40 struct dmobject dmobj
;
42 IDirectMusicPerformance
*pPerformance
;
43 DMUS_IO_SCRIPT_HEADER
*pHeader
;
44 DMUS_IO_VERSION
*pVersion
;
47 } IDirectMusicScriptImpl
;
49 static inline IDirectMusicScriptImpl
*impl_from_IDirectMusicScript(IDirectMusicScript
*iface
)
51 return CONTAINING_RECORD(iface
, IDirectMusicScriptImpl
, IDirectMusicScript_iface
);
54 static HRESULT WINAPI
IDirectMusicScriptImpl_QueryInterface(IDirectMusicScript
*iface
, REFIID riid
,
57 IDirectMusicScriptImpl
*This
= impl_from_IDirectMusicScript(iface
);
59 TRACE("(%p, %s, %p)\n", This
, debugstr_dmguid(riid
), ret_iface
);
63 if (IsEqualIID(riid
, &IID_IUnknown
) || IsEqualIID(riid
, &IID_IDirectMusicScript
))
65 else if (IsEqualIID(riid
, &IID_IDirectMusicObject
))
66 *ret_iface
= &This
->dmobj
.IDirectMusicObject_iface
;
67 else if (IsEqualIID(riid
, &IID_IPersistStream
))
68 *ret_iface
= &This
->dmobj
.IPersistStream_iface
;
70 WARN("(%p, %s, %p): not found\n", This
, debugstr_dmguid(riid
), ret_iface
);
74 IUnknown_AddRef((IUnknown
*)*ret_iface
);
78 static ULONG WINAPI
IDirectMusicScriptImpl_AddRef(IDirectMusicScript
*iface
)
80 IDirectMusicScriptImpl
*This
= impl_from_IDirectMusicScript(iface
);
81 LONG ref
= InterlockedIncrement(&This
->ref
);
83 TRACE("(%p) ref=%d\n", This
, ref
);
88 static ULONG WINAPI
IDirectMusicScriptImpl_Release(IDirectMusicScript
*iface
)
90 IDirectMusicScriptImpl
*This
= impl_from_IDirectMusicScript(iface
);
91 LONG ref
= InterlockedDecrement(&This
->ref
);
93 TRACE("(%p) ref=%d\n", This
, ref
);
96 HeapFree(GetProcessHeap(), 0, This
->pHeader
);
97 HeapFree(GetProcessHeap(), 0, This
->pVersion
);
98 HeapFree(GetProcessHeap(), 0, This
->pwzLanguage
);
99 HeapFree(GetProcessHeap(), 0, This
->pwzSource
);
100 HeapFree(GetProcessHeap(), 0, This
);
101 DMSCRIPT_UnlockModule();
107 static HRESULT WINAPI
IDirectMusicScriptImpl_Init(IDirectMusicScript
*iface
,
108 IDirectMusicPerformance
*pPerformance
, DMUS_SCRIPT_ERRORINFO
*pErrorInfo
)
110 IDirectMusicScriptImpl
*This
= impl_from_IDirectMusicScript(iface
);
111 FIXME("(%p, %p, %p): stub\n", This
, pPerformance
, pErrorInfo
);
112 This
->pPerformance
= pPerformance
;
116 static HRESULT WINAPI
IDirectMusicScriptImpl_CallRoutine(IDirectMusicScript
*iface
,
117 WCHAR
*pwszRoutineName
, DMUS_SCRIPT_ERRORINFO
*pErrorInfo
)
119 IDirectMusicScriptImpl
*This
= impl_from_IDirectMusicScript(iface
);
120 FIXME("(%p, %s, %p): stub\n", This
, debugstr_w(pwszRoutineName
), pErrorInfo
);
121 /*return E_NOTIMPL;*/
126 static HRESULT WINAPI
IDirectMusicScriptImpl_SetVariableVariant(IDirectMusicScript
*iface
,
127 WCHAR
*pwszVariableName
, VARIANT varValue
, BOOL fSetRef
, DMUS_SCRIPT_ERRORINFO
*pErrorInfo
)
129 IDirectMusicScriptImpl
*This
= impl_from_IDirectMusicScript(iface
);
130 FIXME("(%p, %s, FIXME, %d, %p): stub\n", This
, debugstr_w(pwszVariableName
),/* varValue,*/ fSetRef
, pErrorInfo
);
134 static HRESULT WINAPI
IDirectMusicScriptImpl_GetVariableVariant(IDirectMusicScript
*iface
,
135 WCHAR
*pwszVariableName
, VARIANT
*pvarValue
, DMUS_SCRIPT_ERRORINFO
*pErrorInfo
)
137 IDirectMusicScriptImpl
*This
= impl_from_IDirectMusicScript(iface
);
138 FIXME("(%p, %s, %p, %p): stub\n", This
, debugstr_w(pwszVariableName
), pvarValue
, pErrorInfo
);
142 static HRESULT WINAPI
IDirectMusicScriptImpl_SetVariableNumber(IDirectMusicScript
*iface
,
143 WCHAR
*pwszVariableName
, LONG lValue
, DMUS_SCRIPT_ERRORINFO
*pErrorInfo
)
145 IDirectMusicScriptImpl
*This
= impl_from_IDirectMusicScript(iface
);
146 FIXME("(%p, %s, %i, %p): stub\n", This
, debugstr_w(pwszVariableName
), lValue
, pErrorInfo
);
150 static HRESULT WINAPI
IDirectMusicScriptImpl_GetVariableNumber(IDirectMusicScript
*iface
,
151 WCHAR
*pwszVariableName
, LONG
*plValue
, DMUS_SCRIPT_ERRORINFO
*pErrorInfo
)
153 IDirectMusicScriptImpl
*This
= impl_from_IDirectMusicScript(iface
);
154 FIXME("(%p, %s, %p, %p): stub\n", This
, debugstr_w(pwszVariableName
), plValue
, pErrorInfo
);
158 static HRESULT WINAPI
IDirectMusicScriptImpl_SetVariableObject(IDirectMusicScript
*iface
,
159 WCHAR
*pwszVariableName
, IUnknown
*punkValue
, DMUS_SCRIPT_ERRORINFO
*pErrorInfo
)
161 IDirectMusicScriptImpl
*This
= impl_from_IDirectMusicScript(iface
);
162 FIXME("(%p, %s, %p, %p): stub\n", This
, debugstr_w(pwszVariableName
), punkValue
, pErrorInfo
);
166 static HRESULT WINAPI
IDirectMusicScriptImpl_GetVariableObject(IDirectMusicScript
*iface
,
167 WCHAR
*pwszVariableName
, REFIID riid
, void **ppv
, DMUS_SCRIPT_ERRORINFO
*pErrorInfo
)
169 IDirectMusicScriptImpl
*This
= impl_from_IDirectMusicScript(iface
);
170 FIXME("(%p, %s, %s, %p, %p): stub\n", This
, debugstr_w(pwszVariableName
), debugstr_dmguid(riid
), ppv
, pErrorInfo
);
174 static HRESULT WINAPI
IDirectMusicScriptImpl_EnumRoutine(IDirectMusicScript
*iface
, DWORD dwIndex
,
177 IDirectMusicScriptImpl
*This
= impl_from_IDirectMusicScript(iface
);
178 FIXME("(%p, %d, %p): stub\n", This
, dwIndex
, pwszName
);
182 static HRESULT WINAPI
IDirectMusicScriptImpl_EnumVariable(IDirectMusicScript
*iface
, DWORD dwIndex
,
185 IDirectMusicScriptImpl
*This
= impl_from_IDirectMusicScript(iface
);
186 FIXME("(%p, %d, %p): stub\n", This
, dwIndex
, pwszName
);
190 static const IDirectMusicScriptVtbl dmscript_vtbl
= {
191 IDirectMusicScriptImpl_QueryInterface
,
192 IDirectMusicScriptImpl_AddRef
,
193 IDirectMusicScriptImpl_Release
,
194 IDirectMusicScriptImpl_Init
,
195 IDirectMusicScriptImpl_CallRoutine
,
196 IDirectMusicScriptImpl_SetVariableVariant
,
197 IDirectMusicScriptImpl_GetVariableVariant
,
198 IDirectMusicScriptImpl_SetVariableNumber
,
199 IDirectMusicScriptImpl_GetVariableNumber
,
200 IDirectMusicScriptImpl_SetVariableObject
,
201 IDirectMusicScriptImpl_GetVariableObject
,
202 IDirectMusicScriptImpl_EnumRoutine
,
203 IDirectMusicScriptImpl_EnumVariable
206 /* IDirectMusicScriptImpl IDirectMusicObject part: */
207 static inline IDirectMusicScriptImpl
*impl_from_IDirectMusicObject(IDirectMusicObject
*iface
)
209 return CONTAINING_RECORD(iface
, IDirectMusicScriptImpl
, dmobj
.IDirectMusicObject_iface
);
212 static HRESULT WINAPI
script_IDirectMusicObject_ParseDescriptor(IDirectMusicObject
*iface
,
213 IStream
*stream
, DMUS_OBJECTDESC
*desc
)
215 struct chunk_entry riff
= {0};
218 TRACE("(%p, %p, %p)\n", iface
, stream
, desc
);
220 if (!stream
|| !desc
)
223 if ((hr
= stream_get_chunk(stream
, &riff
)) != S_OK
)
225 if (riff
.id
!= FOURCC_RIFF
|| riff
.type
!= DMUS_FOURCC_SCRIPT_FORM
) {
226 TRACE("loading failed: unexpected %s\n", debugstr_chunk(&riff
));
227 stream_skip_chunk(stream
, &riff
);
228 return DMUS_E_SCRIPT_INVALID_FILE
;
231 hr
= dmobj_parsedescriptor(stream
, &riff
, desc
,
232 DMUS_OBJ_OBJECT
|DMUS_OBJ_NAME
|DMUS_OBJ_NAME_INAM
|DMUS_OBJ_CATEGORY
|DMUS_OBJ_VERSION
);
236 if (desc
->dwValidData
) {
237 desc
->guidClass
= CLSID_DirectMusicScript
;
238 desc
->dwValidData
|= DMUS_OBJ_CLASS
;
241 TRACE("returning descriptor:\n%s\n", debugstr_DMUS_OBJECTDESC(desc
));
245 static const IDirectMusicObjectVtbl dmobject_vtbl
= {
246 dmobj_IDirectMusicObject_QueryInterface
,
247 dmobj_IDirectMusicObject_AddRef
,
248 dmobj_IDirectMusicObject_Release
,
249 dmobj_IDirectMusicObject_GetDescriptor
,
250 dmobj_IDirectMusicObject_SetDescriptor
,
251 script_IDirectMusicObject_ParseDescriptor
254 /* IDirectMusicScriptImpl IPersistStream part: */
255 static inline IDirectMusicScriptImpl
*impl_from_IPersistStream(IPersistStream
*iface
)
257 return CONTAINING_RECORD(iface
, IDirectMusicScriptImpl
, dmobj
.IPersistStream_iface
);
260 static HRESULT WINAPI
IPersistStreamImpl_Load(IPersistStream
*iface
, IStream
*pStm
)
262 IDirectMusicScriptImpl
*This
= impl_from_IPersistStream(iface
);
263 DMUS_PRIVATE_CHUNK Chunk
;
264 DWORD StreamSize
, StreamCount
, ListSize
[3], ListCount
[3];
265 LARGE_INTEGER liMove
; /* used when skipping chunks */
266 LPDIRECTMUSICGETLOADER pGetLoader
= NULL
;
267 LPDIRECTMUSICLOADER pLoader
= NULL
;
269 FIXME("(%p, %p): Loading not implemented yet\n", This
, pStm
);
270 IStream_Read (pStm
, &Chunk
, sizeof(FOURCC
)+sizeof(DWORD
), NULL
);
271 TRACE_(dmfile
)(": %s chunk (size = %d)", debugstr_fourcc (Chunk
.fccID
), Chunk
.dwSize
);
272 switch (Chunk
.fccID
) {
274 IStream_Read (pStm
, &Chunk
.fccID
, sizeof(FOURCC
), NULL
);
275 TRACE_(dmfile
)(": RIFF chunk of type %s", debugstr_fourcc(Chunk
.fccID
));
276 StreamSize
= Chunk
.dwSize
- sizeof(FOURCC
);
278 switch (Chunk
.fccID
) {
279 case DMUS_FOURCC_SCRIPT_FORM
: {
280 TRACE_(dmfile
)(": script form\n");
282 IStream_Read (pStm
, &Chunk
, sizeof(FOURCC
)+sizeof(DWORD
), NULL
);
283 StreamCount
+= sizeof(FOURCC
) + sizeof(DWORD
) + Chunk
.dwSize
;
284 TRACE_(dmfile
)(": %s chunk (size = %d)", debugstr_fourcc (Chunk
.fccID
), Chunk
.dwSize
);
285 switch (Chunk
.fccID
) {
286 case DMUS_FOURCC_SCRIPT_CHUNK
: {
287 TRACE_(dmfile
)(": script header chunk\n");
288 This
->pHeader
= HeapAlloc (GetProcessHeap (), HEAP_ZERO_MEMORY
, Chunk
.dwSize
);
289 IStream_Read (pStm
, This
->pHeader
, Chunk
.dwSize
, NULL
);
292 case DMUS_FOURCC_SCRIPTVERSION_CHUNK
: {
293 TRACE_(dmfile
)(": script version chunk\n");
294 This
->pVersion
= HeapAlloc (GetProcessHeap (), HEAP_ZERO_MEMORY
, Chunk
.dwSize
);
295 IStream_Read (pStm
, This
->pVersion
, Chunk
.dwSize
, NULL
);
296 TRACE_(dmfile
)("version: 0x%08x.0x%08x\n", This
->pVersion
->dwVersionMS
, This
->pVersion
->dwVersionLS
);
299 case DMUS_FOURCC_SCRIPTLANGUAGE_CHUNK
: {
300 TRACE_(dmfile
)(": script language chunk\n");
301 This
->pwzLanguage
= HeapAlloc (GetProcessHeap (), HEAP_ZERO_MEMORY
, Chunk
.dwSize
);
302 IStream_Read (pStm
, This
->pwzLanguage
, Chunk
.dwSize
, NULL
);
303 TRACE_(dmfile
)("using language: %s\n", debugstr_w(This
->pwzLanguage
));
306 case DMUS_FOURCC_SCRIPTSOURCE_CHUNK
: {
307 TRACE_(dmfile
)(": script source chunk\n");
308 This
->pwzSource
= HeapAlloc (GetProcessHeap (), HEAP_ZERO_MEMORY
, Chunk
.dwSize
);
309 IStream_Read (pStm
, This
->pwzSource
, Chunk
.dwSize
, NULL
);
310 if (TRACE_ON(dmscript
)) {
311 int count
= WideCharToMultiByte(CP_ACP
, 0, This
->pwzSource
, -1, NULL
, 0, NULL
, NULL
);
312 LPSTR str
= HeapAlloc(GetProcessHeap (), 0, count
);
313 WideCharToMultiByte(CP_ACP
, 0, This
->pwzSource
, -1, str
, count
, NULL
, NULL
);
316 write( 2, str
, count
);
317 HeapFree(GetProcessHeap(), 0, str
);
321 case DMUS_FOURCC_GUID_CHUNK
: {
322 TRACE_(dmfile
)(": GUID chunk\n");
323 This
->dmobj
.desc
.dwValidData
|= DMUS_OBJ_OBJECT
;
324 IStream_Read (pStm
, &This
->dmobj
.desc
.guidObject
, Chunk
.dwSize
, NULL
);
327 case DMUS_FOURCC_VERSION_CHUNK
: {
328 TRACE_(dmfile
)(": version chunk\n");
329 This
->dmobj
.desc
.dwValidData
|= DMUS_OBJ_VERSION
;
330 IStream_Read (pStm
, &This
->dmobj
.desc
.vVersion
, Chunk
.dwSize
, NULL
);
333 case DMUS_FOURCC_CATEGORY_CHUNK
: {
334 TRACE_(dmfile
)(": category chunk\n");
335 This
->dmobj
.desc
.dwValidData
|= DMUS_OBJ_CATEGORY
;
336 IStream_Read (pStm
, This
->dmobj
.desc
.wszCategory
, Chunk
.dwSize
, NULL
);
340 IDirectMusicObject
* pObject
= NULL
;
341 DMUS_OBJECTDESC desc
;
343 ZeroMemory (&desc
, sizeof(DMUS_OBJECTDESC
));
344 desc
.dwSize
= sizeof(DMUS_OBJECTDESC
);
345 desc
.dwValidData
= DMUS_OBJ_STREAM
| DMUS_OBJ_CLASS
;
346 desc
.guidClass
= CLSID_DirectMusicContainer
;
348 IStream_Clone (pStm
, &desc
.pStream
);
351 liMove
.QuadPart
-= (sizeof(FOURCC
) + sizeof(DWORD
));
352 IStream_Seek (desc
.pStream
, liMove
, STREAM_SEEK_CUR
, NULL
);
354 IStream_QueryInterface (pStm
, &IID_IDirectMusicGetLoader
, (LPVOID
*)&pGetLoader
);
355 IDirectMusicGetLoader_GetLoader (pGetLoader
, &pLoader
);
356 IDirectMusicGetLoader_Release (pGetLoader
);
358 if (SUCCEEDED(IDirectMusicLoader_GetObject (pLoader
, &desc
, &IID_IDirectMusicObject
, (LPVOID
*) &pObject
))) {
359 IDirectMusicObject_Release (pObject
);
361 ERR_(dmfile
)("Error on GetObject while trying to load Scrip SubContainer\n");
364 IDirectMusicLoader_Release (pLoader
); pLoader
= NULL
; /* release loader */
365 IStream_Release(desc
.pStream
); desc
.pStream
= NULL
; /* release cloned stream */
367 liMove
.QuadPart
= Chunk
.dwSize
;
368 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
370 IStream_Read (pStm, &Chunk.fccID, sizeof(FOURCC), NULL);
371 TRACE_(dmfile)(": RIFF chunk of type %s", debugstr_fourcc(Chunk.fccID));
372 ListSize[0] = Chunk.dwSize - sizeof(FOURCC);
375 switch (Chunk.fccID) {
377 TRACE_(dmfile)(": unknown (skipping)\n");
378 liMove.QuadPart = Chunk.dwSize - sizeof(FOURCC);
379 IStream_Seek (pStm, liMove, STREAM_SEEK_CUR, NULL);
387 IStream_Read (pStm
, &Chunk
.fccID
, sizeof(FOURCC
), NULL
);
388 TRACE_(dmfile
)(": LIST chunk of type %s", debugstr_fourcc(Chunk
.fccID
));
389 ListSize
[0] = Chunk
.dwSize
- sizeof(FOURCC
);
391 switch (Chunk
.fccID
) {
392 case DMUS_FOURCC_UNFO_LIST
: {
393 TRACE_(dmfile
)(": UNFO list\n");
395 IStream_Read (pStm
, &Chunk
, sizeof(FOURCC
)+sizeof(DWORD
), NULL
);
396 ListCount
[0] += sizeof(FOURCC
) + sizeof(DWORD
) + Chunk
.dwSize
;
397 TRACE_(dmfile
)(": %s chunk (size = %d)", debugstr_fourcc (Chunk
.fccID
), Chunk
.dwSize
);
398 switch (Chunk
.fccID
) {
399 /* don't ask me why, but M$ puts INFO elements in UNFO list sometimes
400 (though strings seem to be valid unicode) */
401 case mmioFOURCC('I','N','A','M'):
402 case DMUS_FOURCC_UNAM_CHUNK
: {
403 TRACE_(dmfile
)(": name chunk\n");
404 This
->dmobj
.desc
.dwValidData
|= DMUS_OBJ_NAME
;
405 IStream_Read (pStm
, This
->dmobj
.desc
.wszName
, Chunk
.dwSize
, NULL
);
408 case mmioFOURCC('I','A','R','T'):
409 case DMUS_FOURCC_UART_CHUNK
: {
410 TRACE_(dmfile
)(": artist chunk (ignored)\n");
411 liMove
.QuadPart
= Chunk
.dwSize
;
412 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
415 case mmioFOURCC('I','C','O','P'):
416 case DMUS_FOURCC_UCOP_CHUNK
: {
417 TRACE_(dmfile
)(": copyright chunk (ignored)\n");
418 liMove
.QuadPart
= Chunk
.dwSize
;
419 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
422 case mmioFOURCC('I','S','B','J'):
423 case DMUS_FOURCC_USBJ_CHUNK
: {
424 TRACE_(dmfile
)(": subject chunk (ignored)\n");
425 liMove
.QuadPart
= Chunk
.dwSize
;
426 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
429 case mmioFOURCC('I','C','M','T'):
430 case DMUS_FOURCC_UCMT_CHUNK
: {
431 TRACE_(dmfile
)(": comment chunk (ignored)\n");
432 liMove
.QuadPart
= Chunk
.dwSize
;
433 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
437 TRACE_(dmfile
)(": unknown sub-chunk (irrelevant & skipping)\n");
438 liMove
.QuadPart
= Chunk
.dwSize
;
439 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
443 TRACE_(dmfile
)(": ListCount[0] = %d < ListSize[0] = %d\n", ListCount
[0], ListSize
[0]);
444 } while (ListCount
[0] < ListSize
[0]);
448 TRACE_(dmfile
)(": unknown (skipping)\n");
449 liMove
.QuadPart
= Chunk
.dwSize
- sizeof(FOURCC
);
450 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
457 TRACE_(dmfile
)(": unknown chunk (irrelevant & skipping)\n");
458 liMove
.QuadPart
= Chunk
.dwSize
;
459 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
);
463 TRACE_(dmfile
)(": StreamCount[0] = %d < StreamSize[0] = %d\n", StreamCount
, StreamSize
);
464 } while (StreamCount
< StreamSize
);
468 TRACE_(dmfile
)(": unexpected chunk; loading failed)\n");
469 liMove
.QuadPart
= StreamSize
;
470 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
); /* skip the rest of the chunk */
474 TRACE_(dmfile
)(": reading finished\n");
478 TRACE_(dmfile
)(": unexpected chunk; loading failed)\n");
479 liMove
.QuadPart
= Chunk
.dwSize
;
480 IStream_Seek (pStm
, liMove
, STREAM_SEEK_CUR
, NULL
); /* skip the rest of the chunk */
488 static const IPersistStreamVtbl persiststream_vtbl
= {
489 dmobj_IPersistStream_QueryInterface
,
490 dmobj_IPersistStream_AddRef
,
491 dmobj_IPersistStream_Release
,
492 unimpl_IPersistStream_GetClassID
,
493 unimpl_IPersistStream_IsDirty
,
494 IPersistStreamImpl_Load
,
495 unimpl_IPersistStream_Save
,
496 unimpl_IPersistStream_GetSizeMax
499 /* for ClassFactory */
500 HRESULT WINAPI
DMUSIC_CreateDirectMusicScriptImpl(REFIID lpcGUID
, void **ppobj
, IUnknown
*pUnkOuter
)
502 IDirectMusicScriptImpl
*obj
;
508 return CLASS_E_NOAGGREGATION
;
510 obj
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(IDirectMusicScriptImpl
));
512 return E_OUTOFMEMORY
;
514 obj
->IDirectMusicScript_iface
.lpVtbl
= &dmscript_vtbl
;
516 dmobject_init(&obj
->dmobj
, &CLSID_DirectMusicScript
, (IUnknown
*)&obj
->IDirectMusicScript_iface
);
517 obj
->dmobj
.IDirectMusicObject_iface
.lpVtbl
= &dmobject_vtbl
;
518 obj
->dmobj
.IPersistStream_iface
.lpVtbl
= &persiststream_vtbl
;
520 DMSCRIPT_LockModule();
521 hr
= IDirectMusicScript_QueryInterface(&obj
->IDirectMusicScript_iface
, lpcGUID
, ppobj
);
522 IDirectMusicScript_Release(&obj
->IDirectMusicScript_iface
);