include: Fix a number of mmsystem.h structure for Win64.
[wine] / dlls / msvfw32 / msvideo_main.c
1 /*
2  * Copyright 1998 Marcus Meissner
3  * Copyright 2000 Bradley Baetz
4  * Copyright 2003 Michael Günnewig
5  * Copyright 2005 Dmitry Timoshkov
6  *
7  * This library is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU Lesser General Public
9  * License as published by the Free Software Foundation; either
10  * version 2.1 of the License, or (at your option) any later version.
11  *
12  * This library is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  * Lesser General Public License for more details.
16  *
17  * You should have received a copy of the GNU Lesser General Public
18  * License along with this library; if not, write to the Free Software
19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
20  *
21  * FIXME: This all assumes 32 bit codecs
22  *              Win95 appears to prefer 32 bit codecs, even from 16 bit code.
23  *              There is the ICOpenFunction16 to worry about still, though.
24  *      
25  * TODO
26  *      - no thread safety
27  */
28
29 #include <stdarg.h>
30 #include <stdio.h>
31 #include <string.h>
32
33 #include "windef.h"
34 #include "winbase.h"
35 #include "winreg.h"
36 #include "winnls.h"
37 #include "wingdi.h"
38 #include "winuser.h"
39 #include "commdlg.h"
40 #include "vfw.h"
41 #include "msvideo_private.h"
42 #include "wine/debug.h"
43
44 /* Drivers32 settings */
45 #define HKLM_DRIVERS32 "Software\\Microsoft\\Windows NT\\CurrentVersion\\Drivers32"
46
47 WINE_DEFAULT_DEBUG_CHANNEL(msvideo);
48
49 static inline const char *wine_dbgstr_fcc( DWORD fcc )
50 {
51     return wine_dbg_sprintf("%c%c%c%c", 
52                             LOBYTE(LOWORD(fcc)), HIBYTE(LOWORD(fcc)),
53                             LOBYTE(HIWORD(fcc)), HIBYTE(HIWORD(fcc)));
54 }
55
56 LRESULT (CALLBACK *pFnCallTo16)(HDRVR, HIC, UINT, LPARAM, LPARAM) = NULL;
57
58 static WINE_HIC*        MSVIDEO_FirstHic /* = NULL */;
59
60 typedef struct _reg_driver reg_driver;
61 struct _reg_driver
62 {
63     DWORD       fccType;
64     DWORD       fccHandler;
65     DRIVERPROC  proc;
66     LPWSTR      name;
67     reg_driver* next;
68 };
69
70 static reg_driver* reg_driver_list = NULL;
71
72 /* This one is a macro such that it works for both ASCII and Unicode */
73 #define fourcc_to_string(str, fcc) do { \
74         (str)[0] = LOBYTE(LOWORD(fcc)); \
75         (str)[1] = HIBYTE(LOWORD(fcc)); \
76         (str)[2] = LOBYTE(HIWORD(fcc)); \
77         (str)[3] = HIBYTE(HIWORD(fcc)); \
78         } while(0)
79
80 HMODULE MSVFW32_hModule;
81
82 BOOL WINAPI DllMain( HINSTANCE hinst, DWORD reason, LPVOID reserved )
83 {
84     TRACE("%p,%x,%p\n", hinst, reason, reserved);
85
86     switch(reason)
87     {
88         case DLL_PROCESS_ATTACH:
89             DisableThreadLibraryCalls(hinst);
90             MSVFW32_hModule = hinst;
91             break;
92     }
93     return TRUE;
94 }
95
96 static int compare_fourcc(DWORD fcc1, DWORD fcc2)
97 {
98   char fcc_str1[4];
99   char fcc_str2[4];
100   fourcc_to_string(fcc_str1, fcc1);
101   fourcc_to_string(fcc_str2, fcc2);
102   return strncasecmp(fcc_str1, fcc_str2, 4);
103 }
104
105 typedef BOOL (*enum_handler_t)(const char*, unsigned int, void*);
106
107 static BOOL enum_drivers(DWORD fccType, enum_handler_t handler, void* param)
108 {
109     CHAR buf[2048], fccTypeStr[5], *s;
110     DWORD i, cnt = 0, lRet;
111     BOOL result = FALSE;
112     HKEY hKey;
113
114     fourcc_to_string(fccTypeStr, fccType);
115     fccTypeStr[4] = '.';
116
117     /* first, go through the registry entries */
118     lRet = RegOpenKeyExA(HKEY_LOCAL_MACHINE, HKLM_DRIVERS32, 0, KEY_QUERY_VALUE, &hKey);
119     if (lRet == ERROR_SUCCESS) 
120     {
121         DWORD name, data, type;
122         i = 0;
123         for (;;)
124         {
125             name = 10;
126             data = sizeof buf - name;
127             lRet = RegEnumValueA(hKey, i++, buf, &name, 0, &type, (LPBYTE)(buf+name), &data);
128             if (lRet == ERROR_NO_MORE_ITEMS) break;
129             if (lRet != ERROR_SUCCESS) continue;
130             if (name != 9 || strncasecmp(buf, fccTypeStr, 5)) continue;
131             buf[name] = '=';
132             if ((result = handler(buf, cnt++, param))) break;
133         }
134         RegCloseKey( hKey );
135     }
136     if (result) return result;
137
138     /* if that didn't work, go through the values in system.ini */
139     if (GetPrivateProfileSectionA("drivers32", buf, sizeof(buf), "system.ini")) 
140     {
141         for (s = buf; *s; s += strlen(s) + 1)
142         {
143             TRACE("got %s\n", s);
144             if (strncasecmp(s, fccTypeStr, 5) || s[9] != '=') continue;
145             if ((result = handler(s, cnt++, param))) break;
146         }
147     }
148
149     return result;
150 }
151
152 /******************************************************************
153  *              MSVIDEO_GetHicPtr
154  *
155  *
156  */
157 WINE_HIC*   MSVIDEO_GetHicPtr(HIC hic)
158 {
159     WINE_HIC*   whic;
160
161     for (whic = MSVIDEO_FirstHic; whic && whic->hic != hic; whic = whic->next);
162     return whic;
163 }
164
165 /***********************************************************************
166  *              VideoForWindowsVersion          [MSVFW32.2]
167  *              VideoForWindowsVersion          [MSVIDEO.2]
168  * Returns the version in major.minor form.
169  * In Windows95 this returns 0x040003b6 (4.950)
170  */
171 DWORD WINAPI VideoForWindowsVersion(void) 
172 {
173     return 0x040003B6; /* 4.950 */
174 }
175
176 static BOOL ICInfo_enum_handler(const char *drv, unsigned int nr, void *param)
177 {
178     ICINFO *lpicinfo = (ICINFO *)param;
179     DWORD fccHandler = mmioStringToFOURCCA(drv + 5, 0);
180
181     /* exact match of fccHandler or nth driver found */
182     if ((lpicinfo->fccHandler != nr) && (lpicinfo->fccHandler != fccHandler))
183         return FALSE;
184
185     lpicinfo->fccHandler = fccHandler;
186     lpicinfo->dwFlags = 0;
187     lpicinfo->dwVersion = 0;
188     lpicinfo->dwVersionICM = ICVERSION;
189     lpicinfo->szName[0] = 0;
190     lpicinfo->szDescription[0] = 0;
191     MultiByteToWideChar(CP_ACP, 0, drv + 10, -1, lpicinfo->szDriver, 
192                         sizeof(lpicinfo->szDriver)/sizeof(WCHAR));
193
194     return TRUE;
195 }
196
197 /***********************************************************************
198  *              ICInfo                          [MSVFW32.@]
199  * Get information about an installable compressor. Return TRUE if there
200  * is one.
201  *
202  * PARAMS
203  *   fccType     [I] type of compressor (e.g. 'vidc')
204  *   fccHandler  [I] real fcc for handler or <n>th compressor
205  *   lpicinfo    [O] information about compressor
206  */
207 BOOL VFWAPI ICInfo( DWORD fccType, DWORD fccHandler, ICINFO *lpicinfo)
208 {
209     TRACE("(%s,%s/%08x,%p)\n",
210           wine_dbgstr_fcc(fccType), wine_dbgstr_fcc(fccHandler), fccHandler, lpicinfo);
211
212     lpicinfo->fccType = fccType;
213     lpicinfo->fccHandler = fccHandler;
214     return enum_drivers(fccType, ICInfo_enum_handler, lpicinfo);
215 }
216
217 static DWORD IC_HandleRef = 1;
218
219 /***********************************************************************
220  *              ICInstall                       [MSVFW32.@]
221  */
222 BOOL VFWAPI ICInstall(DWORD fccType, DWORD fccHandler, LPARAM lParam, LPSTR szDesc, UINT wFlags) 
223 {
224     reg_driver* driver;
225     unsigned len;
226
227     TRACE("(%s,%s,%p,%p,0x%08x)\n", wine_dbgstr_fcc(fccType), wine_dbgstr_fcc(fccHandler), (void*)lParam, szDesc, wFlags);
228
229     /* Check if a driver is already registered */
230     for (driver = reg_driver_list; driver; driver = driver->next)
231     {
232         if (!compare_fourcc(fccType, driver->fccType) &&
233             !compare_fourcc(fccHandler, driver->fccHandler))
234             break;
235     }
236     if (driver) return FALSE;
237
238     /* Register the driver */
239     driver = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(reg_driver));
240     if (!driver) goto oom;
241     driver->fccType = fccType;
242     driver->fccHandler = fccHandler;
243
244     switch(wFlags)
245     {
246     case ICINSTALL_FUNCTION:
247         driver->proc = (DRIVERPROC)lParam;
248         driver->name = NULL;
249         break;
250     case ICINSTALL_DRIVER:
251         driver->proc = NULL;
252         len = MultiByteToWideChar(CP_ACP, 0, (char*)lParam, -1, NULL, 0);
253         driver->name = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
254         if (!driver->name) goto oom;
255         MultiByteToWideChar(CP_ACP, 0, (char*)lParam, -1, driver->name, len);
256         break;
257     default:
258         ERR("Invalid flags!\n");
259         HeapFree(GetProcessHeap(), 0, driver);
260         return FALSE;
261    }
262
263    /* Insert our driver in the list*/
264    driver->next = reg_driver_list;
265    reg_driver_list = driver;
266     
267    return TRUE;
268 oom:
269    HeapFree(GetProcessHeap(), 0, driver);
270    return FALSE;
271 }
272
273 /***********************************************************************
274  *              ICRemove                        [MSVFW32.@]
275  */
276 BOOL VFWAPI ICRemove(DWORD fccType, DWORD fccHandler, UINT wFlags) 
277 {
278     reg_driver** pdriver;
279     reg_driver*  drv;
280
281     TRACE("(%s,%s,0x%08x)\n", wine_dbgstr_fcc(fccType), wine_dbgstr_fcc(fccHandler), wFlags);
282
283     /* Check if a driver is already registered */
284     for (pdriver = &reg_driver_list; *pdriver; pdriver = &(*pdriver)->next)
285     {
286         if (!compare_fourcc(fccType, (*pdriver)->fccType) &&
287             !compare_fourcc(fccHandler, (*pdriver)->fccHandler))
288             break;
289     }
290     if (!*pdriver)
291         return FALSE;
292
293     /* Remove the driver from the list */
294     drv = *pdriver;
295     *pdriver = (*pdriver)->next;
296     HeapFree(GetProcessHeap(), 0, drv->name);
297     HeapFree(GetProcessHeap(), 0, drv);
298     
299     return TRUE;  
300 }
301
302
303 /***********************************************************************
304  *              ICOpen                          [MSVFW32.@]
305  * Opens an installable compressor. Return special handle.
306  */
307 HIC VFWAPI ICOpen(DWORD fccType, DWORD fccHandler, UINT wMode) 
308 {
309     WCHAR               codecname[10];
310     ICOPEN              icopen;
311     HDRVR               hdrv;
312     WINE_HIC*           whic;
313     BOOL                bIs16;
314     static const WCHAR  drv32W[] = {'d','r','i','v','e','r','s','3','2','\0'};
315     reg_driver*         driver;
316
317     TRACE("(%s,%s,0x%08x)\n", wine_dbgstr_fcc(fccType), wine_dbgstr_fcc(fccHandler), wMode);
318
319     /* Check if there is a registered driver that matches */
320     driver = reg_driver_list;
321     while(driver)
322         if (!compare_fourcc(fccType, driver->fccType) &&
323             !compare_fourcc(fccHandler, driver->fccHandler))
324             break;
325         else
326             driver = driver->next;
327
328     if (driver && driver->proc)
329         /* The driver has been registered at runtime with its driverproc */
330         return MSVIDEO_OpenFunction(fccType, fccHandler, wMode, driver->proc, 0);
331   
332     /* Well, lParam2 is in fact a LPVIDEO_OPEN_PARMS, but it has the
333      * same layout as ICOPEN
334      */
335     icopen.dwSize               = sizeof(ICOPEN);
336     icopen.fccType              = fccType;
337     icopen.fccHandler           = fccHandler;
338     icopen.dwVersion            = 0x00001000; /* FIXME */
339     icopen.dwFlags              = wMode;
340     icopen.dwError              = 0;
341     icopen.pV1Reserved          = NULL;
342     icopen.pV2Reserved          = NULL;
343     icopen.dnDevNode            = 0; /* FIXME */
344         
345     if (!driver) {
346         /* The driver is registered in the registry */
347         fourcc_to_string(codecname, fccType);
348         codecname[4] = '.';
349         fourcc_to_string(codecname + 5, fccHandler);
350         codecname[9] = '\0';
351
352         hdrv = OpenDriver(codecname, drv32W, (LPARAM)&icopen);
353         if (!hdrv) 
354             return 0;
355     } else {
356         /* The driver has been registered at runtime with its name */
357         hdrv = OpenDriver(driver->name, NULL, (LPARAM)&icopen);
358         if (!hdrv) 
359             return 0; 
360     }
361     bIs16 = GetDriverFlags(hdrv) & 0x10000000; /* undocumented flag: WINE_GDF_16BIT */
362
363     if (bIs16 && !pFnCallTo16)
364     {
365         FIXME("Got a 16 bit driver, but no 16 bit support in msvfw\n");
366         return 0;
367     }
368     whic = HeapAlloc(GetProcessHeap(), 0, sizeof(WINE_HIC));
369     if (!whic)
370     {
371         CloseDriver(hdrv, 0, 0);
372         return FALSE;
373     }
374     whic->hdrv          = hdrv;
375     /* FIXME: is the signature the real one ? */
376     whic->driverproc    = bIs16 ? (DRIVERPROC)pFnCallTo16 : NULL;
377     whic->driverproc16  = 0;
378     whic->type          = fccType;
379     whic->handler       = fccHandler;
380     while (MSVIDEO_GetHicPtr(HIC_32(IC_HandleRef)) != NULL) IC_HandleRef++;
381     whic->hic           = HIC_32(IC_HandleRef++);
382     whic->next          = MSVIDEO_FirstHic;
383     MSVIDEO_FirstHic = whic;
384
385     TRACE("=> %p\n", whic->hic);
386     return whic->hic;
387 }
388
389 /***********************************************************************
390  *              MSVIDEO_OpenFunction
391  */
392 HIC MSVIDEO_OpenFunction(DWORD fccType, DWORD fccHandler, UINT wMode, 
393                          DRIVERPROC lpfnHandler, DWORD lpfnHandler16) 
394 {
395     ICOPEN      icopen;
396     WINE_HIC*   whic;
397
398     TRACE("(%s,%s,%d,%p,%08x)\n",
399           wine_dbgstr_fcc(fccType), wine_dbgstr_fcc(fccHandler), wMode, lpfnHandler, lpfnHandler16);
400
401     icopen.dwSize               = sizeof(ICOPEN);
402     icopen.fccType              = fccType;
403     icopen.fccHandler           = fccHandler;
404     icopen.dwVersion            = ICVERSION;
405     icopen.dwFlags              = wMode;
406     icopen.dwError              = 0;
407     icopen.pV1Reserved          = NULL;
408     icopen.pV2Reserved          = NULL;
409     icopen.dnDevNode            = 0; /* FIXME */
410
411     whic = HeapAlloc(GetProcessHeap(), 0, sizeof(WINE_HIC));
412     if (!whic) return 0;
413
414     whic->driverproc   = lpfnHandler;
415     whic->driverproc16 = lpfnHandler16;
416     while (MSVIDEO_GetHicPtr(HIC_32(IC_HandleRef)) != NULL) IC_HandleRef++;
417     whic->hic          = HIC_32(IC_HandleRef++);
418     whic->next         = MSVIDEO_FirstHic;
419     MSVIDEO_FirstHic = whic;
420
421     /* Now try opening/loading the driver. Taken from DRIVER_AddToList */
422     /* What if the function is used more than once? */
423
424     if (MSVIDEO_SendMessage(whic, DRV_LOAD, 0L, 0L) != DRV_SUCCESS) 
425     {
426         WARN("DRV_LOAD failed for hic %p\n", whic->hic);
427         MSVIDEO_FirstHic = whic->next;
428         HeapFree(GetProcessHeap(), 0, whic);
429         return 0;
430     }
431     /* return value is not checked */
432     MSVIDEO_SendMessage(whic, DRV_ENABLE, 0L, 0L);
433
434     whic->driverId = (DWORD)MSVIDEO_SendMessage(whic, DRV_OPEN, 0, (DWORD_PTR)&icopen);
435     /* FIXME: What should we put here? */
436     whic->hdrv = NULL;
437     
438     if (whic->driverId == 0) 
439     {
440         WARN("DRV_OPEN failed for hic %p\n", whic->hic);
441         MSVIDEO_FirstHic = whic->next;
442         HeapFree(GetProcessHeap(), 0, whic);
443         return 0;
444     }
445
446     TRACE("=> %p\n", whic->hic);
447     return whic->hic;
448 }
449
450 /***********************************************************************
451  *              ICOpenFunction                  [MSVFW32.@]
452  */
453 HIC VFWAPI ICOpenFunction(DWORD fccType, DWORD fccHandler, UINT wMode, FARPROC lpfnHandler) 
454 {
455     return MSVIDEO_OpenFunction(fccType, fccHandler, wMode, (DRIVERPROC)lpfnHandler, 0);
456 }
457
458 /***********************************************************************
459  *              ICGetInfo                       [MSVFW32.@]
460  */
461 LRESULT VFWAPI ICGetInfo(HIC hic, ICINFO *picinfo, DWORD cb) 
462 {
463     LRESULT     ret;
464     WINE_HIC*   whic = MSVIDEO_GetHicPtr(hic);
465
466     TRACE("(%p,%p,%d)\n", hic, picinfo, cb);
467
468     whic = MSVIDEO_GetHicPtr(hic);
469     if (!whic) return ICERR_BADHANDLE;
470     if (!picinfo) return MMSYSERR_INVALPARAM;
471
472     /* (WS) The field szDriver should be initialized because the driver 
473      * is not obliged and often will not do it. Some applications, like
474      * VirtualDub, rely on this field and will occasionally crash if it
475      * goes uninitialized.
476      */
477     if (cb >= sizeof(ICINFO)) picinfo->szDriver[0] = '\0';
478
479     ret = ICSendMessage(hic, ICM_GETINFO, (DWORD_PTR)picinfo, cb);
480
481     /* (WS) When szDriver was not supplied by the driver itself, apparently 
482      * Windows will set its value equal to the driver file name. This can
483      * be obtained from the registry as we do here.
484      */
485     if (cb >= sizeof(ICINFO) && picinfo->szDriver[0] == 0)
486     {
487         ICINFO  ii;
488
489         memset(&ii, 0, sizeof(ii));
490         ii.dwSize = sizeof(ii);
491         ICInfo(picinfo->fccType, picinfo->fccHandler, &ii);
492         lstrcpyW(picinfo->szDriver, ii.szDriver);
493     }
494
495     TRACE("     -> 0x%08lx\n", ret);
496     return ret;
497 }
498
499 typedef struct {
500     DWORD fccType;
501     DWORD fccHandler;
502     LPBITMAPINFOHEADER lpbiIn;
503     LPBITMAPINFOHEADER lpbiOut;
504     WORD wMode;
505     DWORD querymsg;
506     HIC hic;
507 } driver_info_t;
508
509 static HIC try_driver(driver_info_t *info)
510 {
511     HIC   hic;
512
513     if ((hic = ICOpen(info->fccType, info->fccHandler, info->wMode))) 
514     {
515         if (!ICSendMessage(hic, info->querymsg, (DWORD_PTR)info->lpbiIn, (DWORD_PTR)info->lpbiOut))
516             return hic;
517         ICClose(hic);
518     }
519     return 0;
520 }
521
522 static BOOL ICLocate_enum_handler(const char *drv, unsigned int nr, void *param)
523 {
524     driver_info_t *info = (driver_info_t *)param;
525     info->fccHandler = mmioStringToFOURCCA(drv + 5, 0);
526     info->hic = try_driver(info);
527     return info->hic != 0;
528 }
529
530 /***********************************************************************
531  *              ICLocate                        [MSVFW32.@]
532  */
533 HIC VFWAPI ICLocate(DWORD fccType, DWORD fccHandler, LPBITMAPINFOHEADER lpbiIn,
534                     LPBITMAPINFOHEADER lpbiOut, WORD wMode)
535 {
536     driver_info_t info;
537
538     TRACE("(%s,%s,%p,%p,0x%04x)\n", 
539           wine_dbgstr_fcc(fccType), wine_dbgstr_fcc(fccHandler), lpbiIn, lpbiOut, wMode);
540
541     info.fccType = fccType;
542     info.fccHandler = fccHandler;
543     info.lpbiIn = lpbiIn;
544     info.lpbiOut = lpbiOut;
545     info.wMode = wMode;
546
547     switch (wMode) 
548     {
549     case ICMODE_FASTCOMPRESS:
550     case ICMODE_COMPRESS:
551         info.querymsg = ICM_COMPRESS_QUERY;
552         break;
553     case ICMODE_FASTDECOMPRESS:
554     case ICMODE_DECOMPRESS:
555         info.querymsg = ICM_DECOMPRESS_QUERY;
556         break;
557     case ICMODE_DRAW:
558         info.querymsg = ICM_DRAW_QUERY;
559         break;
560     default:
561         WARN("Unknown mode (%d)\n", wMode);
562         return 0;
563     }
564
565     /* Easy case: handler/type match, we just fire a query and return */
566     info.hic = try_driver(&info);
567     /* If it didn't work, try each driver in turn. 32 bit codecs only. */
568     /* FIXME: Move this to an init routine? */
569     if (!info.hic) enum_drivers(fccType, ICLocate_enum_handler, &info);
570
571     if (info.hic) 
572     {
573         TRACE("=> %p\n", info.hic);
574         return info.hic;
575     }
576
577     if (fccType == streamtypeVIDEO) 
578         return ICLocate(ICTYPE_VIDEO, fccHandler, lpbiIn, lpbiOut, wMode);
579     
580     WARN("(%s,%s,%p,%p,0x%04x) not found!\n",
581          wine_dbgstr_fcc(fccType), wine_dbgstr_fcc(fccHandler), lpbiIn, lpbiOut, wMode);
582     return 0;
583 }
584
585 /***********************************************************************
586  *              ICGetDisplayFormat                      [MSVFW32.@]
587  */
588 HIC VFWAPI ICGetDisplayFormat(
589         HIC hic,LPBITMAPINFOHEADER lpbiIn,LPBITMAPINFOHEADER lpbiOut,
590         INT depth,INT dx,INT dy)
591 {
592         HIC     tmphic = hic;
593
594         TRACE("(%p,%p,%p,%d,%d,%d)!\n",hic,lpbiIn,lpbiOut,depth,dx,dy);
595
596         if (!tmphic) {
597                 tmphic=ICLocate(ICTYPE_VIDEO,0,lpbiIn,NULL,ICMODE_DECOMPRESS);
598                 if (!tmphic)
599                         return tmphic;
600         }
601         if ((dy == lpbiIn->biHeight) && (dx == lpbiIn->biWidth))
602                 dy = dx = 0; /* no resize needed */
603
604         /* Can we decompress it ? */
605         if (ICDecompressQuery(tmphic,lpbiIn,NULL) != 0)
606                 goto errout; /* no, sorry */
607
608         ICSendMessage(tmphic, ICM_DECOMPRESS_GET_FORMAT, (DWORD_PTR)lpbiIn, (DWORD_PTR)lpbiOut);
609
610         if (lpbiOut->biCompression != 0) {
611            FIXME("Ooch, how come decompressor outputs compressed data (%d)??\n",
612                          lpbiOut->biCompression);
613         }
614         if (lpbiOut->biSize < sizeof(*lpbiOut)) {
615            FIXME("Ooch, size of output BIH is too small (%d)\n",
616                          lpbiOut->biSize);
617            lpbiOut->biSize = sizeof(*lpbiOut);
618         }
619         if (!depth) {
620                 HDC     hdc;
621
622                 hdc = GetDC(0);
623                 depth = GetDeviceCaps(hdc,BITSPIXEL)*GetDeviceCaps(hdc,PLANES);
624                 ReleaseDC(0,hdc);
625                 if (depth==15)  depth = 16;
626                 if (depth<8)    depth =  8;
627         }
628         if (lpbiIn->biBitCount == 8)
629                 depth = 8;
630
631         TRACE("=> %p\n", tmphic);
632         return tmphic;
633 errout:
634         if (hic!=tmphic)
635                 ICClose(tmphic);
636
637         TRACE("=> 0\n");
638         return 0;
639 }
640
641 /***********************************************************************
642  *              ICCompress                      [MSVFW32.@]
643  */
644 DWORD VFWAPIV
645 ICCompress(
646         HIC hic,DWORD dwFlags,LPBITMAPINFOHEADER lpbiOutput,LPVOID lpData,
647         LPBITMAPINFOHEADER lpbiInput,LPVOID lpBits,LPDWORD lpckid,
648         LPDWORD lpdwFlags,LONG lFrameNum,DWORD dwFrameSize,DWORD dwQuality,
649         LPBITMAPINFOHEADER lpbiPrev,LPVOID lpPrev)
650 {
651         ICCOMPRESS      iccmp;
652
653         TRACE("(%p,%d,%p,%p,%p,%p,...)\n",hic,dwFlags,lpbiOutput,lpData,lpbiInput,lpBits);
654
655         iccmp.dwFlags           = dwFlags;
656
657         iccmp.lpbiOutput        = lpbiOutput;
658         iccmp.lpOutput          = lpData;
659         iccmp.lpbiInput         = lpbiInput;
660         iccmp.lpInput           = lpBits;
661
662         iccmp.lpckid            = lpckid;
663         iccmp.lpdwFlags         = lpdwFlags;
664         iccmp.lFrameNum         = lFrameNum;
665         iccmp.dwFrameSize       = dwFrameSize;
666         iccmp.dwQuality         = dwQuality;
667         iccmp.lpbiPrev          = lpbiPrev;
668         iccmp.lpPrev            = lpPrev;
669         return ICSendMessage(hic,ICM_COMPRESS,(DWORD_PTR)&iccmp,sizeof(iccmp));
670 }
671
672 /***********************************************************************
673  *              ICDecompress                    [MSVFW32.@]
674  */
675 DWORD VFWAPIV  ICDecompress(HIC hic,DWORD dwFlags,LPBITMAPINFOHEADER lpbiFormat,
676                                 LPVOID lpData,LPBITMAPINFOHEADER lpbi,LPVOID lpBits)
677 {
678         ICDECOMPRESS    icd;
679         DWORD ret;
680
681         TRACE("(%p,%d,%p,%p,%p,%p)\n",hic,dwFlags,lpbiFormat,lpData,lpbi,lpBits);
682
683         TRACE("lpBits[0] == %x\n",((LPDWORD)lpBits)[0]);
684
685         icd.dwFlags     = dwFlags;
686         icd.lpbiInput   = lpbiFormat;
687         icd.lpInput     = lpData;
688
689         icd.lpbiOutput  = lpbi;
690         icd.lpOutput    = lpBits;
691         icd.ckid        = 0;
692         ret = ICSendMessage(hic,ICM_DECOMPRESS,(DWORD_PTR)&icd,sizeof(ICDECOMPRESS));
693
694         TRACE("lpBits[0] == %x\n",((LPDWORD)lpBits)[0]);
695
696         TRACE("-> %d\n",ret);
697
698         return ret;
699 }
700
701
702 struct choose_compressor
703 {
704     UINT flags;
705     LPCSTR title;
706     COMPVARS cv;
707 };
708
709 struct codec_info
710 {
711     HIC hic;
712     ICINFO icinfo;
713 };
714
715 static BOOL enum_compressors(HWND list, COMPVARS *pcv, BOOL enum_all)
716 {
717     UINT id, total = 0;
718     ICINFO icinfo;
719
720     id = 0;
721
722     while (ICInfo(pcv->fccType, id, &icinfo))
723     {
724         struct codec_info *ic;
725         DWORD idx;
726         HIC hic;
727
728         id++;
729
730         hic = ICOpen(icinfo.fccType, icinfo.fccHandler, ICMODE_COMPRESS);
731
732         if (hic)
733         {
734             /* for unknown reason fccHandler reported by the driver
735              * doesn't always work, use the one returned by ICInfo instead.
736              */
737             DWORD fccHandler = icinfo.fccHandler;
738
739             if (!enum_all && pcv->lpbiIn)
740             {
741                 if (ICCompressQuery(hic, pcv->lpbiIn, NULL) != ICERR_OK)
742                 {
743                     TRACE("fccHandler %s doesn't support input DIB format %d\n",
744                           wine_dbgstr_fcc(icinfo.fccHandler), pcv->lpbiIn->bmiHeader.biCompression);
745                     ICClose(hic);
746                     continue;
747                 }
748             }
749
750             ICGetInfo(hic, &icinfo, sizeof(icinfo));
751             icinfo.fccHandler = fccHandler;
752
753             idx = SendMessageW(list, CB_ADDSTRING, 0, (LPARAM)icinfo.szDescription);
754
755             ic = HeapAlloc(GetProcessHeap(), 0, sizeof(struct codec_info));
756             ic->icinfo = icinfo;
757             ic->hic = hic;
758             SendMessageW(list, CB_SETITEMDATA, idx, (LPARAM)ic);
759         }
760         total++;
761     }
762
763     return total != 0;
764 }
765
766 static INT_PTR CALLBACK icm_choose_compressor_dlgproc(HWND hdlg, UINT msg, WPARAM wparam, LPARAM lparam)
767 {
768     switch (msg)
769     {
770     case WM_INITDIALOG:
771     {
772         struct codec_info *ic;
773         WCHAR buf[128];
774         struct choose_compressor *choose_comp = (struct choose_compressor *)lparam;
775
776         SetWindowLongPtrW(hdlg, DWLP_USER, lparam);
777
778         /* FIXME */
779         choose_comp->flags &= ~(ICMF_CHOOSE_DATARATE | ICMF_CHOOSE_KEYFRAME);
780
781         if (choose_comp->title)
782             SetWindowTextA(hdlg, choose_comp->title);
783
784         if (!(choose_comp->flags & ICMF_CHOOSE_DATARATE))
785         {
786             ShowWindow(GetDlgItem(hdlg, IDC_DATARATE_CHECKBOX), SW_HIDE);
787             ShowWindow(GetDlgItem(hdlg, IDC_DATARATE), SW_HIDE);
788             ShowWindow(GetDlgItem(hdlg, IDC_DATARATE_KB), SW_HIDE);
789         }
790
791         if (!(choose_comp->flags & ICMF_CHOOSE_KEYFRAME))
792         {
793             ShowWindow(GetDlgItem(hdlg, IDC_KEYFRAME_CHECKBOX), SW_HIDE);
794             ShowWindow(GetDlgItem(hdlg, IDC_KEYFRAME), SW_HIDE);
795             ShowWindow(GetDlgItem(hdlg, IDC_KEYFRAME_FRAMES), SW_HIDE);
796         }
797
798         /* FIXME */
799         EnableWindow(GetDlgItem(hdlg, IDC_QUALITY_SCROLL), FALSE);
800         EnableWindow(GetDlgItem(hdlg, IDC_QUALITY_TXT), FALSE);
801
802         /*if (!(choose_comp->flags & ICMF_CHOOSE_PREVIEW))
803             ShowWindow(GetDlgItem(hdlg, IDC_PREVIEW), SW_HIDE);*/
804
805         LoadStringW(MSVFW32_hModule, IDS_FULLFRAMES, buf, 128);
806         SendDlgItemMessageW(hdlg, IDC_COMP_LIST, CB_ADDSTRING, 0, (LPARAM)buf);
807
808         ic = HeapAlloc(GetProcessHeap(), 0, sizeof(struct codec_info));
809         ic->icinfo.fccType = streamtypeVIDEO;
810         ic->icinfo.fccHandler = comptypeDIB;
811         ic->hic = 0;
812         SendDlgItemMessageW(hdlg, IDC_COMP_LIST, CB_SETITEMDATA, 0, (LPARAM)ic);
813
814         enum_compressors(GetDlgItem(hdlg, IDC_COMP_LIST), &choose_comp->cv, choose_comp->flags & ICMF_CHOOSE_ALLCOMPRESSORS);
815
816         SendDlgItemMessageW(hdlg, IDC_COMP_LIST, CB_SETCURSEL, 0, 0);
817         SetFocus(GetDlgItem(hdlg, IDC_COMP_LIST));
818
819         SetWindowLongPtrW(hdlg, DWLP_USER, (ULONG_PTR)choose_comp);
820         break;
821     }
822
823     case WM_COMMAND:
824         switch (LOWORD(wparam))
825         {
826         case IDC_COMP_LIST:
827         {
828             INT cur_sel;
829             struct codec_info *ic;
830             BOOL can_configure = FALSE, can_about = FALSE;
831             struct choose_compressor *choose_comp;
832
833             if (HIWORD(wparam) != CBN_SELCHANGE && HIWORD(wparam) != CBN_SETFOCUS)
834                 break;
835
836             choose_comp = (struct choose_compressor *)GetWindowLongPtrW(hdlg, DWLP_USER);
837
838             cur_sel = SendMessageW((HWND)lparam, CB_GETCURSEL, 0, 0);
839
840             ic = (struct codec_info *)SendMessageW((HWND)lparam, CB_GETITEMDATA, cur_sel, 0);
841             if (ic && ic->hic)
842             {
843                 if (ICQueryConfigure(ic->hic) == DRVCNF_OK)
844                     can_configure = TRUE;
845                 if (ICQueryAbout(ic->hic) == DRVCNF_OK)
846                     can_about = TRUE;
847             }
848             EnableWindow(GetDlgItem(hdlg, IDC_CONFIGURE), can_configure);
849             EnableWindow(GetDlgItem(hdlg, IDC_ABOUT), can_about);
850
851             if (choose_comp->flags & ICMF_CHOOSE_DATARATE)
852             {
853                 /* FIXME */
854             }
855             if (choose_comp->flags & ICMF_CHOOSE_KEYFRAME)
856             {
857                 /* FIXME */
858             }
859
860             break;
861         }
862
863         case IDC_CONFIGURE:
864         case IDC_ABOUT:
865         {
866             HWND list = GetDlgItem(hdlg, IDC_COMP_LIST);
867             INT cur_sel;
868             struct codec_info *ic;
869
870             if (HIWORD(wparam) != BN_CLICKED)
871                 break;
872
873             cur_sel = SendMessageW(list, CB_GETCURSEL, 0, 0);
874
875             ic = (struct codec_info *)SendMessageW(list, CB_GETITEMDATA, cur_sel, 0);
876             if (ic && ic->hic)
877             {
878                 if (LOWORD(wparam) == IDC_CONFIGURE)
879                     ICConfigure(ic->hic, hdlg);
880                 else
881                     ICAbout(ic->hic, hdlg);
882             }
883
884             break;
885         }
886
887         case IDOK:
888         {
889             HWND list = GetDlgItem(hdlg, IDC_COMP_LIST);
890             INT cur_sel;
891             struct codec_info *ic;
892
893             if (HIWORD(wparam) != BN_CLICKED)
894                 break;
895
896             cur_sel = SendMessageW(list, CB_GETCURSEL, 0, 0);
897             ic = (struct codec_info *)SendMessageW(list, CB_GETITEMDATA, cur_sel, 0);
898             if (ic)
899             {
900                 struct choose_compressor *choose_comp = (struct choose_compressor *)GetWindowLongPtrW(hdlg, DWLP_USER);
901
902                 choose_comp->cv.hic = ic->hic;
903                 choose_comp->cv.fccType = ic->icinfo.fccType;
904                 choose_comp->cv.fccHandler = ic->icinfo.fccHandler;
905                 /* FIXME: fill everything else */
906
907                 /* prevent closing the codec handle below */
908                 ic->hic = 0;
909             }
910         }
911         /* fall through */
912         case IDCANCEL:
913         {
914             HWND list = GetDlgItem(hdlg, IDC_COMP_LIST);
915             INT idx = 0;
916
917             if (HIWORD(wparam) != BN_CLICKED)
918                 break;
919
920             while (1)
921             {
922                 struct codec_info *ic;
923     
924                 ic = (struct codec_info *)SendMessageW(list, CB_GETITEMDATA, idx++, 0);
925
926                 if (!ic || (LONG_PTR)ic == CB_ERR) break;
927
928                 if (ic->hic) ICClose(ic->hic);
929                 HeapFree(GetProcessHeap(), 0, ic);
930             }
931
932             EndDialog(hdlg, LOWORD(wparam) == IDOK);
933             break;
934         }
935
936         default:
937             break;
938         }
939         break;
940
941     default:
942         break;
943     }
944
945     return FALSE;
946 }
947
948 /***********************************************************************
949  *              ICCompressorChoose   [MSVFW32.@]
950  */
951 BOOL VFWAPI ICCompressorChoose(HWND hwnd, UINT uiFlags, LPVOID pvIn,
952                                LPVOID lpData, PCOMPVARS pc, LPSTR lpszTitle)
953 {
954     struct choose_compressor choose_comp;
955     BOOL ret;
956
957     TRACE("(%p,%08x,%p,%p,%p,%s)\n", hwnd, uiFlags, pvIn, lpData, pc, lpszTitle);
958
959     if (!pc || pc->cbSize != sizeof(COMPVARS))
960         return FALSE;
961
962     if (!(pc->dwFlags & ICMF_COMPVARS_VALID))
963     {
964         pc->dwFlags   = 0;
965         pc->fccType   = pc->fccHandler = 0;
966         pc->hic       = NULL;
967         pc->lpbiIn    = NULL;
968         pc->lpbiOut   = NULL;
969         pc->lpBitsOut = pc->lpBitsPrev = pc->lpState = NULL;
970         pc->lQ        = ICQUALITY_DEFAULT;
971         pc->lKey      = -1;
972         pc->lDataRate = 300; /* kB */
973         pc->lpState   = NULL;
974         pc->cbState   = 0;
975     }
976     if (pc->fccType == 0)
977         pc->fccType = ICTYPE_VIDEO;
978
979     choose_comp.cv = *pc;
980     choose_comp.flags = uiFlags;
981     choose_comp.title = lpszTitle;
982
983     ret = DialogBoxParamW(MSVFW32_hModule, MAKEINTRESOURCEW(ICM_CHOOSE_COMPRESSOR), hwnd,
984                           icm_choose_compressor_dlgproc, (LPARAM)&choose_comp);
985
986     if (ret)
987     {
988         *pc = choose_comp.cv;
989         pc->dwFlags |= ICMF_COMPVARS_VALID;
990     }
991
992     return ret;
993 }
994
995
996 /***********************************************************************
997  *              ICCompressorFree   [MSVFW32.@]
998  */
999 void VFWAPI ICCompressorFree(PCOMPVARS pc)
1000 {
1001   TRACE("(%p)\n",pc);
1002
1003   if (pc != NULL && pc->cbSize == sizeof(COMPVARS)) {
1004     if (pc->hic != NULL) {
1005       ICClose(pc->hic);
1006       pc->hic = NULL;
1007     }
1008     HeapFree(GetProcessHeap(), 0, pc->lpbiIn);
1009     pc->lpbiIn = NULL;
1010     HeapFree(GetProcessHeap(), 0, pc->lpBitsOut);
1011     pc->lpBitsOut = NULL;
1012     HeapFree(GetProcessHeap(), 0, pc->lpBitsPrev);
1013     pc->lpBitsPrev = NULL;
1014     HeapFree(GetProcessHeap(), 0, pc->lpState);
1015     pc->lpState = NULL;
1016     pc->dwFlags = 0;
1017   }
1018 }
1019
1020
1021 /******************************************************************
1022  *              MSVIDEO_SendMessage
1023  *
1024  *
1025  */
1026 LRESULT MSVIDEO_SendMessage(WINE_HIC* whic, UINT msg, DWORD_PTR lParam1, DWORD_PTR lParam2)
1027 {
1028     LRESULT     ret;
1029
1030 #define XX(x) case x: TRACE("(%p,"#x",0x%08lx,0x%08lx)\n",whic,lParam1,lParam2); break
1031
1032     switch (msg) {
1033         /* DRV_* */
1034         XX(DRV_LOAD);
1035         XX(DRV_ENABLE);
1036         XX(DRV_OPEN);
1037         XX(DRV_CLOSE);
1038         XX(DRV_DISABLE);
1039         XX(DRV_FREE);
1040         /* ICM_RESERVED+X */
1041         XX(ICM_ABOUT);
1042         XX(ICM_CONFIGURE);
1043         XX(ICM_GET);
1044         XX(ICM_GETINFO);
1045         XX(ICM_GETDEFAULTQUALITY);
1046         XX(ICM_GETQUALITY);
1047         XX(ICM_GETSTATE);
1048         XX(ICM_SETQUALITY);
1049         XX(ICM_SET);
1050         XX(ICM_SETSTATE);
1051         /* ICM_USER+X */
1052         XX(ICM_COMPRESS_FRAMES_INFO);
1053         XX(ICM_COMPRESS_GET_FORMAT);
1054         XX(ICM_COMPRESS_GET_SIZE);
1055         XX(ICM_COMPRESS_QUERY);
1056         XX(ICM_COMPRESS_BEGIN);
1057         XX(ICM_COMPRESS);
1058         XX(ICM_COMPRESS_END);
1059         XX(ICM_DECOMPRESS_GET_FORMAT);
1060         XX(ICM_DECOMPRESS_QUERY);
1061         XX(ICM_DECOMPRESS_BEGIN);
1062         XX(ICM_DECOMPRESS);
1063         XX(ICM_DECOMPRESS_END);
1064         XX(ICM_DECOMPRESS_SET_PALETTE);
1065         XX(ICM_DECOMPRESS_GET_PALETTE);
1066         XX(ICM_DRAW_QUERY);
1067         XX(ICM_DRAW_BEGIN);
1068         XX(ICM_DRAW_GET_PALETTE);
1069         XX(ICM_DRAW_START);
1070         XX(ICM_DRAW_STOP);
1071         XX(ICM_DRAW_END);
1072         XX(ICM_DRAW_GETTIME);
1073         XX(ICM_DRAW);
1074         XX(ICM_DRAW_WINDOW);
1075         XX(ICM_DRAW_SETTIME);
1076         XX(ICM_DRAW_REALIZE);
1077         XX(ICM_DRAW_FLUSH);
1078         XX(ICM_DRAW_RENDERBUFFER);
1079         XX(ICM_DRAW_START_PLAY);
1080         XX(ICM_DRAW_STOP_PLAY);
1081         XX(ICM_DRAW_SUGGESTFORMAT);
1082         XX(ICM_DRAW_CHANGEPALETTE);
1083         XX(ICM_GETBUFFERSWANTED);
1084         XX(ICM_GETDEFAULTKEYFRAMERATE);
1085         XX(ICM_DECOMPRESSEX_BEGIN);
1086         XX(ICM_DECOMPRESSEX_QUERY);
1087         XX(ICM_DECOMPRESSEX);
1088         XX(ICM_DECOMPRESSEX_END);
1089         XX(ICM_SET_STATUS_PROC);
1090     default:
1091         FIXME("(%p,0x%08x,0x%08lx,0x%08lx) unknown message\n",whic,msg,lParam1,lParam2);
1092     }
1093     
1094 #undef XX
1095     
1096     if (whic->driverproc) {
1097         /* dwDriverId parameter is the value returned by the DRV_OPEN */
1098         ret = whic->driverproc(whic->driverId, whic->hdrv, msg, lParam1, lParam2);
1099     } else {
1100         ret = SendDriverMessage(whic->hdrv, msg, lParam1, lParam2);
1101     }
1102
1103     TRACE("     -> 0x%08lx\n", ret);
1104     return ret;
1105 }
1106
1107 /***********************************************************************
1108  *              ICSendMessage                   [MSVFW32.@]
1109  */
1110 LRESULT VFWAPI ICSendMessage(HIC hic, UINT msg, DWORD_PTR lParam1, DWORD_PTR lParam2) 
1111 {
1112     WINE_HIC*   whic = MSVIDEO_GetHicPtr(hic);
1113
1114     if (!whic) return ICERR_BADHANDLE;
1115     return MSVIDEO_SendMessage(whic, msg, lParam1, lParam2);
1116 }
1117
1118 /***********************************************************************
1119  *              ICDrawBegin             [MSVFW32.@]
1120  */
1121 DWORD VFWAPIV ICDrawBegin(
1122         HIC                hic,     /* [in] */
1123         DWORD              dwFlags, /* [in] flags */
1124         HPALETTE           hpal,    /* [in] palette to draw with */
1125         HWND               hwnd,    /* [in] window to draw to */
1126         HDC                hdc,     /* [in] HDC to draw to */
1127         INT                xDst,    /* [in] destination rectangle */
1128         INT                yDst,    /* [in] */
1129         INT                dxDst,   /* [in] */
1130         INT                dyDst,   /* [in] */
1131         LPBITMAPINFOHEADER lpbi,    /* [in] format of frame to draw */
1132         INT                xSrc,    /* [in] source rectangle */
1133         INT                ySrc,    /* [in] */
1134         INT                dxSrc,   /* [in] */
1135         INT                dySrc,   /* [in] */
1136         DWORD              dwRate,  /* [in] frames/second = (dwRate/dwScale) */
1137         DWORD              dwScale) /* [in] */
1138 {
1139
1140         ICDRAWBEGIN     icdb;
1141
1142         TRACE("(%p,%d,%p,%p,%p,%u,%u,%u,%u,%p,%u,%u,%u,%u,%d,%d)\n",
1143                   hic, dwFlags, hpal, hwnd, hdc, xDst, yDst, dxDst, dyDst,
1144                   lpbi, xSrc, ySrc, dxSrc, dySrc, dwRate, dwScale);
1145
1146         icdb.dwFlags = dwFlags;
1147         icdb.hpal = hpal;
1148         icdb.hwnd = hwnd;
1149         icdb.hdc = hdc;
1150         icdb.xDst = xDst;
1151         icdb.yDst = yDst;
1152         icdb.dxDst = dxDst;
1153         icdb.dyDst = dyDst;
1154         icdb.lpbi = lpbi;
1155         icdb.xSrc = xSrc;
1156         icdb.ySrc = ySrc;
1157         icdb.dxSrc = dxSrc;
1158         icdb.dySrc = dySrc;
1159         icdb.dwRate = dwRate;
1160         icdb.dwScale = dwScale;
1161         return ICSendMessage(hic,ICM_DRAW_BEGIN,(DWORD_PTR)&icdb,sizeof(icdb));
1162 }
1163
1164 /***********************************************************************
1165  *              ICDraw                  [MSVFW32.@]
1166  */
1167 DWORD VFWAPIV ICDraw(HIC hic, DWORD dwFlags, LPVOID lpFormat, LPVOID lpData, DWORD cbData, LONG lTime) {
1168         ICDRAW  icd;
1169
1170         TRACE("(%p,%d,%p,%p,%d,%d)\n",hic,dwFlags,lpFormat,lpData,cbData,lTime);
1171
1172         icd.dwFlags = dwFlags;
1173         icd.lpFormat = lpFormat;
1174         icd.lpData = lpData;
1175         icd.cbData = cbData;
1176         icd.lTime = lTime;
1177
1178         return ICSendMessage(hic,ICM_DRAW,(DWORD_PTR)&icd,sizeof(icd));
1179 }
1180
1181 /***********************************************************************
1182  *              ICClose                 [MSVFW32.@]
1183  */
1184 LRESULT WINAPI ICClose(HIC hic)
1185 {
1186     WINE_HIC* whic = MSVIDEO_GetHicPtr(hic);
1187     WINE_HIC** p;
1188
1189     TRACE("(%p)\n",hic);
1190
1191     if (!whic) return ICERR_BADHANDLE;
1192
1193     if (whic->driverproc) 
1194     {
1195         MSVIDEO_SendMessage(whic, DRV_CLOSE, 0, 0);
1196         MSVIDEO_SendMessage(whic, DRV_DISABLE, 0, 0);
1197         MSVIDEO_SendMessage(whic, DRV_FREE, 0, 0);
1198     }
1199     else
1200     {
1201         CloseDriver(whic->hdrv, 0, 0);
1202     }
1203
1204     /* remove whic from list */
1205     for (p = &MSVIDEO_FirstHic; *p != NULL; p = &((*p)->next))
1206     {
1207         if ((*p) == whic)
1208         {
1209             *p = whic->next;
1210             break;
1211         }
1212     }
1213
1214     HeapFree(GetProcessHeap(), 0, whic);
1215     return 0;
1216 }
1217
1218
1219
1220 /***********************************************************************
1221  *              ICImageCompress [MSVFW32.@]
1222  */
1223 HANDLE VFWAPI ICImageCompress(
1224         HIC hic, UINT uiFlags,
1225         LPBITMAPINFO lpbiIn, LPVOID lpBits,
1226         LPBITMAPINFO lpbiOut, LONG lQuality,
1227         LONG* plSize)
1228 {
1229         FIXME("(%p,%08x,%p,%p,%p,%d,%p)\n",
1230                 hic, uiFlags, lpbiIn, lpBits, lpbiOut, lQuality, plSize);
1231
1232         return NULL;
1233 }
1234
1235 /***********************************************************************
1236  *              ICImageDecompress       [MSVFW32.@]
1237  */
1238
1239 HANDLE VFWAPI ICImageDecompress(
1240         HIC hic, UINT uiFlags, LPBITMAPINFO lpbiIn,
1241         LPVOID lpBits, LPBITMAPINFO lpbiOut)
1242 {
1243         HGLOBAL hMem = NULL;
1244         BYTE*   pMem = NULL;
1245         BOOL    bReleaseIC = FALSE;
1246         BYTE*   pHdr = NULL;
1247         ULONG   cbHdr = 0;
1248         BOOL    bSucceeded = FALSE;
1249         BOOL    bInDecompress = FALSE;
1250         DWORD   biSizeImage;
1251
1252         TRACE("(%p,%08x,%p,%p,%p)\n",
1253                 hic, uiFlags, lpbiIn, lpBits, lpbiOut);
1254
1255         if ( hic == NULL )
1256         {
1257                 hic = ICDecompressOpen( ICTYPE_VIDEO, 0, &lpbiIn->bmiHeader, (lpbiOut != NULL) ? &lpbiOut->bmiHeader : NULL );
1258                 if ( hic == NULL )
1259                 {
1260                         WARN("no handler\n" );
1261                         goto err;
1262                 }
1263                 bReleaseIC = TRUE;
1264         }
1265         if ( uiFlags != 0 )
1266         {
1267                 FIXME( "unknown flag %08x\n", uiFlags );
1268                 goto err;
1269         }
1270         if ( lpbiIn == NULL || lpBits == NULL )
1271         {
1272                 WARN("invalid argument\n");
1273                 goto err;
1274         }
1275
1276         if ( lpbiOut != NULL )
1277         {
1278                 if ( lpbiOut->bmiHeader.biSize != sizeof(BITMAPINFOHEADER) )
1279                         goto err;
1280                 cbHdr = sizeof(BITMAPINFOHEADER);
1281                 if ( lpbiOut->bmiHeader.biCompression == 3 )
1282                         cbHdr += sizeof(DWORD)*3;
1283                 else
1284                 if ( lpbiOut->bmiHeader.biBitCount <= 8 )
1285                 {
1286                         if ( lpbiOut->bmiHeader.biClrUsed == 0 )
1287                                 cbHdr += sizeof(RGBQUAD) * (1<<lpbiOut->bmiHeader.biBitCount);
1288                         else
1289                                 cbHdr += sizeof(RGBQUAD) * lpbiOut->bmiHeader.biClrUsed;
1290                 }
1291         }
1292         else
1293         {
1294                 TRACE( "get format\n" );
1295
1296                 cbHdr = ICDecompressGetFormatSize(hic,lpbiIn);
1297                 if ( cbHdr < sizeof(BITMAPINFOHEADER) )
1298                         goto err;
1299                 pHdr = HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,cbHdr+sizeof(RGBQUAD)*256);
1300                 if ( pHdr == NULL )
1301                         goto err;
1302                 if ( ICDecompressGetFormat( hic, lpbiIn, (BITMAPINFO*)pHdr ) != ICERR_OK )
1303                         goto err;
1304                 lpbiOut = (BITMAPINFO*)pHdr;
1305                 if ( lpbiOut->bmiHeader.biBitCount <= 8 &&
1306                          ICDecompressGetPalette( hic, lpbiIn, lpbiOut ) != ICERR_OK &&
1307                          lpbiIn->bmiHeader.biBitCount == lpbiOut->bmiHeader.biBitCount )
1308                 {
1309                         if ( lpbiIn->bmiHeader.biClrUsed == 0 )
1310                                 memcpy( lpbiOut->bmiColors, lpbiIn->bmiColors, sizeof(RGBQUAD)*(1<<lpbiOut->bmiHeader.biBitCount) );
1311                         else
1312                                 memcpy( lpbiOut->bmiColors, lpbiIn->bmiColors, sizeof(RGBQUAD)*lpbiIn->bmiHeader.biClrUsed );
1313                 }
1314                 if ( lpbiOut->bmiHeader.biBitCount <= 8 &&
1315                          lpbiOut->bmiHeader.biClrUsed == 0 )
1316                         lpbiOut->bmiHeader.biClrUsed = 1<<lpbiOut->bmiHeader.biBitCount;
1317
1318                 lpbiOut->bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
1319                 cbHdr = sizeof(BITMAPINFOHEADER) + sizeof(RGBQUAD)*lpbiOut->bmiHeader.biClrUsed;
1320         }
1321
1322         biSizeImage = lpbiOut->bmiHeader.biSizeImage;
1323         if ( biSizeImage == 0 )
1324                 biSizeImage = ((((lpbiOut->bmiHeader.biWidth * lpbiOut->bmiHeader.biBitCount + 7) >> 3) + 3) & (~3)) * abs(lpbiOut->bmiHeader.biHeight);
1325
1326         TRACE( "call ICDecompressBegin\n" );
1327
1328         if ( ICDecompressBegin( hic, lpbiIn, lpbiOut ) != ICERR_OK )
1329                 goto err;
1330         bInDecompress = TRUE;
1331
1332         TRACE( "cbHdr %d, biSizeImage %d\n", cbHdr, biSizeImage );
1333
1334         hMem = GlobalAlloc( GMEM_MOVEABLE|GMEM_ZEROINIT, cbHdr + biSizeImage );
1335         if ( hMem == NULL )
1336         {
1337                 WARN( "out of memory\n" );
1338                 goto err;
1339         }
1340         pMem = (BYTE*)GlobalLock( hMem );
1341         if ( pMem == NULL )
1342                 goto err;
1343         memcpy( pMem, lpbiOut, cbHdr );
1344
1345         TRACE( "call ICDecompress\n" );
1346         if ( ICDecompress( hic, 0, &lpbiIn->bmiHeader, lpBits, &lpbiOut->bmiHeader, pMem+cbHdr ) != ICERR_OK )
1347                 goto err;
1348
1349         bSucceeded = TRUE;
1350 err:
1351         if ( bInDecompress )
1352                 ICDecompressEnd( hic );
1353         if ( bReleaseIC )
1354                 ICClose(hic);
1355         HeapFree(GetProcessHeap(),0,pHdr);
1356         if ( pMem != NULL )
1357                 GlobalUnlock( hMem );
1358         if ( !bSucceeded && hMem != NULL )
1359         {
1360                 GlobalFree(hMem); hMem = NULL;
1361         }
1362
1363         return hMem;
1364 }
1365
1366 /***********************************************************************
1367  *      ICSeqCompressFrame   [MSVFW32.@]
1368  */
1369 LPVOID VFWAPI ICSeqCompressFrame(PCOMPVARS pc, UINT uiFlags, LPVOID lpBits, BOOL *pfKey, LONG *plSize)
1370 {
1371     ICCOMPRESS* icComp = (ICCOMPRESS *)pc->lpState;
1372     DWORD ret;
1373     TRACE("(%p, 0x%08x, %p, %p, %p)\n", pc, uiFlags, lpBits, pfKey, plSize);
1374
1375     if (pc->cbState != sizeof(ICCOMPRESS))
1376     {
1377        ERR("Invalid cbState %i\n", pc->cbState);
1378        return NULL;
1379     }
1380
1381     if (!pc->lKeyCount++)
1382        icComp->dwFlags = ICCOMPRESS_KEYFRAME;
1383     else
1384     {
1385         if (pc->lKey && pc->lKeyCount == (pc->lKey - 1))
1386         /* No key frames if pc->lKey == 0 */
1387            pc->lKeyCount = 0;
1388         icComp->dwFlags = 0;
1389     }
1390
1391     icComp->lpInput = lpBits;
1392     icComp->lFrameNum = pc->lFrame++;
1393     icComp->lpOutput = pc->lpBitsOut;
1394     icComp->lpPrev = pc->lpBitsPrev;
1395     ret = ICSendMessage(pc->hic, ICM_COMPRESS, (DWORD_PTR)icComp, sizeof(icComp));
1396
1397     if (icComp->dwFlags & AVIIF_KEYFRAME)
1398     {
1399        pc->lKeyCount = 1;
1400        *pfKey = TRUE;
1401        TRACE("Key frame\n");
1402     }
1403     else
1404        *pfKey = FALSE;
1405
1406     *plSize = icComp->lpbiOutput->biSizeImage;
1407     TRACE(" -- 0x%08x\n", ret);
1408     if (ret == ICERR_OK)
1409     {
1410        LPVOID oldprev, oldout;
1411 /* We shift Prev and Out, so we don't have to allocate and release memory */
1412        oldprev = pc->lpBitsPrev;
1413        oldout = pc->lpBitsOut;
1414        pc->lpBitsPrev = oldout;
1415        pc->lpBitsOut = oldprev;
1416
1417        TRACE("returning: %p\n", icComp->lpOutput);
1418        return icComp->lpOutput;
1419     }
1420     return NULL;
1421 }
1422
1423 /***********************************************************************
1424  *      ICSeqCompressFrameEnd   [MSVFW32.@]
1425  */
1426 void VFWAPI ICSeqCompressFrameEnd(PCOMPVARS pc)
1427 {
1428     DWORD ret;
1429     TRACE("(%p)\n", pc);
1430     ret = ICSendMessage(pc->hic, ICM_COMPRESS_END, 0, 0);
1431     TRACE(" -- %x\n", ret);
1432     HeapFree(GetProcessHeap(), 0, pc->lpbiIn);
1433     HeapFree(GetProcessHeap(), 0, pc->lpBitsPrev);
1434     HeapFree(GetProcessHeap(), 0, pc->lpBitsOut);
1435     HeapFree(GetProcessHeap(), 0, pc->lpState);
1436     pc->lpbiIn = pc->lpBitsPrev = pc->lpBitsOut = pc->lpState = NULL;
1437 }
1438
1439 /***********************************************************************
1440  *      ICSeqCompressFrameStart [MSVFW32.@]
1441  */
1442 BOOL VFWAPI ICSeqCompressFrameStart(PCOMPVARS pc, LPBITMAPINFO lpbiIn)
1443 {
1444     /* I'm ignoring bmiColors as I don't know what to do with it,
1445      * it doesn't appear to be used though
1446      */
1447     DWORD ret;
1448     pc->lpbiIn = HeapAlloc(GetProcessHeap(), 0, sizeof(BITMAPINFO));
1449     if (!pc->lpbiIn)
1450         return FALSE;
1451
1452     *pc->lpbiIn = *lpbiIn;
1453     pc->lpBitsPrev = HeapAlloc(GetProcessHeap(), 0, pc->lpbiIn->bmiHeader.biSizeImage);
1454     if (!pc->lpBitsPrev)
1455     {
1456         HeapFree(GetProcessHeap(), 0, pc->lpbiIn);
1457         return FALSE;
1458     }
1459
1460     pc->lpState = HeapAlloc(GetProcessHeap(), 0, sizeof(ICCOMPRESS));
1461     if (!pc->lpState)
1462     {
1463        HeapFree(GetProcessHeap(), 0, pc->lpbiIn);
1464        HeapFree(GetProcessHeap(), 0, pc->lpBitsPrev);
1465        return FALSE;
1466     }
1467     pc->cbState = sizeof(ICCOMPRESS);
1468
1469     pc->lpBitsOut = HeapAlloc(GetProcessHeap(), 0, pc->lpbiOut->bmiHeader.biSizeImage);
1470     if (!pc->lpBitsOut)
1471     {
1472        HeapFree(GetProcessHeap(), 0, pc->lpbiIn);
1473        HeapFree(GetProcessHeap(), 0, pc->lpBitsPrev);
1474        HeapFree(GetProcessHeap(), 0, pc->lpState);
1475        return FALSE;
1476     }
1477     TRACE("Compvars:\n"
1478           "\tpc:\n"
1479           "\tsize: %i\n"
1480           "\tflags: %i\n"
1481           "\thic: %p\n"
1482           "\ttype: %x\n"
1483           "\thandler: %x\n"
1484           "\tin/out: %p/%p\n"
1485           "key/data/quality: %i/%i/%i\n",
1486              pc->cbSize, pc->dwFlags, pc->hic, pc->fccType, pc->fccHandler,
1487              pc->lpbiIn, pc->lpbiOut, pc->lKey, pc->lDataRate, pc->lQ);
1488
1489     ret = ICSendMessage(pc->hic, ICM_COMPRESS_BEGIN, (DWORD_PTR)pc->lpbiIn, (DWORD_PTR)pc->lpbiOut);
1490     TRACE(" -- %x\n", ret);
1491     if (ret == ICERR_OK)
1492     {
1493        ICCOMPRESS* icComp = (ICCOMPRESS *)pc->lpState;
1494        /* Initialise some variables */
1495        pc->lFrame = 0; pc->lKeyCount = 0;
1496
1497        icComp->lpbiOutput = &pc->lpbiOut->bmiHeader;
1498        icComp->lpbiInput = &pc->lpbiIn->bmiHeader;
1499        icComp->lpckid = NULL;
1500        icComp->dwFrameSize = 0;
1501        icComp->dwQuality = pc->lQ;
1502        icComp->lpbiPrev = &pc->lpbiIn->bmiHeader;
1503        return TRUE;
1504     }
1505     HeapFree(GetProcessHeap(), 0, pc->lpbiIn);
1506     HeapFree(GetProcessHeap(), 0, pc->lpBitsPrev);
1507     HeapFree(GetProcessHeap(), 0, pc->lpState);
1508     HeapFree(GetProcessHeap(), 0, pc->lpBitsOut);
1509     pc->lpBitsPrev = pc->lpbiIn = pc->lpState = pc->lpBitsOut = NULL;
1510     return FALSE;
1511 }
1512
1513 /***********************************************************************
1514  *      GetFileNamePreview   [MSVFW32.@]
1515  */
1516 static BOOL GetFileNamePreview(LPVOID lpofn,BOOL bSave,BOOL bUnicode)
1517 {
1518   CHAR    szFunctionName[20];
1519   BOOL    (*fnGetFileName)(LPVOID);
1520   HMODULE hComdlg32;
1521   BOOL    ret;
1522
1523   FIXME("(%p,%d,%d), semi-stub!\n",lpofn,bSave,bUnicode);
1524
1525   lstrcpyA(szFunctionName, (bSave ? "GetSaveFileName" : "GetOpenFileName"));
1526   lstrcatA(szFunctionName, (bUnicode ? "W" : "A"));
1527
1528   hComdlg32 = LoadLibraryA("COMDLG32.DLL");
1529   if (hComdlg32 == NULL)
1530     return FALSE;
1531
1532   fnGetFileName = (LPVOID)GetProcAddress(hComdlg32, szFunctionName);
1533   if (fnGetFileName == NULL)
1534     return FALSE;
1535
1536   /* FIXME: need to add OFN_ENABLEHOOK and our own handler */
1537   ret = fnGetFileName(lpofn);
1538
1539   FreeLibrary(hComdlg32);
1540   return ret;
1541 }
1542
1543 /***********************************************************************
1544  *              GetOpenFileNamePreviewA [MSVFW32.@]
1545  */
1546 BOOL WINAPI GetOpenFileNamePreviewA(LPOPENFILENAMEA lpofn)
1547 {
1548   FIXME("(%p), semi-stub!\n", lpofn);
1549
1550   return GetFileNamePreview(lpofn, FALSE, FALSE);
1551 }
1552
1553 /***********************************************************************
1554  *              GetOpenFileNamePreviewW [MSVFW32.@]
1555  */
1556 BOOL WINAPI GetOpenFileNamePreviewW(LPOPENFILENAMEW lpofn)
1557 {
1558   FIXME("(%p), semi-stub!\n", lpofn);
1559
1560   return GetFileNamePreview(lpofn, FALSE, TRUE);
1561 }
1562
1563 /***********************************************************************
1564  *              GetSaveFileNamePreviewA [MSVFW32.@]
1565  */
1566 BOOL WINAPI GetSaveFileNamePreviewA(LPOPENFILENAMEA lpofn)
1567 {
1568   FIXME("(%p), semi-stub!\n", lpofn);
1569
1570   return GetFileNamePreview(lpofn, TRUE, FALSE);
1571 }
1572
1573 /***********************************************************************
1574  *              GetSaveFileNamePreviewW [MSVFW32.@]
1575  */
1576 BOOL WINAPI GetSaveFileNamePreviewW(LPOPENFILENAMEW lpofn)
1577 {
1578   FIXME("(%p), semi-stub!\n", lpofn);
1579
1580   return GetFileNamePreview(lpofn, TRUE, TRUE);
1581 }