2 * Copyright 2002 Michael Günnewig
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2.1 of the License, or (at your option) any later version.
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
14 * You should have received a copy of the GNU Lesser General Public
15 * License along with this library; if not, write to the Free Software
16 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19 #define COM_NO_WINDOWS_H
34 #include "avifile_private.h"
35 #include "extrachunk.h"
37 #include "wine/debug.h"
39 WINE_DEFAULT_DEBUG_CHANNEL(avifile
);
41 /***********************************************************************/
43 #define formtypeWAVE mmioFOURCC('W','A','V','E')
44 #define ckidWAVEFORMAT mmioFOURCC('f','m','t',' ')
45 #define ckidWAVEFACT mmioFOURCC('f','a','c','t')
46 #define ckidWAVEDATA mmioFOURCC('d','a','t','a')
48 /***********************************************************************/
50 #define ENDIAN_SWAPWORD(x) ((((x) >> 8) & 0xFF) | (((x) & 0xFF) << 8))
51 #define ENDIAN_SWAPDWORD(x) (ENDIAN_SWAPWORD((x >> 16) & 0xFFFF) | \
52 ENDIAN_SWAPWORD(x & 0xFFFF) << 16)
54 #ifdef WORDS_BIGENDIAN
55 #define BE2H_WORD(x) (x)
56 #define BE2H_DWORD(x) (x)
57 #define LE2H_WORD(x) ENDIAN_SWAPWORD(x)
58 #define LE2H_DWORD(x) ENDIAN_SWAPDWORD(x)
60 #define BE2H_WORD(x) ENDIAN_SWAPWORD(x)
61 #define BE2H_DWORD(x) ENDIAN_SWAPDWORD(x)
62 #define LE2H_WORD(x) (x)
63 #define LE2H_DWORD(x) (x)
75 #define AU_ENCODING_ULAW_8 1
76 #define AU_ENCODING_PCM_8 2
77 #define AU_ENCODING_PCM_16 3
78 #define AU_ENCODING_PCM_24 4
79 #define AU_ENCODING_PCM_32 5
80 #define AU_ENCODING_FLOAT 6
81 #define AU_ENCODING_DOUBLE 7
82 #define AU_ENCODING_ADPCM_G721_32 23
83 #define AU_ENCODING_ADPCM_G722 24
84 #define AU_ENCODING_ADPCM_G723_24 25
85 #define AU_ENCODING_ADPCM_G723_5 26
86 #define AU_ENCODING_ALAW_8 27
88 /***********************************************************************/
90 static HRESULT WINAPI
IAVIFile_fnQueryInterface(IAVIFile
* iface
,REFIID refiid
,LPVOID
*obj
);
91 static ULONG WINAPI
IAVIFile_fnAddRef(IAVIFile
* iface
);
92 static ULONG WINAPI
IAVIFile_fnRelease(IAVIFile
* iface
);
93 static HRESULT WINAPI
IAVIFile_fnInfo(IAVIFile
*iface
,AVIFILEINFOW
*afi
,LONG size
);
94 static HRESULT WINAPI
IAVIFile_fnGetStream(IAVIFile
*iface
,PAVISTREAM
*avis
,DWORD fccType
,LONG lParam
);
95 static HRESULT WINAPI
IAVIFile_fnCreateStream(IAVIFile
*iface
,PAVISTREAM
*avis
,AVISTREAMINFOW
*asi
);
96 static HRESULT WINAPI
IAVIFile_fnWriteData(IAVIFile
*iface
,DWORD ckid
,LPVOID lpData
,LONG size
);
97 static HRESULT WINAPI
IAVIFile_fnReadData(IAVIFile
*iface
,DWORD ckid
,LPVOID lpData
,LONG
*size
);
98 static HRESULT WINAPI
IAVIFile_fnEndRecord(IAVIFile
*iface
);
99 static HRESULT WINAPI
IAVIFile_fnDeleteStream(IAVIFile
*iface
,DWORD fccType
,LONG lParam
);
101 struct ICOM_VTABLE(IAVIFile
) iwavft
= {
102 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
103 IAVIFile_fnQueryInterface
,
107 IAVIFile_fnGetStream
,
108 IAVIFile_fnCreateStream
,
109 IAVIFile_fnWriteData
,
111 IAVIFile_fnEndRecord
,
112 IAVIFile_fnDeleteStream
115 static HRESULT WINAPI
IPersistFile_fnQueryInterface(IPersistFile
*iface
,REFIID refiid
,LPVOID
*obj
);
116 static ULONG WINAPI
IPersistFile_fnAddRef(IPersistFile
*iface
);
117 static ULONG WINAPI
IPersistFile_fnRelease(IPersistFile
*iface
);
118 static HRESULT WINAPI
IPersistFile_fnGetClassID(IPersistFile
*iface
,CLSID
*pClassID
);
119 static HRESULT WINAPI
IPersistFile_fnIsDirty(IPersistFile
*iface
);
120 static HRESULT WINAPI
IPersistFile_fnLoad(IPersistFile
*iface
,LPCOLESTR pszFileName
,DWORD dwMode
);
121 static HRESULT WINAPI
IPersistFile_fnSave(IPersistFile
*iface
,LPCOLESTR pszFileName
,BOOL fRemember
);
122 static HRESULT WINAPI
IPersistFile_fnSaveCompleted(IPersistFile
*iface
,LPCOLESTR pszFileName
);
123 static HRESULT WINAPI
IPersistFile_fnGetCurFile(IPersistFile
*iface
,LPOLESTR
*ppszFileName
);
125 struct ICOM_VTABLE(IPersistFile
) iwavpft
= {
126 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
127 IPersistFile_fnQueryInterface
,
128 IPersistFile_fnAddRef
,
129 IPersistFile_fnRelease
,
130 IPersistFile_fnGetClassID
,
131 IPersistFile_fnIsDirty
,
134 IPersistFile_fnSaveCompleted
,
135 IPersistFile_fnGetCurFile
138 static HRESULT WINAPI
IAVIStream_fnQueryInterface(IAVIStream
*iface
,REFIID refiid
,LPVOID
*obj
);
139 static ULONG WINAPI
IAVIStream_fnAddRef(IAVIStream
*iface
);
140 static ULONG WINAPI
IAVIStream_fnRelease(IAVIStream
* iface
);
141 static HRESULT WINAPI
IAVIStream_fnCreate(IAVIStream
*iface
,LPARAM lParam1
,LPARAM lParam2
);
142 static HRESULT WINAPI
IAVIStream_fnInfo(IAVIStream
*iface
,AVISTREAMINFOW
*psi
,LONG size
);
143 static LONG WINAPI
IAVIStream_fnFindSample(IAVIStream
*iface
,LONG pos
,LONG flags
);
144 static HRESULT WINAPI
IAVIStream_fnReadFormat(IAVIStream
*iface
,LONG pos
,LPVOID format
,LONG
*formatsize
);
145 static HRESULT WINAPI
IAVIStream_fnSetFormat(IAVIStream
*iface
,LONG pos
,LPVOID format
,LONG formatsize
);
146 static HRESULT WINAPI
IAVIStream_fnRead(IAVIStream
*iface
,LONG start
,LONG samples
,LPVOID buffer
,LONG buffersize
,LONG
*bytesread
,LONG
*samplesread
);
147 static HRESULT WINAPI
IAVIStream_fnWrite(IAVIStream
*iface
,LONG start
,LONG samples
,LPVOID buffer
,LONG buffersize
,DWORD flags
,LONG
*sampwritten
,LONG
*byteswritten
);
148 static HRESULT WINAPI
IAVIStream_fnDelete(IAVIStream
*iface
,LONG start
,LONG samples
);
149 static HRESULT WINAPI
IAVIStream_fnReadData(IAVIStream
*iface
,DWORD fcc
,LPVOID lp
,LONG
*lpread
);
150 static HRESULT WINAPI
IAVIStream_fnWriteData(IAVIStream
*iface
,DWORD fcc
,LPVOID lp
,LONG size
);
151 static HRESULT WINAPI
IAVIStream_fnSetInfo(IAVIStream
*iface
,AVISTREAMINFOW
*info
,LONG infolen
);
153 struct ICOM_VTABLE(IAVIStream
) iwavst
= {
154 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
155 IAVIStream_fnQueryInterface
,
157 IAVIStream_fnRelease
,
160 IAVIStream_fnFindSample
,
161 IAVIStream_fnReadFormat
,
162 IAVIStream_fnSetFormat
,
166 IAVIStream_fnReadData
,
167 IAVIStream_fnWriteData
,
171 typedef struct _IAVIFileImpl IAVIFileImpl
;
173 typedef struct _IPersistFileImpl
{
175 ICOM_VFIELD(IPersistFile
);
177 /* IPersistFile stuff */
181 typedef struct _IAVIStreamImpl
{
183 ICOM_VFIELD(IAVIStream
);
185 /* IAVIStream stuff */
189 struct _IAVIFileImpl
{
191 ICOM_VFIELD(IAVIFile
);
194 /* IAVIFile, IAVIStream stuff... */
195 IPersistFileImpl iPersistFile
;
196 IAVIStreamImpl iAVIStream
;
199 AVISTREAMINFOW sInfo
;
201 LPWAVEFORMATEX lpFormat
;
208 /* IPersistFile stuff ... */
215 /***********************************************************************/
217 static HRESULT
AVIFILE_LoadFile(IAVIFileImpl
*This
);
218 static HRESULT
AVIFILE_LoadSunFile(IAVIFileImpl
*This
);
219 static HRESULT
AVIFILE_SaveFile(IAVIFileImpl
*This
);
221 HRESULT
AVIFILE_CreateWAVFile(REFIID riid
, LPVOID
*ppv
)
226 assert(riid
!= NULL
&& ppv
!= NULL
);
230 pfile
= (IAVIFileImpl
*)LocalAlloc(LPTR
, sizeof(IAVIFileImpl
));
232 return AVIERR_MEMORY
;
234 pfile
->lpVtbl
= &iwavft
;
235 pfile
->iPersistFile
.lpVtbl
= &iwavpft
;
236 pfile
->iAVIStream
.lpVtbl
= &iwavst
;
238 pfile
->iPersistFile
.paf
= pfile
;
239 pfile
->iAVIStream
.paf
= pfile
;
241 hr
= IUnknown_QueryInterface((IUnknown
*)pfile
, riid
, ppv
);
243 LocalFree((HLOCAL
)pfile
);
248 static HRESULT WINAPI
IAVIFile_fnQueryInterface(IAVIFile
*iface
, REFIID refiid
,
251 ICOM_THIS(IAVIFileImpl
,iface
);
253 TRACE("(%p,%s,%p)\n", This
, debugstr_guid(refiid
), obj
);
255 if (IsEqualGUID(&IID_IUnknown
, refiid
) ||
256 IsEqualGUID(&IID_IAVIFile
, refiid
)) {
259 } else if (This
->fInfo
.dwStreams
== 1 &&
260 IsEqualGUID(&IID_IAVIStream
, refiid
)) {
261 *obj
= &This
->iAVIStream
;
263 } else if (IsEqualGUID(&IID_IPersistFile
, refiid
)) {
264 *obj
= &This
->iPersistFile
;
268 return OLE_E_ENUM_NOMORE
;
271 static ULONG WINAPI
IAVIFile_fnAddRef(IAVIFile
*iface
)
273 ICOM_THIS(IAVIFileImpl
,iface
);
275 TRACE("(%p)\n",iface
);
277 return ++(This
->ref
);
280 static ULONG WINAPI
IAVIFile_fnRelease(IAVIFile
*iface
)
282 ICOM_THIS(IAVIFileImpl
,iface
);
284 TRACE("(%p)\n",iface
);
286 if (!--(This
->ref
)) {
288 /* need to write headers to file */
289 AVIFILE_SaveFile(This
);
292 if (This
->lpFormat
!= NULL
) {
293 GlobalFreePtr(This
->lpFormat
);
294 This
->lpFormat
= NULL
;
297 if (This
->extra
.lp
!= NULL
) {
298 GlobalFreePtr(This
->extra
.lp
);
299 This
->extra
.lp
= NULL
;
302 if (This
->szFileName
!= NULL
) {
303 LocalFree((HLOCAL
)This
->szFileName
);
304 This
->szFileName
= NULL
;
306 if (This
->hmmio
!= NULL
) {
307 mmioClose(This
->hmmio
, 0);
311 LocalFree((HLOCAL
)This
);
317 static HRESULT WINAPI
IAVIFile_fnInfo(IAVIFile
*iface
, LPAVIFILEINFOW afi
,
320 ICOM_THIS(IAVIFileImpl
,iface
);
322 TRACE("(%p,%p,%ld)\n",iface
,afi
,size
);
325 return AVIERR_BADPARAM
;
327 return AVIERR_BADSIZE
;
329 /* update file info */
330 This
->fInfo
.dwFlags
= 0;
331 This
->fInfo
.dwCaps
= AVIFILECAPS_CANREAD
|AVIFILECAPS_CANWRITE
;
332 if (This
->lpFormat
!= NULL
) {
333 assert(This
->sInfo
.dwScale
!= 0);
335 This
->fInfo
.dwStreams
= 1;
336 This
->fInfo
.dwScale
= This
->sInfo
.dwScale
;
337 This
->fInfo
.dwRate
= This
->sInfo
.dwRate
;
338 This
->fInfo
.dwLength
= This
->sInfo
.dwLength
;
339 This
->fInfo
.dwSuggestedBufferSize
= This
->ckData
.cksize
;
340 This
->fInfo
.dwMaxBytesPerSec
=
341 MulDiv(This
->sInfo
.dwSampleSize
,This
->sInfo
.dwRate
,This
->sInfo
.dwScale
);
344 memcpy(afi
, &This
->fInfo
, min((DWORD
)size
, sizeof(This
->fInfo
)));
346 if ((DWORD
)size
< sizeof(This
->fInfo
))
347 return AVIERR_BUFFERTOOSMALL
;
351 static HRESULT WINAPI
IAVIFile_fnGetStream(IAVIFile
*iface
, PAVISTREAM
*avis
,
352 DWORD fccType
, LONG lParam
)
354 ICOM_THIS(IAVIFileImpl
,iface
);
356 TRACE("(%p,%p,0x%08lX,%ld)\n", iface
, avis
, fccType
, lParam
);
358 /* check parameter */
360 return AVIERR_BADPARAM
;
364 /* Does our stream exists? */
365 if (lParam
!= 0 || This
->fInfo
.dwStreams
== 0)
366 return AVIERR_NODATA
;
367 if (fccType
!= 0 && fccType
!= streamtypeAUDIO
)
368 return AVIERR_NODATA
;
370 *avis
= (PAVISTREAM
)&This
->iAVIStream
;
371 IAVIFile_AddRef(iface
);
376 static HRESULT WINAPI
IAVIFile_fnCreateStream(IAVIFile
*iface
,PAVISTREAM
*avis
,
377 LPAVISTREAMINFOW asi
)
379 ICOM_THIS(IAVIFileImpl
,iface
);
381 TRACE("(%p,%p,%p)\n", iface
, avis
, asi
);
383 /* check parameters */
384 if (avis
== NULL
|| asi
== NULL
)
385 return AVIERR_BADPARAM
;
389 /* We only support one audio stream */
390 if (This
->fInfo
.dwStreams
!= 0 || This
->lpFormat
!= NULL
)
391 return AVIERR_UNSUPPORTED
;
392 if (asi
->fccType
!= streamtypeAUDIO
)
393 return AVIERR_UNSUPPORTED
;
395 /* Does the user have write permission? */
396 if ((This
->uMode
& MMIO_RWMODE
) == 0)
397 return AVIERR_READONLY
;
400 This
->lpFormat
= NULL
;
402 memcpy(&This
->sInfo
, asi
, sizeof(This
->sInfo
));
404 /* make sure streaminfo if okay for us */
405 This
->sInfo
.fccHandler
= 0;
406 This
->sInfo
.dwFlags
= 0;
407 This
->sInfo
.dwCaps
= AVIFILECAPS_CANREAD
|AVIFILECAPS_CANWRITE
;
408 This
->sInfo
.dwStart
= 0;
409 This
->sInfo
.dwInitialFrames
= 0;
410 This
->sInfo
.dwFormatChangeCount
= 0;
411 memset(&This
->sInfo
.rcFrame
, 0, sizeof(This
->sInfo
.rcFrame
));
413 This
->fInfo
.dwStreams
= 1;
414 This
->fInfo
.dwScale
= This
->sInfo
.dwScale
;
415 This
->fInfo
.dwRate
= This
->sInfo
.dwRate
;
416 This
->fInfo
.dwLength
= This
->sInfo
.dwLength
;
418 This
->ckData
.dwDataOffset
= 0;
419 This
->ckData
.cksize
= 0;
421 *avis
= (PAVISTREAM
)&This
->iAVIStream
;
422 IAVIFile_AddRef(iface
);
427 static HRESULT WINAPI
IAVIFile_fnWriteData(IAVIFile
*iface
, DWORD ckid
,
428 LPVOID lpData
, LONG size
)
430 ICOM_THIS(IAVIFileImpl
,iface
);
432 TRACE("(%p,0x%08lX,%p,%ld)\n", iface
, ckid
, lpData
, size
);
434 /* check parameters */
436 return AVIERR_BADPARAM
;
438 return AVIERR_BADSIZE
;
440 /* Do we have write permission? */
441 if ((This
->uMode
& MMIO_RWMODE
) == 0)
442 return AVIERR_READONLY
;
446 return WriteExtraChunk(&This
->extra
, ckid
, lpData
, size
);
449 static HRESULT WINAPI
IAVIFile_fnReadData(IAVIFile
*iface
, DWORD ckid
,
450 LPVOID lpData
, LONG
*size
)
452 ICOM_THIS(IAVIFileImpl
,iface
);
454 TRACE("(%p,0x%08lX,%p,%p)\n", iface
, ckid
, lpData
, size
);
456 return ReadExtraChunk(&This
->extra
, ckid
, lpData
, size
);
459 static HRESULT WINAPI
IAVIFile_fnEndRecord(IAVIFile
*iface
)
461 TRACE("(%p)\n",iface
);
463 /* This is only needed for interleaved files.
464 * We have only one stream, which can't be interleaved.
469 static HRESULT WINAPI
IAVIFile_fnDeleteStream(IAVIFile
*iface
, DWORD fccType
,
472 ICOM_THIS(IAVIFileImpl
,iface
);
474 TRACE("(%p,0x%08lX,%ld)\n", iface
, fccType
, lParam
);
476 /* check parameter */
478 return AVIERR_BADPARAM
;
480 /* Have we our audio stream? */
481 if (lParam
!= 0 || This
->fInfo
.dwStreams
== 0 ||
482 (fccType
!= 0 && fccType
!= streamtypeAUDIO
))
483 return AVIERR_NODATA
;
485 /* Have user write permissions? */
486 if ((This
->uMode
& MMIO_RWMODE
) == 0)
487 return AVIERR_READONLY
;
489 GlobalFreePtr(This
->lpFormat
);
490 This
->lpFormat
= NULL
;
494 This
->ckData
.dwDataOffset
= 0;
495 This
->ckData
.cksize
= 0;
497 This
->sInfo
.dwScale
= 0;
498 This
->sInfo
.dwRate
= 0;
499 This
->sInfo
.dwLength
= 0;
500 This
->sInfo
.dwSuggestedBufferSize
= 0;
502 This
->fInfo
.dwStreams
= 0;
503 This
->fInfo
.dwEditCount
++;
510 /***********************************************************************/
512 static HRESULT WINAPI
IPersistFile_fnQueryInterface(IPersistFile
*iface
,
513 REFIID refiid
, LPVOID
*obj
)
515 ICOM_THIS(IPersistFileImpl
,iface
);
517 assert(This
->paf
!= NULL
);
519 return IAVIFile_QueryInterface((PAVIFILE
)This
->paf
, refiid
, obj
);
522 static ULONG WINAPI
IPersistFile_fnAddRef(IPersistFile
*iface
)
524 ICOM_THIS(IPersistFileImpl
,iface
);
526 assert(This
->paf
!= NULL
);
528 return IAVIFile_AddRef((PAVIFILE
)This
->paf
);
531 static ULONG WINAPI
IPersistFile_fnRelease(IPersistFile
*iface
)
533 ICOM_THIS(IPersistFileImpl
,iface
);
535 assert(This
->paf
!= NULL
);
537 return IAVIFile_Release((PAVIFILE
)This
->paf
);
540 static HRESULT WINAPI
IPersistFile_fnGetClassID(IPersistFile
*iface
,
543 TRACE("(%p,%p)\n", iface
, pClassID
);
545 if (pClassID
== NULL
)
546 return AVIERR_BADPARAM
;
548 memcpy(pClassID
, &CLSID_WAVFile
, sizeof(CLSID_WAVFile
));
553 static HRESULT WINAPI
IPersistFile_fnIsDirty(IPersistFile
*iface
)
555 ICOM_THIS(IPersistFileImpl
,iface
);
557 TRACE("(%p)\n", iface
);
559 assert(This
->paf
!= NULL
);
561 return (This
->paf
->fDirty
? S_OK
: S_FALSE
);
564 static HRESULT WINAPI
IPersistFile_fnLoad(IPersistFile
*iface
,
565 LPCOLESTR pszFileName
, DWORD dwMode
)
567 IAVIFileImpl
*This
= ((IPersistFileImpl
*)iface
)->paf
;
569 WCHAR wszStreamFmt
[50];
572 TRACE("(%p,%s,0x%08lX)\n", iface
, debugstr_w(pszFileName
), dwMode
);
574 /* check parameter */
575 if (pszFileName
== NULL
)
576 return AVIERR_BADPARAM
;
578 assert(This
!= NULL
);
579 if (This
->hmmio
!= NULL
)
580 return AVIERR_ERROR
; /* No reuse of this object for another file! */
582 /* remeber mode and name */
583 This
->uMode
= dwMode
;
585 len
= lstrlenW(pszFileName
) + 1;
586 This
->szFileName
= (LPWSTR
)LocalAlloc(LPTR
, len
* sizeof(WCHAR
));
587 if (This
->szFileName
== NULL
)
588 return AVIERR_MEMORY
;
589 lstrcpyW(This
->szFileName
, pszFileName
);
591 /* try to open the file */
592 This
->hmmio
= mmioOpenW(This
->szFileName
, NULL
, MMIO_ALLOCBUF
| dwMode
);
593 if (This
->hmmio
== NULL
) {
594 /* mmioOpenW not in native DLLs of Win9x -- try mmioOpenA */
595 LPSTR szFileName
= LocalAlloc(LPTR
, len
* sizeof(CHAR
));
596 if (szFileName
== NULL
)
597 return AVIERR_MEMORY
;
599 WideCharToMultiByte(CP_ACP
, 0, This
->szFileName
, -1, szFileName
,
602 This
->hmmio
= mmioOpenA(szFileName
, NULL
, MMIO_ALLOCBUF
| dwMode
);
603 LocalFree((HLOCAL
)szFileName
);
604 if (This
->hmmio
== NULL
)
605 return AVIERR_FILEOPEN
;
608 memset(& This
->fInfo
, 0, sizeof(This
->fInfo
));
609 memset(& This
->sInfo
, 0, sizeof(This
->sInfo
));
611 LoadStringW(AVIFILE_hModule
, IDS_WAVEFILETYPE
, This
->fInfo
.szFileType
,
612 sizeof(This
->fInfo
.szFileType
));
613 if (LoadStringW(AVIFILE_hModule
, IDS_WAVESTREAMFORMAT
,
614 wszStreamFmt
, sizeof(wszStreamFmt
)) > 0) {
615 wsprintfW(This
->sInfo
.szName
, wszStreamFmt
,
616 AVIFILE_BasenameW(This
->szFileName
));
619 /* should we create a new file? */
620 if (dwMode
& OF_CREATE
) {
621 /* nothing more to do */
624 return AVIFILE_LoadFile(This
);
627 static HRESULT WINAPI
IPersistFile_fnSave(IPersistFile
*iface
,
628 LPCOLESTR pszFileName
,BOOL fRemember
)
630 TRACE("(%p,%s,%d)\n", iface
, debugstr_w(pszFileName
), fRemember
);
632 /* We write directly to disk, so nothing to do. */
637 static HRESULT WINAPI
IPersistFile_fnSaveCompleted(IPersistFile
*iface
,
638 LPCOLESTR pszFileName
)
640 TRACE("(%p,%s)\n", iface
, debugstr_w(pszFileName
));
642 /* We write directly to disk, so nothing to do. */
647 static HRESULT WINAPI
IPersistFile_fnGetCurFile(IPersistFile
*iface
,
648 LPOLESTR
*ppszFileName
)
650 ICOM_THIS(IPersistFileImpl
,iface
);
652 TRACE("(%p,%p)\n", iface
, ppszFileName
);
654 if (ppszFileName
== NULL
)
655 return AVIERR_BADPARAM
;
657 *ppszFileName
= NULL
;
659 assert(This
->paf
!= NULL
);
661 if (This
->paf
->szFileName
!= NULL
) {
662 int len
= lstrlenW(This
->paf
->szFileName
);
664 *ppszFileName
= (LPOLESTR
)GlobalAllocPtr(GHND
, len
* sizeof(WCHAR
));
665 if (*ppszFileName
== NULL
)
666 return AVIERR_MEMORY
;
668 memcpy(*ppszFileName
, This
->paf
->szFileName
, len
* sizeof(WCHAR
));
674 /***********************************************************************/
676 static HRESULT WINAPI
IAVIStream_fnQueryInterface(IAVIStream
*iface
,
677 REFIID refiid
, LPVOID
*obj
)
679 ICOM_THIS(IAVIStreamImpl
,iface
);
681 assert(This
->paf
!= NULL
);
683 return IAVIFile_QueryInterface((PAVIFILE
)This
->paf
, refiid
, obj
);
686 static ULONG WINAPI
IAVIStream_fnAddRef(IAVIStream
*iface
)
688 ICOM_THIS(IAVIStreamImpl
,iface
);
690 assert(This
->paf
!= NULL
);
692 return IAVIFile_AddRef((PAVIFILE
)This
->paf
);
695 static ULONG WINAPI
IAVIStream_fnRelease(IAVIStream
* iface
)
697 ICOM_THIS(IAVIStreamImpl
,iface
);
699 assert(This
->paf
!= NULL
);
701 return IAVIFile_Release((PAVIFILE
)This
->paf
);
704 static HRESULT WINAPI
IAVIStream_fnCreate(IAVIStream
*iface
, LPARAM lParam1
,
707 TRACE("(%p,0x%08lX,0x%08lX)\n", iface
, lParam1
, lParam2
);
709 /* This IAVIStream interface needs an WAVFile */
710 return AVIERR_UNSUPPORTED
;
713 static HRESULT WINAPI
IAVIStream_fnInfo(IAVIStream
*iface
,LPAVISTREAMINFOW psi
,
716 ICOM_THIS(IAVIStreamImpl
,iface
);
718 TRACE("(%p,%p,%ld)\n", iface
, psi
, size
);
721 return AVIERR_BADPARAM
;
723 return AVIERR_BADSIZE
;
725 memcpy(psi
, &This
->paf
->sInfo
, min((DWORD
)size
, sizeof(This
->paf
->sInfo
)));
727 if ((DWORD
)size
< sizeof(This
->paf
->sInfo
))
728 return AVIERR_BUFFERTOOSMALL
;
732 static LONG WINAPI
IAVIStream_fnFindSample(IAVIStream
*iface
, LONG pos
,
735 IAVIFileImpl
*This
= ((IAVIStreamImpl
*)iface
)->paf
;
737 TRACE("(%p,%ld,0x%08lX)\n",iface
,pos
,flags
);
739 /* Do we have data? */
740 if (This
->lpFormat
== NULL
)
743 /* We don't have an index */
744 if (flags
& FIND_INDEX
)
747 if (flags
& FIND_FROM_START
) {
748 pos
= This
->sInfo
.dwStart
;
749 flags
&= ~(FIND_FROM_START
|FIND_PREV
);
753 if (flags
& FIND_FORMAT
) {
754 if ((flags
& FIND_NEXT
) && pos
> 0)
760 if (flags
& (FIND_LENGTH
|FIND_SIZE
))
761 return This
->sInfo
.dwSampleSize
;
762 if (flags
& FIND_OFFSET
)
763 return This
->ckData
.dwDataOffset
+ pos
* This
->sInfo
.dwSampleSize
;
768 static HRESULT WINAPI
IAVIStream_fnReadFormat(IAVIStream
*iface
, LONG pos
,
769 LPVOID format
, LONG
*formatsize
)
771 ICOM_THIS(IAVIStreamImpl
,iface
);
773 TRACE("(%p,%ld,%p,%p)\n", iface
, pos
, format
, formatsize
);
775 if (formatsize
== NULL
)
776 return AVIERR_BADPARAM
;
778 /* only interested in needed buffersize? */
779 if (format
== NULL
|| *formatsize
<= 0) {
780 *formatsize
= This
->paf
->cbFormat
;
785 /* copy initial format (only as much as will fit) */
786 memcpy(format
, This
->paf
->lpFormat
, min(*formatsize
, This
->paf
->cbFormat
));
787 if (*formatsize
< This
->paf
->cbFormat
) {
788 *formatsize
= This
->paf
->cbFormat
;
789 return AVIERR_BUFFERTOOSMALL
;
792 *formatsize
= This
->paf
->cbFormat
;
796 static HRESULT WINAPI
IAVIStream_fnSetFormat(IAVIStream
*iface
, LONG pos
,
797 LPVOID format
, LONG formatsize
)
799 IAVIFileImpl
*This
= ((IAVIStreamImpl
*)iface
)->paf
;
801 TRACE("(%p,%ld,%p,%ld)\n", iface
, pos
, format
, formatsize
);
803 /* check parameters */
804 if (format
== NULL
|| formatsize
<= sizeof(PCMWAVEFORMAT
))
805 return AVIERR_BADPARAM
;
807 /* We can only do this to an empty wave file, but ignore call
808 * if still same format */
809 if (This
->lpFormat
!= NULL
) {
810 if (formatsize
!= This
->cbFormat
||
811 memcmp(format
, This
->lpFormat
, formatsize
) != 0)
812 return AVIERR_UNSUPPORTED
;
817 /* only support start at position 0 */
819 return AVIERR_UNSUPPORTED
;
821 /* Do we have write permission? */
822 if ((This
->uMode
& MMIO_RWMODE
) == 0)
823 return AVIERR_READONLY
;
825 /* get memory for format and copy it */
826 This
->lpFormat
= (LPWAVEFORMATEX
)GlobalAllocPtr(GMEM_MOVEABLE
, formatsize
);
827 if (This
->lpFormat
== NULL
)
828 return AVIERR_MEMORY
;
830 This
->cbFormat
= formatsize
;
831 memcpy(This
->lpFormat
, format
, formatsize
);
833 /* update info's about 'data' chunk */
834 This
->ckData
.dwDataOffset
= formatsize
+ 7 * sizeof(DWORD
);
835 This
->ckData
.cksize
= 0;
837 /* for non-pcm format we need also a 'fact' chunk */
838 if (This
->lpFormat
->wFormatTag
!= WAVE_FORMAT_PCM
)
839 This
->ckData
.dwDataOffset
+= 3 * sizeof(DWORD
);
841 /* update stream and file info */
842 This
->sInfo
.dwSampleSize
= This
->lpFormat
->nBlockAlign
;
843 This
->sInfo
.dwScale
= This
->lpFormat
->nBlockAlign
;
844 This
->sInfo
.dwRate
= This
->lpFormat
->nAvgBytesPerSec
;
845 This
->sInfo
.dwLength
= 0;
846 This
->sInfo
.dwSuggestedBufferSize
= 0;
851 static HRESULT WINAPI
IAVIStream_fnRead(IAVIStream
*iface
, LONG start
,
852 LONG samples
, LPVOID buffer
,
853 LONG buffersize
, LPLONG bytesread
,
856 IAVIFileImpl
*This
= ((IAVIStreamImpl
*)iface
)->paf
;
858 TRACE("(%p,%ld,%ld,%p,%ld,%p,%p)\n", iface
, start
, samples
, buffer
,
859 buffersize
, bytesread
, samplesread
);
861 /* clear return parameters if given */
862 if (bytesread
!= NULL
)
864 if (samplesread
!= NULL
)
867 /* positions without data */
868 if (start
< 0 || (DWORD
)start
> This
->sInfo
.dwLength
)
874 if (buffersize
> 0) {
876 samples
= min((DWORD
)samples
, buffersize
/ This
->sInfo
.dwSampleSize
);
878 samples
= buffersize
/ This
->sInfo
.dwSampleSize
;
881 /* limit to end of stream */
882 if ((DWORD
)(start
+ samples
) > This
->sInfo
.dwLength
)
883 samples
= This
->sInfo
.dwLength
- start
;
885 /* request only the sizes? */
886 if (buffer
== NULL
|| buffersize
<= 0) {
887 /* then I need atleast one parameter for it */
888 if (bytesread
== NULL
&& samplesread
== NULL
)
889 return AVIERR_BADPARAM
;
891 if (bytesread
!= NULL
)
892 *bytesread
= samples
* This
->sInfo
.dwSampleSize
;
893 if (samplesread
!= NULL
)
894 *samplesread
= samples
;
899 /* nothing to read? */
903 /* Can I atleast read one sample? */
904 if ((DWORD
)buffersize
< This
->sInfo
.dwSampleSize
)
905 return AVIERR_BUFFERTOOSMALL
;
907 buffersize
= samples
* This
->sInfo
.dwSampleSize
;
909 if (mmioSeek(This
->hmmio
, This
->ckData
.dwDataOffset
910 + start
* This
->sInfo
.dwSampleSize
, SEEK_SET
) == -1)
911 return AVIERR_FILEREAD
;
912 if (mmioRead(This
->hmmio
, (HPSTR
)buffer
, buffersize
) != buffersize
)
913 return AVIERR_FILEREAD
;
915 /* fill out return parameters if given */
916 if (bytesread
!= NULL
)
917 *bytesread
= buffersize
;
918 if (samplesread
!= NULL
)
919 *samplesread
= samples
;
924 static HRESULT WINAPI
IAVIStream_fnWrite(IAVIStream
*iface
, LONG start
,
925 LONG samples
, LPVOID buffer
,
926 LONG buffersize
, DWORD flags
,
930 IAVIFileImpl
*This
= ((IAVIStreamImpl
*)iface
)->paf
;
932 TRACE("(%p,%ld,%ld,%p,%ld,0x%08lX,%p,%p)\n", iface
, start
, samples
,
933 buffer
, buffersize
, flags
, sampwritten
, byteswritten
);
935 /* clear return parameters if given */
936 if (sampwritten
!= NULL
)
938 if (byteswritten
!= NULL
)
941 /* check parameters */
942 if (buffer
== NULL
&& (buffersize
> 0 || samples
> 0))
943 return AVIERR_BADPARAM
;
945 /* Have we write permission? */
946 if ((This
->uMode
& MMIO_RWMODE
) == 0)
947 return AVIERR_READONLY
;
949 /* < 0 means "append" */
951 start
= This
->sInfo
.dwStart
+ This
->sInfo
.dwLength
;
953 /* check buffersize -- must multiple of samplesize */
954 if (buffersize
& ~(This
->sInfo
.dwSampleSize
- 1))
955 return AVIERR_BADSIZE
;
957 /* have we anything to write? */
958 if (buffer
!= NULL
&& buffersize
> 0) {
961 if (mmioSeek(This
->hmmio
, This
->ckData
.dwDataOffset
+
962 start
* This
->sInfo
.dwSampleSize
, SEEK_SET
) == -1)
963 return AVIERR_FILEWRITE
;
964 if (mmioWrite(This
->hmmio
, (HPSTR
)buffer
, buffersize
) != buffersize
)
965 return AVIERR_FILEWRITE
;
967 This
->sInfo
.dwLength
= max(This
->sInfo
.dwLength
, (DWORD
)start
+ samples
);
968 This
->ckData
.cksize
= max(This
->ckData
.cksize
,
969 start
* This
->sInfo
.dwSampleSize
+ buffersize
);
971 /* fill out return parameters if given */
972 if (sampwritten
!= NULL
)
973 *sampwritten
= samples
;
974 if (byteswritten
!= NULL
)
975 *byteswritten
= buffersize
;
981 static HRESULT WINAPI
IAVIStream_fnDelete(IAVIStream
*iface
, LONG start
,
984 IAVIFileImpl
*This
= ((IAVIStreamImpl
*)iface
)->paf
;
986 TRACE("(%p,%ld,%ld)\n", iface
, start
, samples
);
988 /* check parameters */
989 if (start
< 0 || samples
< 0)
990 return AVIERR_BADPARAM
;
992 /* Delete before start of stream? */
993 if ((DWORD
)(start
+ samples
) < This
->sInfo
.dwStart
)
996 /* Delete after end of stream? */
997 if ((DWORD
)start
> This
->sInfo
.dwLength
)
1000 /* For the rest we need write permissions */
1001 if ((This
->uMode
& MMIO_RWMODE
) == 0)
1002 return AVIERR_READONLY
;
1004 if ((DWORD
)(start
+ samples
) >= This
->sInfo
.dwLength
) {
1005 /* deletion at end */
1006 samples
= This
->sInfo
.dwLength
- start
;
1007 This
->sInfo
.dwLength
-= samples
;
1008 This
->ckData
.cksize
-= samples
* This
->sInfo
.dwSampleSize
;
1009 } else if ((DWORD
)start
<= This
->sInfo
.dwStart
) {
1010 /* deletion at start */
1011 samples
= This
->sInfo
.dwStart
- start
;
1012 start
= This
->sInfo
.dwStart
;
1013 This
->ckData
.dwDataOffset
+= samples
* This
->sInfo
.dwSampleSize
;
1014 This
->ckData
.cksize
-= samples
* This
->sInfo
.dwSampleSize
;
1016 /* deletion inside stream -- needs playlist and cue's */
1017 FIXME(": deletion inside of stream not supported!\n");
1019 return AVIERR_UNSUPPORTED
;
1027 static HRESULT WINAPI
IAVIStream_fnReadData(IAVIStream
*iface
, DWORD fcc
,
1028 LPVOID lp
, LPLONG lpread
)
1030 ICOM_THIS(IAVIStreamImpl
,iface
);
1032 assert(This
->paf
!= NULL
);
1034 return IAVIFile_ReadData((PAVIFILE
)This
->paf
, fcc
, lp
, lpread
);
1037 static HRESULT WINAPI
IAVIStream_fnWriteData(IAVIStream
*iface
, DWORD fcc
,
1038 LPVOID lp
, LONG size
)
1040 ICOM_THIS(IAVIStreamImpl
,iface
);
1042 return IAVIFile_WriteData((PAVIFILE
)This
->paf
, fcc
, lp
, size
);
1045 static HRESULT WINAPI
IAVIStream_fnSetInfo(IAVIStream
*iface
,
1046 LPAVISTREAMINFOW info
, LONG infolen
)
1048 FIXME("(%p,%p,%ld): stub\n", iface
, info
, infolen
);
1053 /***********************************************************************/
1055 static HRESULT
AVIFILE_LoadFile(IAVIFileImpl
*This
)
1060 This
->sInfo
.dwLength
= 0; /* just to be sure */
1061 This
->fDirty
= FALSE
;
1063 /* search for RIFF chunk */
1064 ckRIFF
.fccType
= 0; /* find any */
1065 if (mmioDescend(This
->hmmio
, &ckRIFF
, NULL
, MMIO_FINDRIFF
) != S_OK
) {
1066 return AVIFILE_LoadSunFile(This
);
1069 if (ckRIFF
.fccType
!= formtypeWAVE
)
1070 return AVIERR_BADFORMAT
;
1072 /* search WAVE format chunk */
1073 ck
.ckid
= ckidWAVEFORMAT
;
1074 if (FindChunkAndKeepExtras(&This
->extra
, This
->hmmio
, &ck
,
1075 &ckRIFF
, MMIO_FINDCHUNK
) != S_OK
)
1076 return AVIERR_FILEREAD
;
1078 /* get memory for format and read it */
1079 This
->lpFormat
= (LPWAVEFORMATEX
)GlobalAllocPtr(GMEM_MOVEABLE
, ck
.cksize
);
1080 if (This
->lpFormat
== NULL
)
1081 return AVIERR_FILEREAD
;
1082 This
->cbFormat
= ck
.cksize
;
1084 if (mmioRead(This
->hmmio
, (HPSTR
)This
->lpFormat
, ck
.cksize
) != ck
.cksize
)
1085 return AVIERR_FILEREAD
;
1086 if (mmioAscend(This
->hmmio
, &ck
, 0) != S_OK
)
1087 return AVIERR_FILEREAD
;
1089 /* Non-pcm formats have a fact chunk.
1090 * We don't need it, so simply add it to the extra chunks.
1093 /* find the big data chunk */
1094 This
->ckData
.ckid
= ckidWAVEDATA
;
1095 if (FindChunkAndKeepExtras(&This
->extra
, This
->hmmio
, &This
->ckData
,
1096 &ckRIFF
, MMIO_FINDCHUNK
) != S_OK
)
1097 return AVIERR_FILEREAD
;
1099 memset(&This
->sInfo
, 0, sizeof(This
->sInfo
));
1100 This
->sInfo
.fccType
= streamtypeAUDIO
;
1101 This
->sInfo
.dwRate
= This
->lpFormat
->nAvgBytesPerSec
;
1102 This
->sInfo
.dwSampleSize
=
1103 This
->sInfo
.dwScale
= This
->lpFormat
->nBlockAlign
;
1104 This
->sInfo
.dwLength
= This
->ckData
.cksize
/ This
->lpFormat
->nBlockAlign
;
1105 This
->sInfo
.dwSuggestedBufferSize
= This
->ckData
.cksize
;
1107 This
->fInfo
.dwStreams
= 1;
1109 if (mmioAscend(This
->hmmio
, &This
->ckData
, 0) != S_OK
) {
1110 /* seems to be truncated */
1111 WARN(": file seems to be truncated!\n");
1112 This
->ckData
.cksize
= mmioSeek(This
->hmmio
, 0, SEEK_END
) -
1113 This
->ckData
.dwDataOffset
;
1114 This
->sInfo
.dwLength
= This
->ckData
.cksize
/ This
->lpFormat
->nBlockAlign
;
1115 This
->sInfo
.dwSuggestedBufferSize
= This
->ckData
.cksize
;
1119 FindChunkAndKeepExtras(&This
->extra
, This
->hmmio
, &ck
, &ckRIFF
, 0);
1124 static HRESULT
AVIFILE_LoadSunFile(IAVIFileImpl
*This
)
1126 SUNAUDIOHEADER auhdr
;
1128 mmioSeek(This
->hmmio
, 0, SEEK_SET
);
1129 if (mmioRead(This
->hmmio
, (HPSTR
)&auhdr
, sizeof(auhdr
)) != sizeof(auhdr
))
1130 return AVIERR_FILEREAD
;
1132 if (auhdr
.fccType
== 0x0064732E) {
1133 /* header in little endian */
1134 This
->ckData
.dwDataOffset
= LE2H_DWORD(auhdr
.offset
);
1135 This
->ckData
.cksize
= LE2H_DWORD(auhdr
.size
);
1137 auhdr
.encoding
= LE2H_DWORD(auhdr
.encoding
);
1138 auhdr
.sampleRate
= LE2H_DWORD(auhdr
.sampleRate
);
1139 auhdr
.channels
= LE2H_DWORD(auhdr
.channels
);
1140 } else if (auhdr
.fccType
== mmioFOURCC('.','s','n','d')) {
1141 /* header in big endian */
1142 This
->ckData
.dwDataOffset
= BE2H_DWORD(auhdr
.offset
);
1143 This
->ckData
.cksize
= BE2H_DWORD(auhdr
.size
);
1145 auhdr
.encoding
= BE2H_DWORD(auhdr
.encoding
);
1146 auhdr
.sampleRate
= BE2H_DWORD(auhdr
.sampleRate
);
1147 auhdr
.channels
= BE2H_DWORD(auhdr
.channels
);
1149 return AVIERR_FILEREAD
;
1151 if (auhdr
.channels
< 1)
1152 return AVIERR_BADFORMAT
;
1154 /* get size of header */
1155 switch(auhdr
.encoding
) {
1156 case AU_ENCODING_ADPCM_G721_32
:
1157 This
->cbFormat
= sizeof(G721_ADPCMWAVEFORMAT
); break;
1158 case AU_ENCODING_ADPCM_G723_24
:
1159 This
->cbFormat
= sizeof(G723_ADPCMWAVEFORMAT
); break;
1160 case AU_ENCODING_ADPCM_G722
:
1161 case AU_ENCODING_ADPCM_G723_5
:
1162 WARN("unsupported Sun audio format %d\n", auhdr
.encoding
);
1163 return AVIERR_UNSUPPORTED
; /* FIXME */
1165 This
->cbFormat
= sizeof(WAVEFORMATEX
); break;
1169 (LPWAVEFORMATEX
)GlobalAllocPtr(GMEM_MOVEABLE
, This
->cbFormat
);
1170 if (This
->lpFormat
== NULL
)
1171 return AVIERR_MEMORY
;
1173 This
->lpFormat
->nChannels
= auhdr
.channels
;
1174 This
->lpFormat
->nSamplesPerSec
= auhdr
.sampleRate
;
1175 switch(auhdr
.encoding
) {
1176 case AU_ENCODING_ULAW_8
:
1177 This
->lpFormat
->wFormatTag
= WAVE_FORMAT_MULAW
;
1178 This
->lpFormat
->wBitsPerSample
= 8;
1180 case AU_ENCODING_PCM_8
:
1181 This
->lpFormat
->wFormatTag
= WAVE_FORMAT_PCM
;
1182 This
->lpFormat
->wBitsPerSample
= 8;
1184 case AU_ENCODING_PCM_16
:
1185 This
->lpFormat
->wFormatTag
= WAVE_FORMAT_PCM
;
1186 This
->lpFormat
->wBitsPerSample
= 16;
1188 case AU_ENCODING_PCM_24
:
1189 This
->lpFormat
->wFormatTag
= WAVE_FORMAT_PCM
;
1190 This
->lpFormat
->wBitsPerSample
= 24;
1192 case AU_ENCODING_PCM_32
:
1193 This
->lpFormat
->wFormatTag
= WAVE_FORMAT_PCM
;
1194 This
->lpFormat
->wBitsPerSample
= 32;
1196 case AU_ENCODING_ALAW_8
:
1197 This
->lpFormat
->wFormatTag
= WAVE_FORMAT_ALAW
;
1198 This
->lpFormat
->wBitsPerSample
= 8;
1200 case AU_ENCODING_ADPCM_G721_32
:
1201 This
->lpFormat
->wFormatTag
= WAVE_FORMAT_G721_ADPCM
;
1202 This
->lpFormat
->wBitsPerSample
= (3*5*8);
1203 This
->lpFormat
->nBlockAlign
= 15*15*8;
1204 This
->lpFormat
->cbSize
= sizeof(WORD
);
1205 ((LPG721_ADPCMWAVEFORMAT
)This
->lpFormat
)->nAuxBlockSize
= 0;
1207 case AU_ENCODING_ADPCM_G723_24
:
1208 This
->lpFormat
->wFormatTag
= WAVE_FORMAT_G723_ADPCM
;
1209 This
->lpFormat
->wBitsPerSample
= (3*5*8);
1210 This
->lpFormat
->nBlockAlign
= 15*15*8;
1211 This
->lpFormat
->cbSize
= 2*sizeof(WORD
);
1212 ((LPG723_ADPCMWAVEFORMAT
)This
->lpFormat
)->cbExtraSize
= 0;
1213 ((LPG723_ADPCMWAVEFORMAT
)This
->lpFormat
)->nAuxBlockSize
= 0;
1216 WARN("unsupported Sun audio format %d\n", auhdr
.encoding
);
1217 return AVIERR_UNSUPPORTED
;
1220 This
->lpFormat
->nBlockAlign
=
1221 (This
->lpFormat
->nChannels
* This
->lpFormat
->wBitsPerSample
) / 8;
1222 if (This
->lpFormat
->nBlockAlign
== 0 && This
->lpFormat
->wBitsPerSample
< 8)
1223 This
->lpFormat
->nBlockAlign
++;
1224 This
->lpFormat
->nAvgBytesPerSec
=
1225 This
->lpFormat
->nBlockAlign
* This
->lpFormat
->nSamplesPerSec
;
1229 This
->sInfo
.fccType
= streamtypeAUDIO
;
1230 This
->sInfo
.fccHandler
= 0;
1231 This
->sInfo
.dwFlags
= 0;
1232 This
->sInfo
.wPriority
= 0;
1233 This
->sInfo
.wLanguage
= 0;
1234 This
->sInfo
.dwInitialFrames
= 0;
1235 This
->sInfo
.dwScale
= This
->lpFormat
->nBlockAlign
;
1236 This
->sInfo
.dwRate
= This
->lpFormat
->nAvgBytesPerSec
;
1237 This
->sInfo
.dwStart
= 0;
1238 This
->sInfo
.dwLength
=
1239 This
->ckData
.cksize
/ This
->lpFormat
->nBlockAlign
;
1240 This
->sInfo
.dwSuggestedBufferSize
= This
->sInfo
.dwLength
;
1241 This
->sInfo
.dwSampleSize
= This
->lpFormat
->nBlockAlign
;
1243 This
->fInfo
.dwStreams
= 1;
1244 This
->fInfo
.dwScale
= 1;
1245 This
->fInfo
.dwRate
= This
->lpFormat
->nSamplesPerSec
;
1246 This
->fInfo
.dwLength
=
1247 MulDiv(This
->ckData
.cksize
, This
->lpFormat
->nSamplesPerSec
,
1248 This
->lpFormat
->nAvgBytesPerSec
);
1253 static HRESULT
AVIFILE_SaveFile(IAVIFileImpl
*This
)
1258 mmioSeek(This
->hmmio
, 0, SEEK_SET
);
1260 /* create the RIFF chunk with formtype WAVE */
1261 ckRIFF
.fccType
= formtypeWAVE
;
1263 if (mmioCreateChunk(This
->hmmio
, &ckRIFF
, MMIO_CREATERIFF
) != S_OK
)
1264 return AVIERR_FILEWRITE
;
1266 /* the next chunk is the format */
1267 ck
.ckid
= ckidWAVEFORMAT
;
1268 ck
.cksize
= This
->cbFormat
;
1269 if (mmioCreateChunk(This
->hmmio
, &ck
, 0) != S_OK
)
1270 return AVIERR_FILEWRITE
;
1271 if (This
->lpFormat
!= NULL
&& This
->cbFormat
> 0) {
1272 if (mmioWrite(This
->hmmio
, (HPSTR
)This
->lpFormat
, ck
.cksize
) != ck
.cksize
)
1273 return AVIERR_FILEWRITE
;
1275 if (mmioAscend(This
->hmmio
, &ck
, 0) != S_OK
)
1276 return AVIERR_FILEWRITE
;
1278 /* fact chunk is needed for non-pcm waveforms */
1279 if (This
->lpFormat
!= NULL
&& This
->cbFormat
> sizeof(PCMWAVEFORMAT
) &&
1280 This
->lpFormat
->wFormatTag
!= WAVE_FORMAT_PCM
) {
1285 /* try to open an appropriate audio codec to figure out
1286 * data for fact-chunk */
1287 wfx
.wFormatTag
= WAVE_FORMAT_PCM
;
1288 if (acmFormatSuggest(NULL
, This
->lpFormat
, &wfx
,
1289 sizeof(wfx
), ACM_FORMATSUGGESTF_WFORMATTAG
)) {
1290 acmStreamOpen(&has
, NULL
, This
->lpFormat
, &wfx
, NULL
,
1291 0, 0, ACM_STREAMOPENF_NONREALTIME
);
1292 acmStreamSize(has
, This
->ckData
.cksize
, &dwFactLength
,
1293 ACM_STREAMSIZEF_SOURCE
);
1294 dwFactLength
/= wfx
.nBlockAlign
;
1295 acmStreamClose(has
, 0);
1297 /* crete the fact chunk */
1298 ck
.ckid
= ckidWAVEFACT
;
1299 ck
.cksize
= sizeof(dwFactLength
);
1301 /* test for enough space before data chunk */
1302 if (mmioSeek(This
->hmmio
, 0, SEEK_CUR
) > This
->ckData
.dwDataOffset
1303 - ck
.cksize
- 4 * sizeof(DWORD
))
1304 return AVIERR_FILEWRITE
;
1305 if (mmioCreateChunk(This
->hmmio
, &ck
, 0) != S_OK
)
1306 return AVIERR_FILEWRITE
;
1307 if (mmioWrite(This
->hmmio
, (HPSTR
)&dwFactLength
, ck
.cksize
) != ck
.cksize
)
1308 return AVIERR_FILEWRITE
;
1309 if (mmioAscend(This
->hmmio
, &ck
, 0) != S_OK
)
1310 return AVIERR_FILEWRITE
;
1312 ERR(": fact chunk is needed for non-pcm files -- currently no codec found, so skipped!\n");
1315 /* if here was extra stuff, we need to fill it with JUNK */
1316 if (mmioSeek(This
->hmmio
, 0, SEEK_CUR
) + 2 * sizeof(DWORD
) < This
->ckData
.dwDataOffset
) {
1317 ck
.ckid
= ckidAVIPADDING
;
1319 if (mmioCreateChunk(This
->hmmio
, &ck
, 0) != S_OK
)
1320 return AVIERR_FILEWRITE
;
1322 if (mmioSeek(This
->hmmio
, This
->ckData
.dwDataOffset
1323 - 2 * sizeof(DWORD
), SEEK_SET
) == -1)
1324 return AVIERR_FILEWRITE
;
1325 if (mmioAscend(This
->hmmio
, &ck
, 0) != S_OK
)
1326 return AVIERR_FILEWRITE
;
1329 /* crete the data chunk */
1330 ck
.ckid
= ckidWAVEDATA
;
1331 ck
.cksize
= This
->ckData
.cksize
;
1332 if (mmioCreateChunk(This
->hmmio
, &ck
, 0) != S_OK
)
1333 return AVIERR_FILEWRITE
;
1334 if (mmioSeek(This
->hmmio
, This
->ckData
.cksize
, SEEK_CUR
) == -1)
1335 return AVIERR_FILEWRITE
;
1336 if (mmioAscend(This
->hmmio
, &ck
, 0) != S_OK
)
1337 return AVIERR_FILEWRITE
;
1339 /* some optional extra chunks? */
1340 if (This
->extra
.lp
!= NULL
&& This
->extra
.cb
> 0) {
1341 /* chunk headers are already in structure */
1342 if (mmioWrite(This
->hmmio
, This
->extra
.lp
, This
->extra
.cb
) != This
->extra
.cb
)
1343 return AVIERR_FILEWRITE
;
1346 /* close RIFF chunk */
1347 if (mmioAscend(This
->hmmio
, &ckRIFF
, 0) != S_OK
)
1348 return AVIERR_FILEWRITE
;
1349 if (mmioFlush(This
->hmmio
, 0) != S_OK
)
1350 return AVIERR_FILEWRITE
;