projects / reactos.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Synchronize with trunk's revision r57599.
[reactos.git] / dll / win32 / msrle32 / msrle32.c
1 /*
2 * Copyright 2002-2003 Michael Günnewig
3 *
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.
8 *
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.
13 *
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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
17 */
18
19 /* TODO:
20 * - some improvements possible
21 * - implement DecompressSetPalette? -- do we need it for anything?
22 */
23
24 #include <assert.h>
25
26 #include "msrle_private.h"
27
28 #include "winnls.h"
29 #include "winuser.h"
30
31 #include "wine/debug.h"
32
33 WINE_DEFAULT_DEBUG_CHANNEL(msrle32);
34
35 static HINSTANCE MSRLE32_hModule = 0;
36
37 #define compare_fourcc(fcc1, fcc2) (((fcc1)^(fcc2))&~0x20202020)
38
39 #define ABS(a) ((a) < 0 ? -(a) : (a))
40 #define SQR(a) ((a) * (a))
41
42 #define QUALITY_to_DIST(q) (ICQUALITY_HIGH - q)
43 static inline WORD ColorCmp(WORD clr1, WORD clr2)
44 {
45 register UINT a = (clr1-clr2);
46 return SQR(a);
47 }
48 static inline WORD Intensity(RGBQUAD clr)
49 {
50 return (30 * clr.rgbRed + 59 * clr.rgbGreen + 11 * clr.rgbBlue)/4;
51 }
52
53 #define GetRawPixel(lpbi,lp,x) \
54 ((lpbi)->biBitCount == 1 ? ((lp)[(x)/8] >> (8 - (x)%8)) & 1 : \
55 ((lpbi)->biBitCount == 4 ? ((lp)[(x)/2] >> (4 * (1 - (x)%2))) & 15 : lp[x]))
56
57 /*****************************************************************************/
58
59 /* utility functions */
60 static BOOL isSupportedDIB(LPCBITMAPINFOHEADER lpbi);
61 static BOOL isSupportedMRLE(LPCBITMAPINFOHEADER lpbi);
62 static BYTE MSRLE32_GetNearestPaletteIndex(UINT count, const RGBQUAD *clrs, RGBQUAD clr);
63
64 /* compression functions */
65 static void computeInternalFrame(CodecInfo *pi, LPCBITMAPINFOHEADER lpbiIn, const BYTE *lpIn);
66 static LONG MSRLE32_GetMaxCompressedSize(LPCBITMAPINFOHEADER lpbi);
67 static LRESULT MSRLE32_CompressRLE4(const CodecInfo *pi, LPCBITMAPINFOHEADER lpbiIn,
68 const BYTE *lpIn, LPBITMAPINFOHEADER lpbiOut,
69 LPBYTE lpOut, BOOL isKey);
70 static LRESULT MSRLE32_CompressRLE8(const CodecInfo *pi, LPCBITMAPINFOHEADER lpbiIn,
71 const BYTE *lpIn, LPBITMAPINFOHEADER lpbiOut,
72 LPBYTE lpOut, BOOL isKey);
73
74 /* decompression functions */
75 static LRESULT MSRLE32_DecompressRLE4(const CodecInfo *pi, LPCBITMAPINFOHEADER lpbi,
76 const BYTE *lpIn, LPBYTE lpOut);
77 static LRESULT MSRLE32_DecompressRLE8(const CodecInfo *pi, LPCBITMAPINFOHEADER lpbi,
78 const BYTE *lpIn, LPBYTE lpOut);
79
80 /* API functions */
81 static LRESULT CompressGetFormat(CodecInfo *pi, LPCBITMAPINFOHEADER lpbiIn,
82 LPBITMAPINFOHEADER lpbiOut);
83 static LRESULT CompressGetSize(CodecInfo *pi, LPCBITMAPINFOHEADER lpbiIn,
84 LPCBITMAPINFOHEADER lpbiOut);
85 static LRESULT CompressQuery(const CodecInfo *pi, LPCBITMAPINFOHEADER lpbiIn,
86 LPCBITMAPINFOHEADER lpbiOut);
87 static LRESULT CompressBegin(CodecInfo *pi, LPCBITMAPINFOHEADER lpbiIn,
88 LPCBITMAPINFOHEADER lpbiOut);
89 static LRESULT Compress(CodecInfo *pi, ICCOMPRESS* lpic, DWORD dwSize);
90 static LRESULT CompressEnd(CodecInfo *pi);
91
92 static LRESULT DecompressGetFormat(CodecInfo *pi, LPCBITMAPINFOHEADER lpbiIn,
93 LPBITMAPINFOHEADER lpbiOut);
94 static LRESULT DecompressQuery(CodecInfo *pi, LPCBITMAPINFOHEADER lpbiIn,
95 LPCBITMAPINFOHEADER lpbiOut);
96 static LRESULT DecompressBegin(CodecInfo *pi, LPCBITMAPINFOHEADER lpbiIn,
97 LPCBITMAPINFOHEADER lpbiOut);
98 static LRESULT Decompress(CodecInfo *pi, ICDECOMPRESS *pic, DWORD dwSize);
99 static LRESULT DecompressEnd(CodecInfo *pi);
100 static LRESULT DecompressGetPalette(CodecInfo *pi, LPCBITMAPINFOHEADER lpbiIn,
101 LPBITMAPINFOHEADER lpbiOut);
102
103 /*****************************************************************************/
104
105 static BOOL isSupportedMRLE(LPCBITMAPINFOHEADER lpbi)
106 {
107 /* pre-conditions */
108 assert(lpbi != NULL);
109
110 if (lpbi->biSize < sizeof(BITMAPINFOHEADER) ||
111 lpbi->biPlanes != 1)
112 return FALSE;
113
114 if (lpbi->biCompression == BI_RLE4) {
115 if (lpbi->biBitCount != 4 ||
116 (lpbi->biWidth % 2) != 0)
117 return FALSE;
118 } else if (lpbi->biCompression == BI_RLE8) {
119 if (lpbi->biBitCount != 8)
120 return FALSE;
121 } else
122 return FALSE;
123
124 return TRUE;
125 }
126
127 static BOOL isSupportedDIB(LPCBITMAPINFOHEADER lpbi)
128 {
129 /* pre-conditions */
130 assert(lpbi != NULL);
131
132 /* check structure version/planes/compression */
133 if (lpbi->biSize < sizeof(BITMAPINFOHEADER) ||
134 lpbi->biPlanes != 1)
135 return FALSE;
136 if (lpbi->biCompression != BI_RGB &&
137 lpbi->biCompression != BI_BITFIELDS)
138 return FALSE;
139
140 /* check bit-depth */
141 if (lpbi->biBitCount != 1 &&
142 lpbi->biBitCount != 4 &&
143 lpbi->biBitCount != 8 &&
144 lpbi->biBitCount != 15 &&
145 lpbi->biBitCount != 16 &&
146 lpbi->biBitCount != 24 &&
147 lpbi->biBitCount != 32)
148 return FALSE;
149
150 /* check for size(s) */
151 if (!lpbi->biWidth || !lpbi->biHeight)
152 return FALSE; /* image with zero size, makes no sense so error ! */
153 if (DIBWIDTHBYTES(*lpbi) * (DWORD)lpbi->biHeight >= (1UL << 31) - 1)
154 return FALSE; /* image too big ! */
155
156 /* check for nonexistent colortable for hi- and true-color DIB's */
157 if (lpbi->biBitCount >= 15 && lpbi->biClrUsed > 0)
158 return FALSE;
159
160 return TRUE;
161 }
162
163 static BYTE MSRLE32_GetNearestPaletteIndex(UINT count, const RGBQUAD *clrs, RGBQUAD clr)
164 {
165 INT diff = 0x00FFFFFF;
166 UINT i;
167 UINT idx = 0;
168
169 /* pre-conditions */
170 assert(clrs != NULL);
171
172 for (i = 0; i < count; i++) {
173 int r = ((int)clrs[i].rgbRed - (int)clr.rgbRed);
174 int g = ((int)clrs[i].rgbGreen - (int)clr.rgbGreen);
175 int b = ((int)clrs[i].rgbBlue - (int)clr.rgbBlue);
176
177 r = r*r + g*g + b*b;
178
179 if (r < diff) {
180 idx = i;
181 diff = r;
182 if (diff == 0)
183 break;
184 }
185 }
186
187 return idx;
188 }
189
190 /*****************************************************************************/
191
192 void computeInternalFrame(CodecInfo *pi, LPCBITMAPINFOHEADER lpbiIn, const BYTE *lpIn)
193 {
194 WORD wIntensityTbl[256];
195 DWORD lInLine, lOutLine;
196 LPWORD lpOut;
197 UINT i;
198 LONG y;
199
200 /* pre-conditions */
201 assert(pi != NULL && lpbiIn != NULL && lpIn != NULL);
202 assert(pi->pCurFrame != NULL);
203
204 lInLine = DIBWIDTHBYTES(*lpbiIn);
205 lOutLine = WIDTHBYTES((WORD)lpbiIn->biWidth * 8u * sizeof(WORD)) / 2u;
206 lpOut = pi->pCurFrame;
207
208 assert(lpbiIn->biClrUsed != 0);
209
210 {
211 const RGBQUAD *lp =
212 (const RGBQUAD *)((const BYTE*)lpbiIn + lpbiIn->biSize);
213
214 for (i = 0; i < lpbiIn->biClrUsed; i++)
215 wIntensityTbl[i] = Intensity(lp[i]);
216 }
217
218 for (y = 0; y < lpbiIn->biHeight; y++) {
219 LONG x;
220
221 switch (lpbiIn->biBitCount) {
222 case 1:
223 for (x = 0; x < lpbiIn->biWidth / 8; x++) {
224 for (i = 0; i < 7; i++)
225 lpOut[8 * x + i] = wIntensityTbl[(lpIn[x] >> (7 - i)) & 1];
226 }
227 break;
228 case 4:
229 for (x = 0; x < lpbiIn->biWidth / 2; x++) {
230 lpOut[2 * x + 0] = wIntensityTbl[(lpIn[x] >> 4)];
231 lpOut[2 * x + 1] = wIntensityTbl[(lpIn[x] & 0x0F)];
232 }
233 break;
234 case 8:
235 for (x = 0; x < lpbiIn->biWidth; x++)
236 lpOut[x] = wIntensityTbl[lpIn[x]];
237 break;
238 }
239
240 lpIn += lInLine;
241 lpOut += lOutLine;
242 }
243 }
244
245 static LONG MSRLE32_GetMaxCompressedSize(LPCBITMAPINFOHEADER lpbi)
246 {
247 LONG a, b, size;
248
249 /* pre-condition */
250 assert(lpbi != NULL);
251
252 a = lpbi->biWidth / 255;
253 b = lpbi->biWidth % 255;
254 if (lpbi->biBitCount <= 4) {
255 a /= 2;
256 b /= 2;
257 }
258
259 size = (2 + a * (2 + ((a + 2) & ~2)) + b * (2 + ((b + 2) & ~2)));
260 return size * lpbi->biHeight;
261 }
262
263 /* lpP => current pos in previous frame
264 * lpA => previous pos in current frame
265 * lpB => current pos in current frame
266 */
267 static INT countDiffRLE4(const WORD *lpP, const WORD *lpA, const WORD *lpB, INT pos, LONG lDist, LONG width)
268 {
269 INT count;
270 WORD clr1, clr2;
271
272 /* pre-conditions */
273 assert(lpA && lpB && lDist >= 0 && width > 0);
274
275 if (pos >= width)
276 return 0;
277 if (pos+1 == width)
278 return 1;
279
280 clr1 = lpB[pos++];
281 clr2 = lpB[pos];
282
283 count = 2;
284 while (pos + 1 < width) {
285 WORD clr3, clr4;
286
287 clr3 = lpB[++pos];
288 if (pos + 1 >= width)
289 return count + 1;
290
291 clr4 = lpB[++pos];
292 if (ColorCmp(clr1, clr3) <= lDist &&
293 ColorCmp(clr2, clr4) <= lDist) {
294 /* diff at end? -- look-ahead for at least ?? more encodable pixels */
295 if (pos + 2 < width && ColorCmp(clr1,lpB[pos+1]) <= lDist &&
296 ColorCmp(clr2,lpB[pos+2]) <= lDist) {
297 if (pos + 4 < width && ColorCmp(lpB[pos+1],lpB[pos+3]) <= lDist &&
298 ColorCmp(lpB[pos+2],lpB[pos+4]) <= lDist)
299 return count - 3; /* followed by at least 4 encodable pixels */
300 return count - 2;
301 }
302 } else if (lpP != NULL && ColorCmp(lpP[pos], lpB[pos]) <= lDist) {
303 /* 'compare' with previous frame for end of diff */
304 INT count2 = 0;
305
306 /* FIXME */
307
308 if (count2 >= 8)
309 return count;
310
311 pos -= count2;
312 }
313
314 count += 2;
315 clr1 = clr3;
316 clr2 = clr4;
317 }
318
319 return count;
320 }
321
322 /* lpP => current pos in previous frame
323 * lpA => previous pos in current frame
324 * lpB => current pos in current frame
325 */
326 static INT countDiffRLE8(const WORD *lpP, const WORD *lpA, const WORD *lpB, INT pos, LONG lDist, LONG width)
327 {
328 INT count;
329
330 for (count = 0; pos < width; pos++, count++) {
331 if (ColorCmp(lpA[pos], lpB[pos]) <= lDist) {
332 /* diff at end? -- look-ahead for some more encodable pixel */
333 if (pos + 1 < width && ColorCmp(lpB[pos], lpB[pos+1]) <= lDist)
334 return count - 1;
335 if (pos + 2 < width && ColorCmp(lpB[pos+1], lpB[pos+2]) <= lDist)
336 return count - 1;
337 } else if (lpP != NULL && ColorCmp(lpP[pos], lpB[pos]) <= lDist) {
338 /* 'compare' with previous frame for end of diff */
339 INT count2 = 0;
340
341 for (count2 = 0, pos++; pos < width && count2 <= 5; pos++, count2++) {
342 if (ColorCmp(lpP[pos], lpB[pos]) > lDist)
343 break;
344 }
345 if (count2 > 4)
346 return count;
347
348 pos -= count2;
349 }
350 }
351
352 return count;
353 }
354
355 static INT MSRLE32_CompressRLE4Line(const CodecInfo *pi, const WORD *lpP,
356 const WORD *lpC, LPCBITMAPINFOHEADER lpbi,
357 const BYTE *lpIn, LONG lDist,
358 INT x, LPBYTE *ppOut,
359 DWORD *lpSizeImage)
360 {
361 LPBYTE lpOut = *ppOut;
362 INT count, pos;
363 WORD clr1, clr2;
364
365 /* try to encode as many pixel as possible */
366 count = 1;
367 pos = x;
368 clr1 = lpC[pos++];
369 if (pos < lpbi->biWidth) {
370 clr2 = lpC[pos];
371 for (++count; pos + 1 < lpbi->biWidth; ) {
372 ++pos;
373 if (ColorCmp(clr1, lpC[pos]) > lDist)
374 break;
375 count++;
376 if (pos + 1 >= lpbi->biWidth)
377 break;
378 ++pos;
379 if (ColorCmp(clr2, lpC[pos]) > lDist)
380 break;
381 count++;
382 }
383 }
384
385 if (count < 4) {
386 /* add some pixel for absoluting if possible */
387 count += countDiffRLE4(lpP, lpC - 1, lpC, pos-1, lDist, lpbi->biWidth);
388
389 assert(count > 0);
390
391 /* check for near end of line */
392 if (x + count > lpbi->biWidth)
393 count = lpbi->biWidth - x;
394
395 /* absolute pixel(s) in groups of at least 3 and at most 254 pixels */
396 while (count > 2) {
397 INT i;
398 INT size = min(count, 254);
399 int bytes = ((size + 1) & (~1)) / 2;
400 int extra_byte = bytes & 0x01;
401
402 *lpSizeImage += 2 + bytes + extra_byte;
403 assert(((*lpSizeImage) % 2) == 0);
404 count -= size;
405 *lpOut++ = 0;
406 *lpOut++ = size;
407 for (i = 0; i < size; i += 2) {
408 clr1 = pi->palette_map[GetRawPixel(lpbi,lpIn,x)];
409 x++;
410 if (i + 1 < size) {
411 clr2 = pi->palette_map[GetRawPixel(lpbi,lpIn,x)];
412 x++;
413 } else
414 clr2 = 0;
415
416 *lpOut++ = (clr1 << 4) | clr2;
417 }
418 if (extra_byte)
419 *lpOut++ = 0;
420 }
421
422 if (count > 0) {
423 /* too little for absoluting so we must encode them */
424 assert(count <= 2);
425
426 *lpSizeImage += 2;
427 clr1 = pi->palette_map[GetRawPixel(lpbi,lpIn,x)];
428 x++;
429 if (count == 2) {
430 clr2 = pi->palette_map[GetRawPixel(lpbi,lpIn,x)];
431 x++;
432 } else
433 clr2 = 0;
434 *lpOut++ = count;
435 *lpOut++ = (clr1 << 4) | clr2;
436 }
437 } else {
438 /* encode count pixel(s) */
439 clr1 = ((pi->palette_map[GetRawPixel(lpbi,lpIn,x)] << 4) |
440 pi->palette_map[GetRawPixel(lpbi,lpIn,x + 1)]);
441
442 x += count;
443 while (count > 0) {
444 INT size = min(count, 254);
445
446 *lpSizeImage += 2;
447 count -= size;
448 *lpOut++ = size;
449 *lpOut++ = clr1;
450 }
451 }
452
453 *ppOut = lpOut;
454
455 return x;
456 }
457
458 static INT MSRLE32_CompressRLE8Line(const CodecInfo *pi, const WORD *lpP,
459 const WORD *lpC, LPCBITMAPINFOHEADER lpbi,
460 const BYTE *lpIn, LONG lDist,
461 INT x, LPBYTE *ppOut,
462 DWORD *lpSizeImage)
463 {
464 LPBYTE lpOut = *ppOut;
465 INT count, pos;
466 WORD clr;
467
468 assert(lpbi->biBitCount <= 8);
469 assert(lpbi->biCompression == BI_RGB);
470
471 /* try to encode as much as possible */
472 pos = x;
473 clr = lpC[pos++];
474 for (count = 1; pos < lpbi->biWidth; count++) {
475 if (ColorCmp(clr, lpC[pos++]) > lDist)
476 break;
477 }
478
479 if (count < 2) {
480 /* add some more pixels for absoluting if possible */
481 count += countDiffRLE8(lpP, lpC - 1, lpC, pos-1, lDist, lpbi->biWidth);
482
483 assert(count > 0);
484
485 /* check for over end of line */
486 if (x + count > lpbi->biWidth)
487 count = lpbi->biWidth - x;
488
489 /* absolute pixel(s) in groups of at least 3 and at most 255 pixels */
490 while (count > 2) {
491 INT i;
492 INT size = min(count, 255);
493 int extra_byte = size % 2;
494
495 *lpSizeImage += 2 + size + extra_byte;
496 count -= size;
497 *lpOut++ = 0;
498 *lpOut++ = size;
499 for (i = 0; i < size; i++) {
500 *lpOut++ = pi->palette_map[GetRawPixel(lpbi,lpIn,x)];
501 x++;
502 }
503 if (extra_byte)
504 *lpOut++ = 0;
505 }
506 if (count > 0) {
507 /* too little for absoluting so we must encode them even if it's expensive! */
508 assert(count <= 2);
509
510 *lpSizeImage += 2 * count;
511 *lpOut++ = 1;
512 *lpOut++ = pi->palette_map[GetRawPixel(lpbi,lpIn,x)];
513 x++;
514
515 if (count == 2) {
516 *lpOut++ = 1;
517 *lpOut++ = pi->palette_map[GetRawPixel(lpbi,lpIn,x)];
518 x++;
519 }
520 }
521 } else {
522 /* encode count pixel(s) */
523 clr = pi->palette_map[GetRawPixel(lpbi,lpIn,x)];
524
525 /* optimize end of line */
526 if (x + count + 1 == lpbi->biWidth)
527 count++;
528
529 x += count;
530 while (count > 0) {
531 INT size = min(count, 255);
532
533 *lpSizeImage += 2;
534 count -= size;
535 *lpOut++ = size;
536 *lpOut++ = clr;
537 }
538 }
539
540 *ppOut = lpOut;
541
542 return x;
543 }
544
545 LRESULT MSRLE32_CompressRLE4(const CodecInfo *pi, LPCBITMAPINFOHEADER lpbiIn,
546 const BYTE *lpIn, LPBITMAPINFOHEADER lpbiOut,
547 LPBYTE lpOut, BOOL isKey)
548 {
549 LPWORD lpC;
550 LONG lLine, lInLine, lDist;
551 LPBYTE lpOutStart = lpOut;
552
553 /* pre-conditions */
554 assert(pi != NULL && lpbiOut != NULL);
555 assert(lpIn != NULL && lpOut != NULL);
556 assert(pi->pCurFrame != NULL);
557
558 lpC = pi->pCurFrame;
559 lDist = QUALITY_to_DIST(pi->dwQuality);
560 lInLine = DIBWIDTHBYTES(*lpbiIn);
561 lLine = WIDTHBYTES(lpbiOut->biWidth * 16) / 2;
562
563 lpbiOut->biSizeImage = 0;
564 if (isKey) {
565 /* keyframe -- convert internal frame to output format */
566 INT x, y;
567
568 for (y = 0; y < lpbiOut->biHeight; y++) {
569 x = 0;
570
571 do {
572 x = MSRLE32_CompressRLE4Line(pi, NULL, lpC, lpbiIn, lpIn, lDist, x,
573 &lpOut, &lpbiOut->biSizeImage);
574 } while (x < lpbiOut->biWidth);
575
576 lpC += lLine;
577 lpIn += lInLine;
578
579 /* add EOL -- end of line */
580 lpbiOut->biSizeImage += 2;
581 *(LPWORD)lpOut = 0;
582 lpOut += sizeof(WORD);
583 assert(lpOut == (lpOutStart + lpbiOut->biSizeImage));
584 }
585 } else {
586 /* delta-frame -- compute delta between last and this internal frame */
587 LPWORD lpP;
588 INT x, y;
589 INT jumpx, jumpy;
590
591 assert(pi->pPrevFrame != NULL);
592
593 lpP = pi->pPrevFrame;
594 jumpy = 0;
595 jumpx = -1;
596
597 for (y = 0; y < lpbiOut->biHeight; y++) {
598 x = 0;
599
600 do {
601 INT count, pos;
602
603 if (jumpx == -1)
604 jumpx = x;
605 for (count = 0, pos = x; pos < lpbiOut->biWidth; pos++, count++) {
606 if (ColorCmp(lpP[pos], lpC[pos]) > lDist)
607 break;
608 }
609
610 if (pos == lpbiOut->biWidth && count > 8) {
611 /* (count > 8) secures that we will save space */
612 jumpy++;
613 break;
614 } else if (jumpy || jumpx != pos) {
615 /* time to jump */
616 assert(jumpx != -1);
617
618 if (pos < jumpx) {
619 /* can only jump in positive direction -- jump until EOL, EOL */
620 INT w = lpbiOut->biWidth - jumpx;
621
622 assert(jumpy > 0);
623 assert(w >= 4);
624
625 jumpx = 0;
626 jumpy--;
627 /* if (w % 255 == 2) then equal costs
628 * else if (w % 255 < 4 && we could encode all) then 2 bytes too expensive
629 * else it will be cheaper
630 */
631 while (w > 0) {
632 lpbiOut->biSizeImage += 4;
633 *lpOut++ = 0;
634 *lpOut++ = 2;
635 *lpOut = min(w, 255);
636 w -= *lpOut++;
637 *lpOut++ = 0;
638 }
639 /* add EOL -- end of line */
640 lpbiOut->biSizeImage += 2;
641 *((LPWORD)lpOut) = 0;
642 lpOut += sizeof(WORD);
643 }
644
645 /* FIXME: if (jumpy == 0 && could encode all) then jump too expensive */
646
647 /* write out real jump(s) */
648 while (jumpy || pos != jumpx) {
649 lpbiOut->biSizeImage += 4;
650 *lpOut++ = 0;
651 *lpOut++ = 2;
652 *lpOut = min(pos - jumpx, 255);
653 x += *lpOut;
654 jumpx += *lpOut++;
655 *lpOut = min(jumpy, 255);
656 jumpy -= *lpOut++;
657 }
658
659 jumpy = 0;
660 }
661
662 jumpx = -1;
663
664 if (x < lpbiOut->biWidth) {
665 /* skipped the 'same' things corresponding to previous frame */
666 x = MSRLE32_CompressRLE4Line(pi, lpP, lpC, lpbiIn, lpIn, lDist, x,
667 &lpOut, &lpbiOut->biSizeImage);
668 }
669 } while (x < lpbiOut->biWidth);
670
671 lpP += lLine;
672 lpC += lLine;
673 lpIn += lInLine;
674
675 if (jumpy == 0) {
676 assert(jumpx == -1);
677
678 /* add EOL -- end of line */
679 lpbiOut->biSizeImage += 2;
680 *((LPWORD)lpOut) = 0;
681 lpOut += sizeof(WORD);
682 assert(lpOut == lpOutStart + lpbiOut->biSizeImage);
683 }
684 }
685
686 /* add EOL -- will be changed to EOI */
687 lpbiOut->biSizeImage += 2;
688 *((LPWORD)lpOut) = 0;
689 lpOut += sizeof(WORD);
690 }
691
692 /* change EOL to EOI -- end of image */
693 lpOut[-1] = 1;
694 assert(lpOut == (lpOutStart + lpbiOut->biSizeImage));
695
696 return ICERR_OK;
697 }
698
699 LRESULT MSRLE32_CompressRLE8(const CodecInfo *pi, LPCBITMAPINFOHEADER lpbiIn,
700 const BYTE *lpIn, LPBITMAPINFOHEADER lpbiOut,
701 LPBYTE lpOut, BOOL isKey)
702 {
703 LPWORD lpC;
704 LONG lDist, lInLine, lLine;
705 LPBYTE lpOutStart = lpOut;
706
707 assert(pi != NULL && lpbiOut != NULL);
708 assert(lpIn != NULL && lpOut != NULL);
709 assert(pi->pCurFrame != NULL);
710
711 lpC = pi->pCurFrame;
712 lDist = QUALITY_to_DIST(pi->dwQuality);
713 lInLine = DIBWIDTHBYTES(*lpbiIn);
714 lLine = WIDTHBYTES(lpbiOut->biWidth * 16) / 2;
715
716 lpbiOut->biSizeImage = 0;
717 if (isKey) {
718 /* keyframe -- convert internal frame to output format */
719 INT x, y;
720
721 for (y = 0; y < lpbiOut->biHeight; y++) {
722 x = 0;
723
724 do {
725 x = MSRLE32_CompressRLE8Line(pi, NULL, lpC, lpbiIn, lpIn, lDist, x,
726 &lpOut, &lpbiOut->biSizeImage);
727 assert(lpOut == (lpOutStart + lpbiOut->biSizeImage));
728 } while (x < lpbiOut->biWidth);
729
730 lpC += lLine;
731 lpIn += lInLine;
732
733 /* add EOL -- end of line */
734 lpbiOut->biSizeImage += 2;
735 *((LPWORD)lpOut) = 0;
736 lpOut += sizeof(WORD);
737 assert(lpOut == (lpOutStart + lpbiOut->biSizeImage));
738 }
739 } else {
740 /* delta-frame -- compute delta between last and this internal frame */
741 LPWORD lpP;
742 INT x, y;
743 INT jumpx, jumpy;
744
745 assert(pi->pPrevFrame != NULL);
746
747 lpP = pi->pPrevFrame;
748 jumpx = -1;
749 jumpy = 0;
750
751 for (y = 0; y < lpbiOut->biHeight; y++) {
752 x = 0;
753
754 do {
755 INT count, pos;
756
757 if (jumpx == -1)
758 jumpx = x;
759 for (count = 0, pos = x; pos < lpbiOut->biWidth; pos++, count++) {
760 if (ColorCmp(lpP[pos], lpC[pos]) > lDist)
761 break;
762 }
763
764 if (pos == lpbiOut->biWidth && count > 4) {
765 /* (count > 4) secures that we will save space */
766 jumpy++;
767 break;
768 } else if (jumpy || jumpx != pos) {
769 /* time to jump */
770 assert(jumpx != -1);
771
772 if (pos < jumpx) {
773 /* can only jump in positive direction -- do an EOL then jump */
774 assert(jumpy > 0);
775
776 jumpx = 0;
777 jumpy--;
778
779 /* add EOL -- end of line */
780 lpbiOut->biSizeImage += 2;
781 *((LPWORD)lpOut) = 0;
782 lpOut += sizeof(WORD);
783 assert(lpOut == (lpOutStart + lpbiOut->biSizeImage));
784 }
785
786 /* FIXME: if (jumpy == 0 && could encode all) then jump too expensive */
787
788 /* write out real jump(s) */
789 while (jumpy || pos != jumpx) {
790 lpbiOut->biSizeImage += 4;
791 *lpOut++ = 0;
792 *lpOut++ = 2;
793 *lpOut = min(pos - jumpx, 255);
794 jumpx += *lpOut++;
795 *lpOut = min(jumpy, 255);
796 jumpy -= *lpOut++;
797 }
798 x = pos;
799
800 jumpy = 0;
801 }
802
803 jumpx = -1;
804
805 if (x < lpbiOut->biWidth) {
806 /* skip the 'same' things corresponding to previous frame */
807 x = MSRLE32_CompressRLE8Line(pi, lpP, lpC, lpbiIn, lpIn, lDist, x,
808 &lpOut, &lpbiOut->biSizeImage);
809 assert(lpOut == (lpOutStart + lpbiOut->biSizeImage));
810 }
811 } while (x < lpbiOut->biWidth);
812
813 lpP += lLine;
814 lpC += lLine;
815 lpIn += lInLine;
816
817 if (jumpy == 0) {
818 /* add EOL -- end of line */
819 lpbiOut->biSizeImage += 2;
820 *((LPWORD)lpOut) = 0;
821 lpOut += sizeof(WORD);
822 assert(lpOut == (lpOutStart + lpbiOut->biSizeImage));
823 }
824 }
825
826 /* add EOL -- will be changed to EOI */
827 lpbiOut->biSizeImage += 2;
828 *((LPWORD)lpOut) = 0;
829 lpOut += sizeof(WORD);
830 }
831
832 /* change EOL to EOI -- end of image */
833 lpOut[-1] = 1;
834 assert(lpOut == (lpOutStart + lpbiOut->biSizeImage));
835
836 return ICERR_OK;
837 }
838
839 /*****************************************************************************/
840
841 static LRESULT MSRLE32_DecompressRLE4(const CodecInfo *pi, LPCBITMAPINFOHEADER lpbi,
842 const BYTE *lpIn, LPBYTE lpOut)
843 {
844 int bytes_per_pixel;
845 int line_size;
846 int pixel_ptr = 0;
847 int i;
848 BOOL bEndFlag = FALSE;
849
850 assert(pi != NULL);
851 assert(lpbi != NULL && lpbi->biCompression == BI_RGB);
852 assert(lpIn != NULL && lpOut != NULL);
853
854 bytes_per_pixel = (lpbi->biBitCount + 1) / 8;
855 line_size = DIBWIDTHBYTES(*lpbi);
856
857 do {
858 BYTE code0, code1;
859
860 code0 = *lpIn++;
861 code1 = *lpIn++;
862
863 if (code0 == 0) {
864 int extra_byte;
865
866 switch (code1) {
867 case 0: /* EOL - end of line */
868 pixel_ptr = 0;
869 lpOut += line_size;
870 break;
871 case 1: /* EOI - end of image */
872 bEndFlag = TRUE;
873 break;
874 case 2: /* skip */
875 pixel_ptr += *lpIn++ * bytes_per_pixel;
876 lpOut += *lpIn++ * line_size;
877 if (pixel_ptr >= lpbi->biWidth * bytes_per_pixel) {
878 pixel_ptr = 0;
879 lpOut += line_size;
880 }
881 break;
882 default: /* absolute mode */
883 extra_byte = (((code1 + 1) & (~1)) / 2) & 0x01;
884
885 if (pixel_ptr/bytes_per_pixel + code1 > lpbi->biWidth)
886 return ICERR_ERROR;
887
888 code0 = code1;
889 for (i = 0; i < code0 / 2; i++) {
890 if (bytes_per_pixel == 1) {
891 code1 = lpIn[i];
892 lpOut[pixel_ptr++] = pi->palette_map[(code1 >> 4)];
893 if (2 * i + 1 <= code0)
894 lpOut[pixel_ptr++] = pi->palette_map[(code1 & 0x0F)];
895 } else if (bytes_per_pixel == 2) {
896 code1 = lpIn[i] >> 4;
897 lpOut[pixel_ptr++] = pi->palette_map[code1 * 2 + 0];
898 lpOut[pixel_ptr++] = pi->palette_map[code1 * 2 + 1];
899
900 if (2 * i + 1 <= code0) {
901 code1 = lpIn[i] & 0x0F;
902 lpOut[pixel_ptr++] = pi->palette_map[code1 * 2 + 0];
903 lpOut[pixel_ptr++] = pi->palette_map[code1 * 2 + 1];
904 }
905 } else {
906 code1 = lpIn[i] >> 4;
907 lpOut[pixel_ptr + 0] = pi->palette_map[code1 * 4 + 0];
908 lpOut[pixel_ptr + 1] = pi->palette_map[code1 * 4 + 1];
909 lpOut[pixel_ptr + 2] = pi->palette_map[code1 * 4 + 2];
910 pixel_ptr += bytes_per_pixel;
911
912 if (2 * i + 1 <= code0) {
913 code1 = lpIn[i] & 0x0F;
914 lpOut[pixel_ptr + 0] = pi->palette_map[code1 * 4 + 0];
915 lpOut[pixel_ptr + 1] = pi->palette_map[code1 * 4 + 1];
916 lpOut[pixel_ptr + 2] = pi->palette_map[code1 * 4 + 2];
917 pixel_ptr += bytes_per_pixel;
918 }
919 }
920 }
921 if (code0 & 0x01) {
922 if (bytes_per_pixel == 1) {
923 code1 = lpIn[i];
924 lpOut[pixel_ptr++] = pi->palette_map[(code1 >> 4)];
925 } else if (bytes_per_pixel == 2) {
926 code1 = lpIn[i] >> 4;
927 lpOut[pixel_ptr++] = pi->palette_map[code1 * 2 + 0];
928 lpOut[pixel_ptr++] = pi->palette_map[code1 * 2 + 1];
929 } else {
930 code1 = lpIn[i] >> 4;
931 lpOut[pixel_ptr + 0] = pi->palette_map[code1 * 4 + 0];
932 lpOut[pixel_ptr + 1] = pi->palette_map[code1 * 4 + 1];
933 lpOut[pixel_ptr + 2] = pi->palette_map[code1 * 4 + 2];
934 pixel_ptr += bytes_per_pixel;
935 }
936 lpIn++;
937 }
938 lpIn += code0 / 2;
939
940 /* if the RLE code is odd, skip a byte in the stream */
941 if (extra_byte)
942 lpIn++;
943 };
944 } else {
945 /* coded mode */
946 if (pixel_ptr/bytes_per_pixel + code0 > lpbi->biWidth)
947 return ICERR_ERROR;
948
949 if (bytes_per_pixel == 1) {
950 BYTE c1 = pi->palette_map[(code1 >> 4)];
951 BYTE c2 = pi->palette_map[(code1 & 0x0F)];
952
953 for (i = 0; i < code0; i++) {
954 if ((i & 1) == 0)
955 lpOut[pixel_ptr++] = c1;
956 else
957 lpOut[pixel_ptr++] = c2;
958 }
959 } else if (bytes_per_pixel == 2) {
960 BYTE hi1 = pi->palette_map[(code1 >> 4) * 2 + 0];
961 BYTE lo1 = pi->palette_map[(code1 >> 4) * 2 + 1];
962
963 BYTE hi2 = pi->palette_map[(code1 & 0x0F) * 2 + 0];
964 BYTE lo2 = pi->palette_map[(code1 & 0x0F) * 2 + 1];
965
966 for (i = 0; i < code0; i++) {
967 if ((i & 1) == 0) {
968 lpOut[pixel_ptr++] = hi1;
969 lpOut[pixel_ptr++] = lo1;
970 } else {
971 lpOut[pixel_ptr++] = hi2;
972 lpOut[pixel_ptr++] = lo2;
973 }
974 }
975 } else {
976 BYTE b1 = pi->palette_map[(code1 >> 4) * 4 + 0];
977 BYTE g1 = pi->palette_map[(code1 >> 4) * 4 + 1];
978 BYTE r1 = pi->palette_map[(code1 >> 4) * 4 + 2];
979
980 BYTE b2 = pi->palette_map[(code1 & 0x0F) * 4 + 0];
981 BYTE g2 = pi->palette_map[(code1 & 0x0F) * 4 + 1];
982 BYTE r2 = pi->palette_map[(code1 & 0x0F) * 4 + 2];
983
984 for (i = 0; i < code0; i++) {
985 if ((i & 1) == 0) {
986 lpOut[pixel_ptr + 0] = b1;
987 lpOut[pixel_ptr + 1] = g1;
988 lpOut[pixel_ptr + 2] = r1;
989 } else {
990 lpOut[pixel_ptr + 0] = b2;
991 lpOut[pixel_ptr + 1] = g2;
992 lpOut[pixel_ptr + 2] = r2;
993 }
994 pixel_ptr += bytes_per_pixel;
995 }
996 }
997 }
998 } while (! bEndFlag);
999
1000 return ICERR_OK;
1001 }
1002
1003 static LRESULT MSRLE32_DecompressRLE8(const CodecInfo *pi, LPCBITMAPINFOHEADER lpbi,
1004 const BYTE *lpIn, LPBYTE lpOut)
1005 {
1006 int bytes_per_pixel;
1007 int line_size;
1008 int pixel_ptr = 0;
1009 BOOL bEndFlag = FALSE;
1010
1011 assert(pi != NULL);
1012 assert(lpbi != NULL && lpbi->biCompression == BI_RGB);
1013 assert(lpIn != NULL && lpOut != NULL);
1014
1015 bytes_per_pixel = (lpbi->biBitCount + 1) / 8;
1016 line_size = DIBWIDTHBYTES(*lpbi);
1017
1018 do {
1019 BYTE code0, code1;
1020
1021 code0 = *lpIn++;
1022 code1 = *lpIn++;
1023
1024 if (code0 == 0) {
1025 int extra_byte;
1026
1027 switch (code1) {
1028 case 0: /* EOL - end of line */
1029 pixel_ptr = 0;
1030 lpOut += line_size;
1031 break;
1032 case 1: /* EOI - end of image */
1033 bEndFlag = TRUE;
1034 break;
1035 case 2: /* skip */
1036 pixel_ptr += *lpIn++ * bytes_per_pixel;
1037 lpOut += *lpIn++ * line_size;
1038 if (pixel_ptr >= lpbi->biWidth * bytes_per_pixel) {
1039 pixel_ptr = 0;
1040 lpOut += line_size;
1041 }
1042 break;
1043 default: /* absolute mode */
1044 if (pixel_ptr/bytes_per_pixel + code1 > lpbi->biWidth) {
1045 WARN("aborted absolute: (%d=%d/%d+%d) > %d\n",pixel_ptr/bytes_per_pixel + code1,pixel_ptr,bytes_per_pixel,code1,lpbi->biWidth);
1046 return ICERR_ERROR;
1047 }
1048 extra_byte = code1 & 0x01;
1049
1050 code0 = code1;
1051 while (code0--) {
1052 code1 = *lpIn++;
1053 if (bytes_per_pixel == 1) {
1054 lpOut[pixel_ptr] = pi->palette_map[code1];
1055 } else if (bytes_per_pixel == 2) {
1056 lpOut[pixel_ptr + 0] = pi->palette_map[code1 * 2 + 0];
1057 lpOut[pixel_ptr + 1] = pi->palette_map[code1 * 2 + 1];
1058 } else {
1059 lpOut[pixel_ptr + 0] = pi->palette_map[code1 * 4 + 0];
1060 lpOut[pixel_ptr + 1] = pi->palette_map[code1 * 4 + 1];
1061 lpOut[pixel_ptr + 2] = pi->palette_map[code1 * 4 + 2];
1062 }
1063 pixel_ptr += bytes_per_pixel;
1064 }
1065
1066 /* if the RLE code is odd, skip a byte in the stream */
1067 if (extra_byte)
1068 lpIn++;
1069 };
1070 } else {
1071 /* coded mode */
1072 if (pixel_ptr/bytes_per_pixel + code0 > lpbi->biWidth) {
1073 WARN("aborted coded: (%d=%d/%d+%d) > %d\n",pixel_ptr/bytes_per_pixel + code1,pixel_ptr,bytes_per_pixel,code1,lpbi->biWidth);
1074 return ICERR_ERROR;
1075 }
1076
1077 if (bytes_per_pixel == 1) {
1078 code1 = pi->palette_map[code1];
1079 while (code0--)
1080 lpOut[pixel_ptr++] = code1;
1081 } else if (bytes_per_pixel == 2) {
1082 BYTE hi = pi->palette_map[code1 * 2 + 0];
1083 BYTE lo = pi->palette_map[code1 * 2 + 1];
1084
1085 while (code0--) {
1086 lpOut[pixel_ptr + 0] = hi;
1087 lpOut[pixel_ptr + 1] = lo;
1088 pixel_ptr += bytes_per_pixel;
1089 }
1090 } else {
1091 BYTE r = pi->palette_map[code1 * 4 + 2];
1092 BYTE g = pi->palette_map[code1 * 4 + 1];
1093 BYTE b = pi->palette_map[code1 * 4 + 0];
1094
1095 while (code0--) {
1096 lpOut[pixel_ptr + 0] = b;
1097 lpOut[pixel_ptr + 1] = g;
1098 lpOut[pixel_ptr + 2] = r;
1099 pixel_ptr += bytes_per_pixel;
1100 }
1101 }
1102 }
1103 } while (! bEndFlag);
1104
1105 return ICERR_OK;
1106 }
1107
1108 /*****************************************************************************/
1109
1110 static CodecInfo* Open(LPICOPEN icinfo)
1111 {
1112 CodecInfo* pi = NULL;
1113
1114 if (icinfo == NULL) {
1115 TRACE("(NULL)\n");
1116 return (LPVOID)0xFFFF0000;
1117 }
1118
1119 if (compare_fourcc(icinfo->fccType, ICTYPE_VIDEO)) return NULL;
1120
1121 TRACE("(%p = {%u,0x%08X(%4.4s),0x%08X(%4.4s),0x%X,0x%X,...})\n", icinfo,
1122 icinfo->dwSize, icinfo->fccType, (char*)&icinfo->fccType,
1123 icinfo->fccHandler, (char*)&icinfo->fccHandler,
1124 icinfo->dwVersion,icinfo->dwFlags);
1125
1126 switch (icinfo->fccHandler) {
1127 case FOURCC_RLE:
1128 case FOURCC_RLE4:
1129 case FOURCC_RLE8:
1130 case FOURCC_MRLE:
1131 break;
1132 case mmioFOURCC('m','r','l','e'):
1133 icinfo->fccHandler = FOURCC_MRLE;
1134 break;
1135 default:
1136 WARN("unknown FOURCC = 0x%08X(%4.4s) !\n",
1137 icinfo->fccHandler,(char*)&icinfo->fccHandler);
1138 return NULL;
1139 }
1140
1141 pi = LocalAlloc(LPTR, sizeof(CodecInfo));
1142
1143 if (pi != NULL) {
1144 pi->fccHandler = icinfo->fccHandler;
1145
1146 pi->bCompress = FALSE;
1147 pi->dwQuality = MSRLE32_DEFAULTQUALITY;
1148 pi->nPrevFrame = -1;
1149 pi->pPrevFrame = pi->pCurFrame = NULL;
1150
1151 pi->bDecompress = FALSE;
1152 pi->palette_map = NULL;
1153 }
1154
1155 icinfo->dwError = (pi != NULL ? ICERR_OK : ICERR_MEMORY);
1156
1157 return pi;
1158 }
1159
1160 static LRESULT Close(CodecInfo *pi)
1161 {
1162 TRACE("(%p)\n", pi);
1163
1164 /* pre-condition */
1165 assert(pi != NULL);
1166
1167 if (pi->pPrevFrame != NULL || pi->pCurFrame != NULL)
1168 CompressEnd(pi);
1169
1170 LocalFree(pi);
1171 return 1;
1172 }
1173
1174 static LRESULT GetInfo(const CodecInfo *pi, ICINFO *icinfo, DWORD dwSize)
1175 {
1176 /* pre-condition */
1177 assert(pi != NULL);
1178
1179 /* check parameters */
1180 if (icinfo == NULL)
1181 return sizeof(ICINFO);
1182 if (dwSize < sizeof(ICINFO))
1183 return 0;
1184
1185 icinfo->dwSize = sizeof(ICINFO);
1186 icinfo->fccType = ICTYPE_VIDEO;
1187 icinfo->fccHandler = (pi != NULL ? pi->fccHandler : FOURCC_MRLE);
1188 icinfo->dwFlags = VIDCF_QUALITY | VIDCF_TEMPORAL | VIDCF_CRUNCH | VIDCF_FASTTEMPORALC;
1189 icinfo->dwVersion = ICVERSION;
1190 icinfo->dwVersionICM = ICVERSION;
1191
1192 LoadStringW(MSRLE32_hModule, IDS_NAME, icinfo->szName, sizeof(icinfo->szName)/sizeof(WCHAR));
1193 LoadStringW(MSRLE32_hModule, IDS_DESCRIPTION, icinfo->szDescription, sizeof(icinfo->szDescription)/sizeof(WCHAR));
1194
1195 return sizeof(ICINFO);
1196 }
1197
1198 static LRESULT SetQuality(CodecInfo *pi, LONG lQuality)
1199 {
1200 /* pre-condition */
1201 assert(pi != NULL);
1202
1203 if (lQuality == -1)
1204 lQuality = MSRLE32_DEFAULTQUALITY;
1205 else if (ICQUALITY_LOW > lQuality || lQuality > ICQUALITY_HIGH)
1206 return ICERR_BADPARAM;
1207
1208 pi->dwQuality = (DWORD)lQuality;
1209
1210 return ICERR_OK;
1211 }
1212
1213 static LRESULT Configure(const CodecInfo *pi, HWND hWnd)
1214 {
1215 /* pre-condition */
1216 assert(pi != NULL);
1217
1218 /* FIXME */
1219 return ICERR_OK;
1220 }
1221
1222 static LRESULT About(CodecInfo *pi, HWND hWnd)
1223 {
1224 WCHAR szTitle[20];
1225 WCHAR szAbout[128];
1226
1227 /* pre-condition */
1228 assert(MSRLE32_hModule != 0);
1229
1230 LoadStringW(MSRLE32_hModule, IDS_NAME, szTitle, sizeof(szTitle)/sizeof(szTitle[0]));
1231 LoadStringW(MSRLE32_hModule, IDS_ABOUT, szAbout, sizeof(szAbout)/sizeof(szAbout[0]));
1232
1233 MessageBoxW(hWnd, szAbout, szTitle, MB_OK|MB_ICONINFORMATION);
1234
1235 return ICERR_OK;
1236 }
1237
1238 static LRESULT CompressGetFormat(CodecInfo *pi, LPCBITMAPINFOHEADER lpbiIn,
1239 LPBITMAPINFOHEADER lpbiOut)
1240 {
1241 LRESULT size;
1242
1243 TRACE("(%p,%p,%p)\n",pi,lpbiIn,lpbiOut);
1244
1245 /* pre-condition */
1246 assert(pi != NULL);
1247
1248 /* check parameters -- need at least input format */
1249 if (lpbiIn == NULL) {
1250 if (lpbiOut != NULL)
1251 return ICERR_BADPARAM;
1252 return 0;
1253 }
1254
1255 /* handle unsupported input format */
1256 if (CompressQuery(pi, lpbiIn, NULL) != ICERR_OK)
1257 return (lpbiOut == NULL ? ICERR_BADFORMAT : 0);
1258
1259 assert(0 < lpbiIn->biBitCount && lpbiIn->biBitCount <= 8);
1260
1261 switch (pi->fccHandler) {
1262 case FOURCC_RLE4:
1263 size = 1 << 4;
1264 break;
1265 case FOURCC_RLE8:
1266 size = 1 << 8;
1267 break;
1268 case FOURCC_RLE:
1269 case FOURCC_MRLE:
1270 size = (lpbiIn->biBitCount <= 4 ? 1 << 4 : 1 << 8);
1271 break;
1272 default:
1273 return ICERR_ERROR;
1274 }
1275
1276 if (lpbiIn->biClrUsed != 0)
1277 size = lpbiIn->biClrUsed;
1278
1279 size = sizeof(BITMAPINFOHEADER) + size * sizeof(RGBQUAD);
1280
1281 if (lpbiOut != NULL) {
1282 lpbiOut->biSize = sizeof(BITMAPINFOHEADER);
1283 lpbiOut->biWidth = lpbiIn->biWidth;
1284 lpbiOut->biHeight = lpbiIn->biHeight;
1285 lpbiOut->biPlanes = 1;
1286 if (pi->fccHandler == FOURCC_RLE4 ||
1287 lpbiIn->biBitCount <= 4) {
1288 lpbiOut->biCompression = BI_RLE4;
1289 lpbiOut->biBitCount = 4;
1290 } else {
1291 lpbiOut->biCompression = BI_RLE8;
1292 lpbiOut->biBitCount = 8;
1293 }
1294 lpbiOut->biSizeImage = MSRLE32_GetMaxCompressedSize(lpbiOut);
1295 lpbiOut->biXPelsPerMeter = lpbiIn->biXPelsPerMeter;
1296 lpbiOut->biYPelsPerMeter = lpbiIn->biYPelsPerMeter;
1297 if (lpbiIn->biClrUsed == 0)
1298 size = 1<<lpbiIn->biBitCount;
1299 else
1300 size = lpbiIn->biClrUsed;
1301 lpbiOut->biClrUsed = min(size, 1 << lpbiOut->biBitCount);
1302 lpbiOut->biClrImportant = 0;
1303
1304 memcpy((LPBYTE)lpbiOut + lpbiOut->biSize,
1305 (const BYTE*)lpbiIn + lpbiIn->biSize, lpbiOut->biClrUsed * sizeof(RGBQUAD));
1306
1307 return ICERR_OK;
1308 } else
1309 return size;
1310 }
1311
1312 static LRESULT CompressGetSize(CodecInfo *pi, LPCBITMAPINFOHEADER lpbiIn,
1313 LPCBITMAPINFOHEADER lpbiOut)
1314 {
1315 /* pre-condition */
1316 assert(pi != NULL);
1317
1318 TRACE("(%p,%p,%p)\n",pi,lpbiIn,lpbiOut);
1319
1320 /* check parameter -- need at least one format */
1321 if (lpbiIn == NULL && lpbiOut == NULL)
1322 return 0;
1323 /* check if the given format is supported */
1324 if (CompressQuery(pi, lpbiIn, lpbiOut) != ICERR_OK)
1325 return 0;
1326
1327 /* the worst case is coding the complete image in absolute mode. */
1328 if (lpbiIn)
1329 return MSRLE32_GetMaxCompressedSize(lpbiIn);
1330 else
1331 return MSRLE32_GetMaxCompressedSize(lpbiOut);
1332 }
1333
1334 static LRESULT CompressQuery(const CodecInfo *pi, LPCBITMAPINFOHEADER lpbiIn,
1335 LPCBITMAPINFOHEADER lpbiOut)
1336 {
1337 /* pre-condition */
1338 assert(pi != NULL);
1339
1340 /* need at least one format */
1341 if (lpbiIn == NULL && lpbiOut == NULL)
1342 return ICERR_BADPARAM;
1343
1344 /* check input format if given */
1345 if (lpbiIn != NULL) {
1346 if (!isSupportedDIB(lpbiIn))
1347 return ICERR_BADFORMAT;
1348
1349 /* for 4-bit need an even width */
1350 if (lpbiIn->biBitCount <= 4 && (lpbiIn->biWidth % 2))
1351 return ICERR_BADFORMAT;
1352
1353 if (pi->fccHandler == FOURCC_RLE4 && lpbiIn->biBitCount > 4)
1354 return ICERR_UNSUPPORTED;
1355 else if (lpbiIn->biBitCount > 8)
1356 return ICERR_UNSUPPORTED;
1357 }
1358
1359 /* check output format if given */
1360 if (lpbiOut != NULL) {
1361 if (!isSupportedMRLE(lpbiOut))
1362 return ICERR_BADFORMAT;
1363
1364 if (lpbiIn != NULL) {
1365 if (lpbiIn->biWidth != lpbiOut->biWidth)
1366 return ICERR_UNSUPPORTED;
1367 if (lpbiIn->biHeight != lpbiOut->biHeight)
1368 return ICERR_UNSUPPORTED;
1369 if (lpbiIn->biBitCount > lpbiOut->biBitCount)
1370 return ICERR_UNSUPPORTED;
1371 }
1372 }
1373
1374 return ICERR_OK;
1375 }
1376
1377 static LRESULT CompressBegin(CodecInfo *pi, LPCBITMAPINFOHEADER lpbiIn,
1378 LPCBITMAPINFOHEADER lpbiOut)
1379 {
1380 const RGBQUAD *rgbIn;
1381 const RGBQUAD *rgbOut;
1382 UINT i;
1383 size_t size;
1384
1385 TRACE("(%p,%p,%p)\n",pi,lpbiIn,lpbiOut);
1386
1387 /* pre-condition */
1388 assert(pi != NULL);
1389
1390 /* check parameters -- need both formats */
1391 if (lpbiIn == NULL || lpbiOut == NULL)
1392 return ICERR_BADPARAM;
1393 /* And both must be supported */
1394 if (CompressQuery(pi, lpbiIn, lpbiOut) != ICERR_OK)
1395 return ICERR_BADFORMAT;
1396
1397 /* FIXME: cannot compress and decompress at same time! */
1398 if (pi->bDecompress) {
1399 FIXME("cannot compress and decompress at same time!\n");
1400 return ICERR_ERROR;
1401 }
1402
1403 if (pi->bCompress)
1404 CompressEnd(pi);
1405
1406 size = WIDTHBYTES(lpbiOut->biWidth * 16) / 2 * lpbiOut->biHeight;
1407 pi->pPrevFrame = GlobalLock(GlobalAlloc(GPTR, size * sizeof(WORD)));
1408 if (pi->pPrevFrame == NULL)
1409 return ICERR_MEMORY;
1410 pi->pCurFrame = GlobalLock(GlobalAlloc(GPTR, size * sizeof(WORD)));
1411 if (pi->pCurFrame == NULL) {
1412 CompressEnd(pi);
1413 return ICERR_MEMORY;
1414 }
1415 pi->nPrevFrame = -1;
1416 pi->bCompress = TRUE;
1417
1418 rgbIn = (const RGBQUAD*)((const BYTE*)lpbiIn + lpbiIn->biSize);
1419 rgbOut = (const RGBQUAD*)((const BYTE*)lpbiOut + lpbiOut->biSize);
1420
1421 switch (lpbiOut->biBitCount) {
1422 case 4:
1423 case 8:
1424 pi->palette_map = LocalAlloc(LPTR, lpbiIn->biClrUsed);
1425 if (pi->palette_map == NULL) {
1426 CompressEnd(pi);
1427 return ICERR_MEMORY;
1428 }
1429
1430 for (i = 0; i < lpbiIn->biClrUsed; i++) {
1431 pi->palette_map[i] = MSRLE32_GetNearestPaletteIndex(lpbiOut->biClrUsed, rgbOut, rgbIn[i]);
1432 }
1433 break;
1434 };
1435
1436 return ICERR_OK;
1437 }
1438
1439 static LRESULT Compress(CodecInfo *pi, ICCOMPRESS* lpic, DWORD dwSize)
1440 {
1441 int i;
1442
1443 TRACE("(%p,%p,%u)\n",pi,lpic,dwSize);
1444
1445 /* pre-condition */
1446 assert(pi != NULL);
1447
1448 /* check parameters */
1449 if (lpic == NULL || dwSize < sizeof(ICCOMPRESS))
1450 return ICERR_BADPARAM;
1451 if (!lpic->lpbiOutput || !lpic->lpOutput ||
1452 !lpic->lpbiInput || !lpic->lpInput)
1453 return ICERR_BADPARAM;
1454
1455 TRACE("lpic={0x%X,%p,%p,%p,%p,%p,%p,%d,%u,%u,%p,%p}\n",lpic->dwFlags,lpic->lpbiOutput,lpic->lpOutput,lpic->lpbiInput,lpic->lpInput,lpic->lpckid,lpic->lpdwFlags,lpic->lFrameNum,lpic->dwFrameSize,lpic->dwQuality,lpic->lpbiPrev,lpic->lpPrev);
1456
1457 if (! pi->bCompress) {
1458 LRESULT hr = CompressBegin(pi, lpic->lpbiInput, lpic->lpbiOutput);
1459 if (hr != ICERR_OK)
1460 return hr;
1461 } else if (CompressQuery(pi, lpic->lpbiInput, lpic->lpbiOutput) != ICERR_OK)
1462 return ICERR_BADFORMAT;
1463
1464 if (lpic->lFrameNum >= pi->nPrevFrame + 1) {
1465 /* we continue in the sequence so we need to initialize
1466 * our internal framedata */
1467
1468 computeInternalFrame(pi, lpic->lpbiInput, lpic->lpInput);
1469 } else if (lpic->lFrameNum == pi->nPrevFrame) {
1470 /* Oops, compress same frame again ? Okay, as you wish.
1471 * No need to recompute internal framedata, because we only swapped buffers */
1472 LPWORD pTmp = pi->pPrevFrame;
1473
1474 pi->pPrevFrame = pi->pCurFrame;
1475 pi->pCurFrame = pTmp;
1476 } else if ((lpic->dwFlags & ICCOMPRESS_KEYFRAME) == 0) {
1477 LPWORD pTmp;
1478
1479 WARN(": prev=%d cur=%d gone back? -- untested\n",pi->nPrevFrame,lpic->lFrameNum);
1480 if (lpic->lpbiPrev == NULL || lpic->lpPrev == NULL)
1481 return ICERR_GOTOKEYFRAME; /* Need a keyframe if you go back */
1482 if (CompressQuery(pi, lpic->lpbiPrev, lpic->lpbiOutput) != ICERR_OK)
1483 return ICERR_BADFORMAT;
1484
1485 WARN(": prev=%d cur=%d compute swapped -- untested\n",pi->nPrevFrame,lpic->lFrameNum);
1486 computeInternalFrame(pi, lpic->lpbiPrev, lpic->lpPrev);
1487
1488 /* swap buffers for current and previous frame */
1489 /* Don't free and alloc new -- costs to much time and they are of equal size ! */
1490 pTmp = pi->pPrevFrame;
1491 pi->pPrevFrame = pi->pCurFrame;
1492 pi->pCurFrame = pTmp;
1493 pi->nPrevFrame = lpic->lFrameNum;
1494 }
1495
1496 for (i = 0; i < 3; i++) {
1497 SetQuality(pi, lpic->dwQuality);
1498
1499 lpic->lpbiOutput->biSizeImage = 0;
1500
1501 if (lpic->lpbiOutput->biBitCount == 4)
1502 MSRLE32_CompressRLE4(pi, lpic->lpbiInput, lpic->lpInput,
1503 lpic->lpbiOutput, lpic->lpOutput, (lpic->dwFlags & ICCOMPRESS_KEYFRAME) != 0);
1504 else
1505 MSRLE32_CompressRLE8(pi, lpic->lpbiInput, lpic->lpInput,
1506 lpic->lpbiOutput, lpic->lpOutput, (lpic->dwFlags & ICCOMPRESS_KEYFRAME) != 0);
1507
1508 if (lpic->dwFrameSize == 0 ||
1509 lpic->lpbiOutput->biSizeImage < lpic->dwFrameSize)
1510 break;
1511
1512 if ((*lpic->lpdwFlags & ICCOMPRESS_KEYFRAME) == 0) {
1513 if (lpic->lpbiOutput->biBitCount == 4)
1514 MSRLE32_CompressRLE4(pi, lpic->lpbiInput, lpic->lpInput,
1515 lpic->lpbiOutput, lpic->lpOutput, TRUE);
1516 else
1517 MSRLE32_CompressRLE8(pi, lpic->lpbiInput, lpic->lpInput,
1518 lpic->lpbiOutput, lpic->lpOutput, TRUE);
1519
1520 if (lpic->dwFrameSize == 0 ||
1521 lpic->lpbiOutput->biSizeImage < lpic->dwFrameSize) {
1522 WARN("switched to keyframe, was small enough!\n");
1523 *lpic->lpdwFlags |= ICCOMPRESS_KEYFRAME;
1524 *lpic->lpckid = MAKEAVICKID(cktypeDIBbits,
1525 StreamFromFOURCC(*lpic->lpckid));
1526 break;
1527 }
1528 }
1529
1530 if (lpic->dwQuality < 1000)
1531 break;
1532
1533 lpic->dwQuality -= 1000; /* reduce quality by 10% */
1534 }
1535
1536 { /* swap buffer for current and previous frame */
1537 /* Don't free and alloc new -- costs to much time and they are of equal size ! */
1538 register LPWORD pTmp = pi->pPrevFrame;
1539
1540 pi->pPrevFrame = pi->pCurFrame;
1541 pi->pCurFrame = pTmp;
1542 pi->nPrevFrame = lpic->lFrameNum;
1543 }
1544
1545 return ICERR_OK;
1546 }
1547
1548 static LRESULT CompressEnd(CodecInfo *pi)
1549 {
1550 TRACE("(%p)\n",pi);
1551
1552 if (pi != NULL) {
1553 if (pi->pPrevFrame != NULL)
1554 {
1555 GlobalUnlock(GlobalHandle(pi->pPrevFrame));
1556 GlobalFree(GlobalHandle(pi->pPrevFrame));
1557 }
1558 if (pi->pCurFrame != NULL)
1559 {
1560 GlobalUnlock(GlobalHandle(pi->pCurFrame));
1561 GlobalFree(GlobalHandle(pi->pCurFrame));
1562 }
1563 pi->pPrevFrame = NULL;
1564 pi->pCurFrame = NULL;
1565 pi->nPrevFrame = -1;
1566 pi->bCompress = FALSE;
1567 }
1568
1569 return ICERR_OK;
1570 }
1571
1572 static LRESULT DecompressGetFormat(CodecInfo *pi, LPCBITMAPINFOHEADER lpbiIn,
1573 LPBITMAPINFOHEADER lpbiOut)
1574 {
1575 DWORD size;
1576
1577 TRACE("(%p,%p,%p)\n",pi,lpbiIn,lpbiOut);
1578
1579 /* pre-condition */
1580 assert(pi != NULL);
1581
1582 if (lpbiIn == NULL)
1583 return (lpbiOut != NULL ? ICERR_BADPARAM : 0);
1584
1585 if (DecompressQuery(pi, lpbiIn, NULL) != ICERR_OK)
1586 return (lpbiOut != NULL ? ICERR_BADFORMAT : 0);
1587
1588 size = lpbiIn->biSize;
1589
1590 if (lpbiIn->biBitCount <= 8)
1591 size += lpbiIn->biClrUsed * sizeof(RGBQUAD);
1592
1593 if (lpbiOut != NULL) {
1594 memcpy(lpbiOut, lpbiIn, size);
1595 lpbiOut->biCompression = BI_RGB;
1596 lpbiOut->biSizeImage = DIBWIDTHBYTES(*lpbiOut) * lpbiOut->biHeight;
1597
1598 return ICERR_OK;
1599 } else
1600 return size;
1601 }
1602
1603 static LRESULT DecompressQuery(CodecInfo *pi, LPCBITMAPINFOHEADER lpbiIn,
1604 LPCBITMAPINFOHEADER lpbiOut)
1605 {
1606 LRESULT hr = ICERR_OK;
1607
1608 TRACE("(%p,%p,%p)\n",pi,lpbiIn,lpbiOut);
1609
1610 /* pre-condition */
1611 assert(pi != NULL);
1612
1613 /* need at least one format */
1614 if (lpbiIn == NULL && lpbiOut == NULL)
1615 return ICERR_BADPARAM;
1616
1617 /* check input format if given */
1618 if (lpbiIn != NULL) {
1619 if (!isSupportedMRLE(lpbiIn))
1620 return ICERR_BADFORMAT;
1621 }
1622
1623 /* check output format if given */
1624 if (lpbiOut != NULL) {
1625 if (!isSupportedDIB(lpbiOut))
1626 hr = ICERR_BADFORMAT;
1627
1628 if (lpbiIn != NULL) {
1629 if (lpbiIn->biWidth != lpbiOut->biWidth)
1630 hr = ICERR_UNSUPPORTED;
1631 if (lpbiIn->biHeight != lpbiOut->biHeight)
1632 hr = ICERR_UNSUPPORTED;
1633 if (lpbiIn->biBitCount > lpbiOut->biBitCount)
1634 hr = ICERR_UNSUPPORTED;
1635 }
1636 }
1637
1638 return hr;
1639 }
1640
1641 static LRESULT DecompressBegin(CodecInfo *pi, LPCBITMAPINFOHEADER lpbiIn,
1642 LPCBITMAPINFOHEADER lpbiOut)
1643 {
1644 const RGBQUAD *rgbIn;
1645 const RGBQUAD *rgbOut;
1646 UINT i;
1647
1648 TRACE("(%p,%p,%p)\n",pi,lpbiIn,lpbiOut);
1649
1650 /* pre-condition */
1651 assert(pi != NULL);
1652
1653 /* check parameters */
1654 if (lpbiIn == NULL || lpbiOut == NULL)
1655 return ICERR_BADPARAM;
1656 if (DecompressQuery(pi, lpbiIn, lpbiOut) != ICERR_OK)
1657 return ICERR_BADFORMAT;
1658
1659 /* FIXME: cannot compress and decompress at a time! */
1660 if (pi->bCompress) {
1661 FIXME("cannot compress and decompress at same time!\n");
1662 return ICERR_ERROR;
1663 }
1664
1665 if (pi->bDecompress)
1666 DecompressEnd(pi);
1667
1668 rgbIn = (const RGBQUAD*)((const BYTE*)lpbiIn + lpbiIn->biSize);
1669 rgbOut = (const RGBQUAD*)((const BYTE*)lpbiOut + lpbiOut->biSize);
1670
1671 switch (lpbiOut->biBitCount) {
1672 case 4:
1673 case 8:
1674 pi->palette_map = LocalAlloc(LPTR, lpbiIn->biClrUsed);
1675 if (pi->palette_map == NULL)
1676 return ICERR_MEMORY;
1677
1678 for (i = 0; i < lpbiIn->biClrUsed; i++) {
1679 pi->palette_map[i] = MSRLE32_GetNearestPaletteIndex(lpbiOut->biClrUsed, rgbOut, rgbIn[i]);
1680 }
1681 break;
1682 case 15:
1683 case 16:
1684 pi->palette_map = LocalAlloc(LPTR, lpbiIn->biClrUsed * 2);
1685 if (pi->palette_map == NULL)
1686 return ICERR_MEMORY;
1687
1688 for (i = 0; i < lpbiIn->biClrUsed; i++) {
1689 WORD color;
1690
1691 if (lpbiOut->biBitCount == 15)
1692 color = ((rgbIn[i].rgbRed >> 3) << 10)
1693 | ((rgbIn[i].rgbGreen >> 3) << 5) | (rgbIn[i].rgbBlue >> 3);
1694 else
1695 color = ((rgbIn[i].rgbRed >> 3) << 11)
1696 | ((rgbIn[i].rgbGreen >> 3) << 5) | (rgbIn[i].rgbBlue >> 3);
1697
1698 pi->palette_map[i * 2 + 1] = color >> 8;
1699 pi->palette_map[i * 2 + 0] = color & 0xFF;
1700 };
1701 break;
1702 case 24:
1703 case 32:
1704 pi->palette_map = LocalAlloc(LPTR, lpbiIn->biClrUsed * sizeof(RGBQUAD));
1705 if (pi->palette_map == NULL)
1706 return ICERR_MEMORY;
1707 memcpy(pi->palette_map, rgbIn, lpbiIn->biClrUsed * sizeof(RGBQUAD));
1708 break;
1709 };
1710
1711 pi->bDecompress = TRUE;
1712
1713 return ICERR_OK;
1714 }
1715
1716 static LRESULT Decompress(CodecInfo *pi, ICDECOMPRESS *pic, DWORD dwSize)
1717 {
1718 TRACE("(%p,%p,%u)\n",pi,pic,dwSize);
1719
1720 /* pre-condition */
1721 assert(pi != NULL);
1722
1723 /* check parameters */
1724 if (pic == NULL)
1725 return ICERR_BADPARAM;
1726 if (pic->lpbiInput == NULL || pic->lpInput == NULL ||
1727 pic->lpbiOutput == NULL || pic->lpOutput == NULL)
1728 return ICERR_BADPARAM;
1729
1730 /* check formats */
1731 if (! pi->bDecompress) {
1732 LRESULT hr = DecompressBegin(pi, pic->lpbiInput, pic->lpbiOutput);
1733 if (hr != ICERR_OK)
1734 return hr;
1735 } else if (DecompressQuery(pi, pic->lpbiInput, pic->lpbiOutput) != ICERR_OK)
1736 return ICERR_BADFORMAT;
1737
1738 assert(pic->lpbiInput->biWidth == pic->lpbiOutput->biWidth);
1739 assert(pic->lpbiInput->biHeight == pic->lpbiOutput->biHeight);
1740
1741 pic->lpbiOutput->biSizeImage = DIBWIDTHBYTES(*pic->lpbiOutput) * pic->lpbiOutput->biHeight;
1742 if (pic->lpbiInput->biBitCount == 4)
1743 return MSRLE32_DecompressRLE4(pi, pic->lpbiOutput, pic->lpInput, pic->lpOutput);
1744 else
1745 return MSRLE32_DecompressRLE8(pi, pic->lpbiOutput, pic->lpInput, pic->lpOutput);
1746 }
1747
1748 static LRESULT DecompressEnd(CodecInfo *pi)
1749 {
1750 TRACE("(%p)\n",pi);
1751
1752 /* pre-condition */
1753 assert(pi != NULL);
1754
1755 pi->bDecompress = FALSE;
1756
1757 if (pi->palette_map != NULL) {
1758 LocalFree(pi->palette_map);
1759 pi->palette_map = NULL;
1760 }
1761
1762 return ICERR_OK;
1763 }
1764
1765 static LRESULT DecompressGetPalette(CodecInfo *pi, LPCBITMAPINFOHEADER lpbiIn,
1766 LPBITMAPINFOHEADER lpbiOut)
1767 {
1768 int size;
1769
1770 TRACE("(%p,%p,%p)\n",pi,lpbiIn,lpbiOut);
1771
1772 /* pre-condition */
1773 assert(pi != NULL);
1774
1775 /* check parameters */
1776 if (lpbiIn == NULL || lpbiOut == NULL)
1777 return ICERR_BADPARAM;
1778
1779 if (DecompressQuery(pi, lpbiIn, lpbiOut) != ICERR_OK)
1780 return ICERR_BADFORMAT;
1781
1782 if (lpbiOut->biBitCount > 8)
1783 return ICERR_ERROR;
1784
1785 if (lpbiIn->biBitCount <= 8) {
1786 if (lpbiIn->biClrUsed > 0)
1787 size = lpbiIn->biClrUsed;
1788 else
1789 size = (1 << lpbiIn->biBitCount);
1790
1791 lpbiOut->biClrUsed = size;
1792
1793 memcpy((LPBYTE)lpbiOut + lpbiOut->biSize, (const BYTE*)lpbiIn + lpbiIn->biSize, size * sizeof(RGBQUAD));
1794 } /* else could never occur ! */
1795
1796 return ICERR_OK;
1797 }
1798
1799 /* DriverProc - entry point for an installable driver */
1800 LRESULT CALLBACK MSRLE32_DriverProc(DWORD_PTR dwDrvID, HDRVR hDrv, UINT uMsg,
1801 LPARAM lParam1, LPARAM lParam2)
1802 {
1803 CodecInfo *pi = (CodecInfo*)dwDrvID;
1804
1805 TRACE("(%lx,%p,0x%04X,0x%08lX,0x%08lX)\n", dwDrvID, hDrv, uMsg, lParam1, lParam2);
1806
1807 switch (uMsg) {
1808 /* standard driver messages */
1809 case DRV_LOAD:
1810 return DRVCNF_OK;
1811 case DRV_OPEN:
1812 return (LRESULT)Open((ICOPEN*)lParam2);
1813 case DRV_CLOSE:
1814 if (dwDrvID != 0xFFFF0000 && (LPVOID)dwDrvID != NULL)
1815 Close(pi);
1816 return DRVCNF_OK;
1817 case DRV_ENABLE:
1818 case DRV_DISABLE:
1819 return DRVCNF_OK;
1820 case DRV_FREE:
1821 return DRVCNF_OK;
1822 case DRV_QUERYCONFIGURE:
1823 return DRVCNF_CANCEL; /* FIXME */
1824 case DRV_CONFIGURE:
1825 return DRVCNF_OK; /* FIXME */
1826 case DRV_INSTALL:
1827 case DRV_REMOVE:
1828 return DRVCNF_OK;
1829
1830 /* installable compression manager messages */
1831 case ICM_CONFIGURE:
1832 FIXME("ICM_CONFIGURE (%ld)\n",lParam1);
1833 if (lParam1 == -1)
1834 return ICERR_UNSUPPORTED; /* FIXME */
1835 else
1836 return Configure(pi, (HWND)lParam1);
1837 case ICM_ABOUT:
1838 if (lParam1 == -1)
1839 return ICERR_OK;
1840 else
1841 return About(pi, (HWND)lParam1);
1842 case ICM_GETSTATE:
1843 case ICM_SETSTATE:
1844 return 0; /* no state */
1845 case ICM_GETINFO:
1846 return GetInfo(pi, (ICINFO*)lParam1, (DWORD)lParam2);
1847 case ICM_GETDEFAULTQUALITY:
1848 if ((LPVOID)lParam1 != NULL) {
1849 *((LPDWORD)lParam1) = MSRLE32_DEFAULTQUALITY;
1850 return ICERR_OK;
1851 }
1852 break;
1853 case ICM_GETQUALITY:
1854 if ((LPVOID)lParam1 != NULL) {
1855 *((LPDWORD)lParam1) = pi->dwQuality;
1856 return ICERR_OK;
1857 }
1858 break;
1859 case ICM_SETQUALITY:
1860 return SetQuality(pi, *(LPLONG)lParam1);
1861 case ICM_COMPRESS_GET_FORMAT:
1862 return CompressGetFormat(pi, (LPCBITMAPINFOHEADER)lParam1,
1863 (LPBITMAPINFOHEADER)lParam2);
1864 case ICM_COMPRESS_GET_SIZE:
1865 return CompressGetSize(pi, (LPCBITMAPINFOHEADER)lParam1,
1866 (LPCBITMAPINFOHEADER)lParam2);
1867 case ICM_COMPRESS_QUERY:
1868 return CompressQuery(pi, (LPCBITMAPINFOHEADER)lParam1,
1869 (LPCBITMAPINFOHEADER)lParam2);
1870 case ICM_COMPRESS_BEGIN:
1871 return CompressBegin(pi, (LPCBITMAPINFOHEADER)lParam1,
1872 (LPCBITMAPINFOHEADER)lParam2);
1873 case ICM_COMPRESS:
1874 return Compress(pi, (ICCOMPRESS*)lParam1, (DWORD)lParam2);
1875 case ICM_COMPRESS_END:
1876 return CompressEnd(pi);
1877 case ICM_DECOMPRESS_GET_FORMAT:
1878 return DecompressGetFormat(pi, (LPCBITMAPINFOHEADER)lParam1,
1879 (LPBITMAPINFOHEADER)lParam2);
1880 case ICM_DECOMPRESS_QUERY:
1881 return DecompressQuery(pi, (LPCBITMAPINFOHEADER)lParam1,
1882 (LPCBITMAPINFOHEADER)lParam2);
1883 case ICM_DECOMPRESS_BEGIN:
1884 return DecompressBegin(pi, (LPCBITMAPINFOHEADER)lParam1,
1885 (LPCBITMAPINFOHEADER)lParam2);
1886 case ICM_DECOMPRESS:
1887 return Decompress(pi, (ICDECOMPRESS*)lParam1, (DWORD)lParam2);
1888 case ICM_DECOMPRESS_END:
1889 return DecompressEnd(pi);
1890 case ICM_DECOMPRESS_SET_PALETTE:
1891 FIXME("(...) -> SetPalette(%p,%p,%p): stub!\n", pi, (LPVOID)lParam1, (LPVOID)lParam2);
1892 return ICERR_UNSUPPORTED;
1893 case ICM_DECOMPRESS_GET_PALETTE:
1894 return DecompressGetPalette(pi, (LPBITMAPINFOHEADER)lParam1,
1895 (LPBITMAPINFOHEADER)lParam2);
1896 case ICM_GETDEFAULTKEYFRAMERATE:
1897 if ((LPVOID)lParam1 != NULL)
1898 *(LPDWORD)lParam1 = 15;
1899 return ICERR_OK;
1900 default:
1901 if (uMsg < DRV_USER)
1902 return DefDriverProc(dwDrvID, hDrv, uMsg, lParam1, lParam2);
1903 else
1904 FIXME("Unknown message uMsg=0x%08X lParam1=0x%08lX lParam2=0x%08lX\n",uMsg,lParam1,lParam2);
1905 };
1906
1907 return ICERR_UNSUPPORTED;
1908 }
1909
1910 /* DllMain - library initialization code */
1911 BOOL WINAPI DllMain(HINSTANCE hModule, DWORD dwReason, LPVOID lpReserved)
1912 {
1913 TRACE("(%p,%d,%p)\n",hModule,dwReason,lpReserved);
1914
1915 switch (dwReason) {
1916 case DLL_PROCESS_ATTACH:
1917 DisableThreadLibraryCalls(hModule);
1918 MSRLE32_hModule = hModule;
1919 break;
1920
1921 case DLL_PROCESS_DETACH:
1922 break;
1923 }
1924
1925 return TRUE;
1926 }
A free Windows-compatible Operating System