dlls/windowscodecs/jpegformat.c

   1 /*
   2  * Copyright 2009 Vincent Povirk for CodeWeavers
   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 #include "config.h"
  20 #include "wine/port.h"
  21
  22 #ifdef HAVE_UNISTD_H
  23 # include <unistd.h>
  24 #endif
  25 #include <stdarg.h>
  26 #include <stdio.h>
  27 #include <string.h>
  28 #include <setjmp.h>
  29
  30 #ifdef SONAME_LIBJPEG
  31 /* This is a hack, so jpeglib.h does not redefine INT32 and the like*/
  32 #define XMD_H
  33 #define UINT8 JPEG_UINT8
  34 #define UINT16 JPEG_UINT16
  35 #define boolean jpeg_boolean
  36 #undef HAVE_STDLIB_H
  37 # include <jpeglib.h>
  38 #undef HAVE_STDLIB_H
  39 #define HAVE_STDLIB_H 1
  40 #undef UINT8
  41 #undef UINT16
  42 #undef boolean
  43 #endif
  44
  45 #define COBJMACROS
  46
  47 #include "windef.h"
  48 #include "winbase.h"
  49 #include "objbase.h"
  50
  51 #include "wincodecs_private.h"
  52
  53 #include "wine/debug.h"
  54 #include "wine/library.h"
  55
  56 WINE_DEFAULT_DEBUG_CHANNEL(wincodecs);
  57
  58 #ifdef SONAME_LIBJPEG
  59 WINE_DECLARE_DEBUG_CHANNEL(jpeg);
  60
  61 static void *libjpeg_handle;
  62
  63 static const WCHAR wszImageQuality[] = {'I','m','a','g','e','Q','u','a','l','i','t','y',0};
  64 static const WCHAR wszBitmapTransform[] = {'B','i','t','m','a','p','T','r','a','n','s','f','o','r','m',0};
  65 static const WCHAR wszLuminance[] = {'L','u','m','i','n','a','n','c','e',0};
  66 static const WCHAR wszChrominance[] = {'C','h','r','o','m','i','n','a','n','c','e',0};
  67 static const WCHAR wszJpegYCrCbSubsampling[] = {'J','p','e','g','Y','C','r','C','b','S','u','b','s','a','m','p','l','i','n','g',0};
  68 static const WCHAR wszSuppressApp0[] = {'S','u','p','p','r','e','s','s','A','p','p','0',0};
  69
  70 #define MAKE_FUNCPTR(f) static typeof(f) * p##f
  71 MAKE_FUNCPTR(jpeg_CreateCompress);
  72 MAKE_FUNCPTR(jpeg_CreateDecompress);
  73 MAKE_FUNCPTR(jpeg_destroy_compress);
  74 MAKE_FUNCPTR(jpeg_destroy_decompress);
  75 MAKE_FUNCPTR(jpeg_finish_compress);
  76 MAKE_FUNCPTR(jpeg_read_header);
  77 MAKE_FUNCPTR(jpeg_read_scanlines);
  78 MAKE_FUNCPTR(jpeg_resync_to_restart);
  79 MAKE_FUNCPTR(jpeg_set_defaults);
  80 MAKE_FUNCPTR(jpeg_start_compress);
  81 MAKE_FUNCPTR(jpeg_start_decompress);
  82 MAKE_FUNCPTR(jpeg_std_error);
  83 MAKE_FUNCPTR(jpeg_write_scanlines);
  84 #undef MAKE_FUNCPTR
  85
  86 static void *load_libjpeg(void)
  87 {
  88     if((libjpeg_handle = wine_dlopen(SONAME_LIBJPEG, RTLD_NOW, NULL, 0)) != NULL) {
  89
  90 #define LOAD_FUNCPTR(f) \
  91     if((p##f = wine_dlsym(libjpeg_handle, #f, NULL, 0)) == NULL) { \
  92         libjpeg_handle = NULL; \
  93         return NULL; \
  94     }
  95
  96         LOAD_FUNCPTR(jpeg_CreateCompress);
  97         LOAD_FUNCPTR(jpeg_CreateDecompress);
  98         LOAD_FUNCPTR(jpeg_destroy_compress);
  99         LOAD_FUNCPTR(jpeg_destroy_decompress);
 100         LOAD_FUNCPTR(jpeg_finish_compress);
 101         LOAD_FUNCPTR(jpeg_read_header);
 102         LOAD_FUNCPTR(jpeg_read_scanlines);
 103         LOAD_FUNCPTR(jpeg_resync_to_restart);
 104         LOAD_FUNCPTR(jpeg_set_defaults);
 105         LOAD_FUNCPTR(jpeg_start_compress);
 106         LOAD_FUNCPTR(jpeg_start_decompress);
 107         LOAD_FUNCPTR(jpeg_std_error);
 108         LOAD_FUNCPTR(jpeg_write_scanlines);
 109 #undef LOAD_FUNCPTR
 110     }
 111     return libjpeg_handle;
 112 }
 113
 114 static void error_exit_fn(j_common_ptr cinfo)
 115 {
 116     char message[JMSG_LENGTH_MAX];
 117     if (ERR_ON(jpeg))
 118     {
 119         cinfo->err->format_message(cinfo, message);
 120         ERR_(jpeg)("%s\n", message);
 121     }
 122     longjmp(*(jmp_buf*)cinfo->client_data, 1);
 123 }
 124
 125 static void emit_message_fn(j_common_ptr cinfo, int msg_level)
 126 {
 127     char message[JMSG_LENGTH_MAX];
 128
 129     if (msg_level < 0 && ERR_ON(jpeg))
 130     {
 131         cinfo->err->format_message(cinfo, message);
 132         ERR_(jpeg)("%s\n", message);
 133     }
 134     else if (msg_level == 0 && WARN_ON(jpeg))
 135     {
 136         cinfo->err->format_message(cinfo, message);
 137         WARN_(jpeg)("%s\n", message);
 138     }
 139     else if (msg_level > 0 && TRACE_ON(jpeg))
 140     {
 141         cinfo->err->format_message(cinfo, message);
 142         TRACE_(jpeg)("%s\n", message);
 143     }
 144 }
 145
 146 typedef struct {
 147     IWICBitmapDecoder IWICBitmapDecoder_iface;
 148     IWICBitmapFrameDecode IWICBitmapFrameDecode_iface;
 149     IWICMetadataBlockReader IWICMetadataBlockReader_iface;
 150     LONG ref;
 151     BOOL initialized;
 152     BOOL cinfo_initialized;
 153     IStream *stream;
 154     struct jpeg_decompress_struct cinfo;
 155     struct jpeg_error_mgr jerr;
 156     struct jpeg_source_mgr source_mgr;
 157     BYTE source_buffer[1024];
 158     BYTE *image_data;
 159     CRITICAL_SECTION lock;
 160 } JpegDecoder;
 161
 162 static inline JpegDecoder *impl_from_IWICBitmapDecoder(IWICBitmapDecoder *iface)
 163 {
 164     return CONTAINING_RECORD(iface, JpegDecoder, IWICBitmapDecoder_iface);
 165 }
 166
 167 static inline JpegDecoder *impl_from_IWICBitmapFrameDecode(IWICBitmapFrameDecode *iface)
 168 {
 169     return CONTAINING_RECORD(iface, JpegDecoder, IWICBitmapFrameDecode_iface);
 170 }
 171
 172 static inline JpegDecoder *decoder_from_decompress(j_decompress_ptr decompress)
 173 {
 174     return CONTAINING_RECORD(decompress, JpegDecoder, cinfo);
 175 }
 176
 177 static inline JpegDecoder *impl_from_IWICMetadataBlockReader(IWICMetadataBlockReader *iface)
 178 {
 179     return CONTAINING_RECORD(iface, JpegDecoder, IWICMetadataBlockReader_iface);
 180 }
 181
 182 static HRESULT WINAPI JpegDecoder_QueryInterface(IWICBitmapDecoder *iface, REFIID iid,
 183     void **ppv)
 184 {
 185     JpegDecoder *This = impl_from_IWICBitmapDecoder(iface);
 186     TRACE("(%p,%s,%p)\n", iface, debugstr_guid(iid), ppv);
 187
 188     if (!ppv) return E_INVALIDARG;
 189
 190     if (IsEqualIID(&IID_IUnknown, iid) ||
 191         IsEqualIID(&IID_IWICBitmapDecoder, iid))
 192     {
 193         *ppv = &This->IWICBitmapDecoder_iface;
 194     }
 195     else
 196     {
 197         *ppv = NULL;
 198         return E_NOINTERFACE;
 199     }
 200
 201     IUnknown_AddRef((IUnknown*)*ppv);
 202     return S_OK;
 203 }
 204
 205 static ULONG WINAPI JpegDecoder_AddRef(IWICBitmapDecoder *iface)
 206 {
 207     JpegDecoder *This = impl_from_IWICBitmapDecoder(iface);
 208     ULONG ref = InterlockedIncrement(&This->ref);
 209
 210     TRACE("(%p) refcount=%u\n", iface, ref);
 211
 212     return ref;
 213 }
 214
 215 static ULONG WINAPI JpegDecoder_Release(IWICBitmapDecoder *iface)
 216 {
 217     JpegDecoder *This = impl_from_IWICBitmapDecoder(iface);
 218     ULONG ref = InterlockedDecrement(&This->ref);
 219
 220     TRACE("(%p) refcount=%u\n", iface, ref);
 221
 222     if (ref == 0)
 223     {
 224         This->lock.DebugInfo->Spare[0] = 0;
 225         DeleteCriticalSection(&This->lock);
 226         if (This->cinfo_initialized) pjpeg_destroy_decompress(&This->cinfo);
 227         if (This->stream) IStream_Release(This->stream);
 228         HeapFree(GetProcessHeap(), 0, This->image_data);
 229         HeapFree(GetProcessHeap(), 0, This);
 230     }
 231
 232     return ref;
 233 }
 234
 235 static HRESULT WINAPI JpegDecoder_QueryCapability(IWICBitmapDecoder *iface, IStream *stream,
 236     DWORD *capability)
 237 {
 238     HRESULT hr;
 239
 240     TRACE("(%p,%p,%p)\n", iface, stream, capability);
 241
 242     if (!stream || !capability) return E_INVALIDARG;
 243
 244     hr = IWICBitmapDecoder_Initialize(iface, stream, WICDecodeMetadataCacheOnDemand);
 245     if (hr != S_OK) return hr;
 246
 247     *capability = WICBitmapDecoderCapabilityCanDecodeAllImages |
 248                   WICBitmapDecoderCapabilityCanDecodeSomeImages;
 249     /* FIXME: WICBitmapDecoderCapabilityCanEnumerateMetadata */
 250     return S_OK;
 251 }
 252
 253 static void source_mgr_init_source(j_decompress_ptr cinfo)
 254 {
 255 }
 256
 257 static jpeg_boolean source_mgr_fill_input_buffer(j_decompress_ptr cinfo)
 258 {
 259     JpegDecoder *This = decoder_from_decompress(cinfo);
 260     HRESULT hr;
 261     ULONG bytesread;
 262
 263     hr = IStream_Read(This->stream, This->source_buffer, 1024, &bytesread);
 264
 265     if (FAILED(hr) || bytesread == 0)
 266     {
 267         return FALSE;
 268     }
 269     else
 270     {
 271         This->source_mgr.next_input_byte = This->source_buffer;
 272         This->source_mgr.bytes_in_buffer = bytesread;
 273         return TRUE;
 274     }
 275 }
 276
 277 static void source_mgr_skip_input_data(j_decompress_ptr cinfo, long num_bytes)
 278 {
 279     JpegDecoder *This = decoder_from_decompress(cinfo);
 280     LARGE_INTEGER seek;
 281
 282     if (num_bytes > This->source_mgr.bytes_in_buffer)
 283     {
 284         seek.QuadPart = num_bytes - This->source_mgr.bytes_in_buffer;
 285         IStream_Seek(This->stream, seek, STREAM_SEEK_CUR, NULL);
 286         This->source_mgr.bytes_in_buffer = 0;
 287     }
 288     else if (num_bytes > 0)
 289     {
 290         This->source_mgr.next_input_byte += num_bytes;
 291         This->source_mgr.bytes_in_buffer -= num_bytes;
 292     }
 293 }
 294
 295 static void source_mgr_term_source(j_decompress_ptr cinfo)
 296 {
 297 }
 298
 299 static HRESULT WINAPI JpegDecoder_Initialize(IWICBitmapDecoder *iface, IStream *pIStream,
 300     WICDecodeOptions cacheOptions)
 301 {
 302     JpegDecoder *This = impl_from_IWICBitmapDecoder(iface);
 303     int ret;
 304     LARGE_INTEGER seek;
 305     jmp_buf jmpbuf;
 306     TRACE("(%p,%p,%u)\n", iface, pIStream, cacheOptions);
 307
 308     EnterCriticalSection(&This->lock);
 309
 310     if (This->cinfo_initialized)
 311     {
 312         LeaveCriticalSection(&This->lock);
 313         return WINCODEC_ERR_WRONGSTATE;
 314     }
 315
 316     pjpeg_std_error(&This->jerr);
 317
 318     This->jerr.error_exit = error_exit_fn;
 319     This->jerr.emit_message = emit_message_fn;
 320
 321     This->cinfo.err = &This->jerr;
 322
 323     This->cinfo.client_data = jmpbuf;
 324
 325     if (setjmp(jmpbuf))
 326     {
 327         LeaveCriticalSection(&This->lock);
 328         return E_FAIL;
 329     }
 330
 331     pjpeg_CreateDecompress(&This->cinfo, JPEG_LIB_VERSION, sizeof(struct jpeg_decompress_struct));
 332
 333     This->cinfo_initialized = TRUE;
 334
 335     This->stream = pIStream;
 336     IStream_AddRef(pIStream);
 337
 338     seek.QuadPart = 0;
 339     IStream_Seek(This->stream, seek, STREAM_SEEK_SET, NULL);
 340
 341     This->source_mgr.bytes_in_buffer = 0;
 342     This->source_mgr.init_source = source_mgr_init_source;
 343     This->source_mgr.fill_input_buffer = source_mgr_fill_input_buffer;
 344     This->source_mgr.skip_input_data = source_mgr_skip_input_data;
 345     This->source_mgr.resync_to_restart = pjpeg_resync_to_restart;
 346     This->source_mgr.term_source = source_mgr_term_source;
 347
 348     This->cinfo.src = &This->source_mgr;
 349
 350     ret = pjpeg_read_header(&This->cinfo, TRUE);
 351
 352     if (ret != JPEG_HEADER_OK) {
 353         WARN("Jpeg image in stream has bad format, read header returned %d.\n",ret);
 354         LeaveCriticalSection(&This->lock);
 355         return E_FAIL;
 356     }
 357
 358     switch (This->cinfo.jpeg_color_space)
 359     {
 360     case JCS_GRAYSCALE:
 361         This->cinfo.out_color_space = JCS_GRAYSCALE;
 362         break;
 363     case JCS_RGB:
 364     case JCS_YCbCr:
 365         This->cinfo.out_color_space = JCS_RGB;
 366         break;
 367     case JCS_CMYK:
 368     case JCS_YCCK:
 369         This->cinfo.out_color_space = JCS_CMYK;
 370         break;
 371     default:
 372         ERR("Unknown JPEG color space %i\n", This->cinfo.jpeg_color_space);
 373         LeaveCriticalSection(&This->lock);
 374         return E_FAIL;
 375     }
 376
 377     if (!pjpeg_start_decompress(&This->cinfo))
 378     {
 379         ERR("jpeg_start_decompress failed\n");
 380         LeaveCriticalSection(&This->lock);
 381         return E_FAIL;
 382     }
 383
 384     This->initialized = TRUE;
 385
 386     LeaveCriticalSection(&This->lock);
 387
 388     return S_OK;
 389 }
 390
 391 static HRESULT WINAPI JpegDecoder_GetContainerFormat(IWICBitmapDecoder *iface,
 392     GUID *pguidContainerFormat)
 393 {
 394     memcpy(pguidContainerFormat, &GUID_ContainerFormatJpeg, sizeof(GUID));
 395     return S_OK;
 396 }
 397
 398 static HRESULT WINAPI JpegDecoder_GetDecoderInfo(IWICBitmapDecoder *iface,
 399     IWICBitmapDecoderInfo **ppIDecoderInfo)
 400 {
 401     TRACE("(%p,%p)\n", iface, ppIDecoderInfo);
 402
 403     return get_decoder_info(&CLSID_WICJpegDecoder, ppIDecoderInfo);
 404 }
 405
 406 static HRESULT WINAPI JpegDecoder_CopyPalette(IWICBitmapDecoder *iface,
 407     IWICPalette *pIPalette)
 408 {
 409     TRACE("(%p,%p)\n", iface, pIPalette);
 410
 411     return WINCODEC_ERR_PALETTEUNAVAILABLE;
 412 }
 413
 414 static HRESULT WINAPI JpegDecoder_GetMetadataQueryReader(IWICBitmapDecoder *iface,
 415     IWICMetadataQueryReader **ppIMetadataQueryReader)
 416 {
 417     FIXME("(%p,%p): stub\n", iface, ppIMetadataQueryReader);
 418     return E_NOTIMPL;
 419 }
 420
 421 static HRESULT WINAPI JpegDecoder_GetPreview(IWICBitmapDecoder *iface,
 422     IWICBitmapSource **ppIBitmapSource)
 423 {
 424     FIXME("(%p,%p): stub\n", iface, ppIBitmapSource);
 425     return WINCODEC_ERR_UNSUPPORTEDOPERATION;
 426 }
 427
 428 static HRESULT WINAPI JpegDecoder_GetColorContexts(IWICBitmapDecoder *iface,
 429     UINT cCount, IWICColorContext **ppIColorContexts, UINT *pcActualCount)
 430 {
 431     FIXME("(%p,%u,%p,%p): stub\n", iface, cCount, ppIColorContexts, pcActualCount);
 432     return WINCODEC_ERR_UNSUPPORTEDOPERATION;
 433 }
 434
 435 static HRESULT WINAPI JpegDecoder_GetThumbnail(IWICBitmapDecoder *iface,
 436     IWICBitmapSource **ppIThumbnail)
 437 {
 438     FIXME("(%p,%p): stub\n", iface, ppIThumbnail);
 439     return WINCODEC_ERR_CODECNOTHUMBNAIL;
 440 }
 441
 442 static HRESULT WINAPI JpegDecoder_GetFrameCount(IWICBitmapDecoder *iface,
 443     UINT *pCount)
 444 {
 445     if (!pCount) return E_INVALIDARG;
 446
 447     *pCount = 1;
 448     return S_OK;
 449 }
 450
 451 static HRESULT WINAPI JpegDecoder_GetFrame(IWICBitmapDecoder *iface,
 452     UINT index, IWICBitmapFrameDecode **ppIBitmapFrame)
 453 {
 454     JpegDecoder *This = impl_from_IWICBitmapDecoder(iface);
 455     TRACE("(%p,%u,%p)\n", iface, index, ppIBitmapFrame);
 456
 457     if (!This->initialized) return WINCODEC_ERR_FRAMEMISSING;
 458
 459     if (index != 0) return E_INVALIDARG;
 460
 461     IWICBitmapDecoder_AddRef(iface);
 462     *ppIBitmapFrame = &This->IWICBitmapFrameDecode_iface;
 463
 464     return S_OK;
 465 }
 466
 467 static const IWICBitmapDecoderVtbl JpegDecoder_Vtbl = {
 468     JpegDecoder_QueryInterface,
 469     JpegDecoder_AddRef,
 470     JpegDecoder_Release,
 471     JpegDecoder_QueryCapability,
 472     JpegDecoder_Initialize,
 473     JpegDecoder_GetContainerFormat,
 474     JpegDecoder_GetDecoderInfo,
 475     JpegDecoder_CopyPalette,
 476     JpegDecoder_GetMetadataQueryReader,
 477     JpegDecoder_GetPreview,
 478     JpegDecoder_GetColorContexts,
 479     JpegDecoder_GetThumbnail,
 480     JpegDecoder_GetFrameCount,
 481     JpegDecoder_GetFrame
 482 };
 483
 484 static HRESULT WINAPI JpegDecoder_Frame_QueryInterface(IWICBitmapFrameDecode *iface, REFIID iid,
 485     void **ppv)
 486 {
 487     JpegDecoder *This = impl_from_IWICBitmapFrameDecode(iface);
 488
 489     TRACE("(%p,%s,%p)\n", iface, debugstr_guid(iid), ppv);
 490
 491     if (!ppv) return E_INVALIDARG;
 492
 493     if (IsEqualIID(&IID_IUnknown, iid) ||
 494         IsEqualIID(&IID_IWICBitmapSource, iid) ||
 495         IsEqualIID(&IID_IWICBitmapFrameDecode, iid))
 496     {
 497         *ppv = &This->IWICBitmapFrameDecode_iface;
 498     }
 499     else
 500     {
 501         *ppv = NULL;
 502         return E_NOINTERFACE;
 503     }
 504
 505     IUnknown_AddRef((IUnknown*)*ppv);
 506     return S_OK;
 507 }
 508
 509 static ULONG WINAPI JpegDecoder_Frame_AddRef(IWICBitmapFrameDecode *iface)
 510 {
 511     JpegDecoder *This = impl_from_IWICBitmapFrameDecode(iface);
 512     return IWICBitmapDecoder_AddRef(&This->IWICBitmapDecoder_iface);
 513 }
 514
 515 static ULONG WINAPI JpegDecoder_Frame_Release(IWICBitmapFrameDecode *iface)
 516 {
 517     JpegDecoder *This = impl_from_IWICBitmapFrameDecode(iface);
 518     return IWICBitmapDecoder_Release(&This->IWICBitmapDecoder_iface);
 519 }
 520
 521 static HRESULT WINAPI JpegDecoder_Frame_GetSize(IWICBitmapFrameDecode *iface,
 522     UINT *puiWidth, UINT *puiHeight)
 523 {
 524     JpegDecoder *This = impl_from_IWICBitmapFrameDecode(iface);
 525     *puiWidth = This->cinfo.output_width;
 526     *puiHeight = This->cinfo.output_height;
 527     TRACE("(%p)->(%u,%u)\n", iface, *puiWidth, *puiHeight);
 528     return S_OK;
 529 }
 530
 531 static HRESULT WINAPI JpegDecoder_Frame_GetPixelFormat(IWICBitmapFrameDecode *iface,
 532     WICPixelFormatGUID *pPixelFormat)
 533 {
 534     JpegDecoder *This = impl_from_IWICBitmapFrameDecode(iface);
 535     TRACE("(%p,%p)\n", iface, pPixelFormat);
 536     if (This->cinfo.out_color_space == JCS_RGB)
 537         memcpy(pPixelFormat, &GUID_WICPixelFormat24bppBGR, sizeof(GUID));
 538     else if (This->cinfo.out_color_space == JCS_CMYK)
 539         memcpy(pPixelFormat, &GUID_WICPixelFormat32bppCMYK, sizeof(GUID));
 540     else /* This->cinfo.out_color_space == JCS_GRAYSCALE */
 541         memcpy(pPixelFormat, &GUID_WICPixelFormat8bppGray, sizeof(GUID));
 542     return S_OK;
 543 }
 544
 545 static HRESULT WINAPI JpegDecoder_Frame_GetResolution(IWICBitmapFrameDecode *iface,
 546     double *pDpiX, double *pDpiY)
 547 {
 548     JpegDecoder *This = impl_from_IWICBitmapFrameDecode(iface);
 549
 550     EnterCriticalSection(&This->lock);
 551
 552     switch (This->cinfo.density_unit)
 553     {
 554     case 2: /* pixels per centimeter */
 555         *pDpiX = This->cinfo.X_density * 2.54;
 556         *pDpiY = This->cinfo.Y_density * 2.54;
 557         break;
 558
 559     case 1: /* pixels per inch */
 560         *pDpiX = This->cinfo.X_density;
 561         *pDpiY = This->cinfo.Y_density;
 562         break;
 563
 564     case 0: /* unknown */
 565     default:
 566         *pDpiX = 96.0;
 567         *pDpiY = 96.0;
 568         break;
 569     }
 570
 571     LeaveCriticalSection(&This->lock);
 572
 573     TRACE("(%p)->(%0.2f,%0.2f)\n", iface, *pDpiX, *pDpiY);
 574
 575     return S_OK;
 576 }
 577
 578 static HRESULT WINAPI JpegDecoder_Frame_CopyPalette(IWICBitmapFrameDecode *iface,
 579     IWICPalette *pIPalette)
 580 {
 581     FIXME("(%p,%p): stub\n", iface, pIPalette);
 582     return E_NOTIMPL;
 583 }
 584
 585 static HRESULT WINAPI JpegDecoder_Frame_CopyPixels(IWICBitmapFrameDecode *iface,
 586     const WICRect *prc, UINT cbStride, UINT cbBufferSize, BYTE *pbBuffer)
 587 {
 588     JpegDecoder *This = impl_from_IWICBitmapFrameDecode(iface);
 589     UINT bpp;
 590     UINT stride;
 591     UINT data_size;
 592     UINT max_row_needed;
 593     jmp_buf jmpbuf;
 594     WICRect rect;
 595     TRACE("(%p,%s,%u,%u,%p)\n", iface, debug_wic_rect(prc), cbStride, cbBufferSize, pbBuffer);
 596
 597     if (!prc)
 598     {
 599         rect.X = 0;
 600         rect.Y = 0;
 601         rect.Width = This->cinfo.output_width;
 602         rect.Height = This->cinfo.output_height;
 603         prc = &rect;
 604     }
 605     else
 606     {
 607         if (prc->X < 0 || prc->Y < 0 || prc->X+prc->Width > This->cinfo.output_width ||
 608             prc->Y+prc->Height > This->cinfo.output_height)
 609             return E_INVALIDARG;
 610     }
 611
 612     if (This->cinfo.out_color_space == JCS_GRAYSCALE) bpp = 8;
 613     else if (This->cinfo.out_color_space == JCS_CMYK) bpp = 32;
 614     else bpp = 24;
 615
 616     stride = (bpp * This->cinfo.output_width + 7) / 8;
 617     data_size = stride * This->cinfo.output_height;
 618
 619     max_row_needed = prc->Y + prc->Height;
 620     if (max_row_needed > This->cinfo.output_height) return E_INVALIDARG;
 621
 622     EnterCriticalSection(&This->lock);
 623
 624     if (!This->image_data)
 625     {
 626         This->image_data = HeapAlloc(GetProcessHeap(), 0, data_size);
 627         if (!This->image_data)
 628         {
 629             LeaveCriticalSection(&This->lock);
 630             return E_OUTOFMEMORY;
 631         }
 632     }
 633
 634     This->cinfo.client_data = jmpbuf;
 635
 636     if (setjmp(jmpbuf))
 637     {
 638         LeaveCriticalSection(&This->lock);
 639         return E_FAIL;
 640     }
 641
 642     while (max_row_needed > This->cinfo.output_scanline)
 643     {
 644         UINT first_scanline = This->cinfo.output_scanline;
 645         UINT max_rows;
 646         JSAMPROW out_rows[4];
 647         UINT i;
 648         JDIMENSION ret;
 649
 650         max_rows = min(This->cinfo.output_height-first_scanline, 4);
 651         for (i=0; i<max_rows; i++)
 652             out_rows[i] = This->image_data + stride * (first_scanline+i);
 653
 654         ret = pjpeg_read_scanlines(&This->cinfo, out_rows, max_rows);
 655
 656         if (ret == 0)
 657         {
 658             ERR("read_scanlines failed\n");
 659             LeaveCriticalSection(&This->lock);
 660             return E_FAIL;
 661         }
 662
 663         if (bpp == 24)
 664         {
 665             /* libjpeg gives us RGB data and we want BGR, so byteswap the data */
 666             reverse_bgr8(3, This->image_data + stride * first_scanline,
 667                 This->cinfo.output_width, This->cinfo.output_scanline - first_scanline,
 668                 stride);
 669         }
 670
 671         if (This->cinfo.out_color_space == JCS_CMYK && This->cinfo.saw_Adobe_marker)
 672         {
 673             DWORD *pDwordData = (DWORD*) (This->image_data + stride * first_scanline);
 674             DWORD *pDwordDataEnd = (DWORD*) (This->image_data + This->cinfo.output_scanline * stride);
 675
 676             /* Adobe JPEG's have inverted CMYK data. */
 677             while(pDwordData < pDwordDataEnd)
 678                 *pDwordData++ ^= 0xffffffff;
 679         }
 680
 681     }
 682
 683     LeaveCriticalSection(&This->lock);
 684
 685     return copy_pixels(bpp, This->image_data,
 686         This->cinfo.output_width, This->cinfo.output_height, stride,
 687         prc, cbStride, cbBufferSize, pbBuffer);
 688 }
 689
 690 static HRESULT WINAPI JpegDecoder_Frame_GetMetadataQueryReader(IWICBitmapFrameDecode *iface,
 691     IWICMetadataQueryReader **ppIMetadataQueryReader)
 692 {
 693     JpegDecoder *This = impl_from_IWICBitmapFrameDecode(iface);
 694
 695     TRACE("(%p,%p)\n", iface, ppIMetadataQueryReader);
 696
 697     if (!ppIMetadataQueryReader)
 698         return E_INVALIDARG;
 699
 700     return MetadataQueryReader_CreateInstance(&This->IWICMetadataBlockReader_iface, NULL, ppIMetadataQueryReader);
 701 }
 702
 703 static HRESULT WINAPI JpegDecoder_Frame_GetColorContexts(IWICBitmapFrameDecode *iface,
 704     UINT cCount, IWICColorContext **ppIColorContexts, UINT *pcActualCount)
 705 {
 706     FIXME("(%p,%u,%p,%p): stub\n", iface, cCount, ppIColorContexts, pcActualCount);
 707     return WINCODEC_ERR_UNSUPPORTEDOPERATION;
 708 }
 709
 710 static HRESULT WINAPI JpegDecoder_Frame_GetThumbnail(IWICBitmapFrameDecode *iface,
 711     IWICBitmapSource **ppIThumbnail)
 712 {
 713     FIXME("(%p,%p): stub\n", iface, ppIThumbnail);
 714     return WINCODEC_ERR_CODECNOTHUMBNAIL;
 715 }
 716
 717 static const IWICBitmapFrameDecodeVtbl JpegDecoder_Frame_Vtbl = {
 718     JpegDecoder_Frame_QueryInterface,
 719     JpegDecoder_Frame_AddRef,
 720     JpegDecoder_Frame_Release,
 721     JpegDecoder_Frame_GetSize,
 722     JpegDecoder_Frame_GetPixelFormat,
 723     JpegDecoder_Frame_GetResolution,
 724     JpegDecoder_Frame_CopyPalette,
 725     JpegDecoder_Frame_CopyPixels,
 726     JpegDecoder_Frame_GetMetadataQueryReader,
 727     JpegDecoder_Frame_GetColorContexts,
 728     JpegDecoder_Frame_GetThumbnail
 729 };
 730
 731 static HRESULT WINAPI JpegDecoder_Block_QueryInterface(IWICMetadataBlockReader *iface, REFIID iid,
 732     void **ppv)
 733 {
 734     JpegDecoder *This = impl_from_IWICMetadataBlockReader(iface);
 735     return IWICBitmapFrameDecode_QueryInterface(&This->IWICBitmapFrameDecode_iface, iid, ppv);
 736 }
 737
 738 static ULONG WINAPI JpegDecoder_Block_AddRef(IWICMetadataBlockReader *iface)
 739 {
 740     JpegDecoder *This = impl_from_IWICMetadataBlockReader(iface);
 741     return IWICBitmapDecoder_AddRef(&This->IWICBitmapDecoder_iface);
 742 }
 743
 744 static ULONG WINAPI JpegDecoder_Block_Release(IWICMetadataBlockReader *iface)
 745 {
 746     JpegDecoder *This = impl_from_IWICMetadataBlockReader(iface);
 747     return IWICBitmapDecoder_Release(&This->IWICBitmapDecoder_iface);
 748 }
 749
 750 static HRESULT WINAPI JpegDecoder_Block_GetContainerFormat(IWICMetadataBlockReader *iface,
 751     GUID *pguidContainerFormat)
 752 {
 753     TRACE("%p,%p\n", iface, pguidContainerFormat);
 754
 755     if (!pguidContainerFormat) return E_INVALIDARG;
 756
 757     memcpy(pguidContainerFormat, &GUID_ContainerFormatJpeg, sizeof(GUID));
 758
 759     return S_OK;
 760 }
 761
 762 static HRESULT WINAPI JpegDecoder_Block_GetCount(IWICMetadataBlockReader *iface,
 763     UINT *pcCount)
 764 {
 765     FIXME("%p,%p\n", iface, pcCount);
 766
 767     if (!pcCount) return E_INVALIDARG;
 768
 769     *pcCount = 0;
 770
 771     return S_OK;
 772 }
 773
 774 static HRESULT WINAPI JpegDecoder_Block_GetReaderByIndex(IWICMetadataBlockReader *iface,
 775     UINT nIndex, IWICMetadataReader **ppIMetadataReader)
 776 {
 777     FIXME("%p,%d,%p\n", iface, nIndex, ppIMetadataReader);
 778     return E_INVALIDARG;
 779 }
 780
 781 static HRESULT WINAPI JpegDecoder_Block_GetEnumerator(IWICMetadataBlockReader *iface,
 782     IEnumUnknown **ppIEnumMetadata)
 783 {
 784     FIXME("%p,%p\n", iface, ppIEnumMetadata);
 785     return E_NOTIMPL;
 786 }
 787
 788 static const IWICMetadataBlockReaderVtbl JpegDecoder_Block_Vtbl = {
 789     JpegDecoder_Block_QueryInterface,
 790     JpegDecoder_Block_AddRef,
 791     JpegDecoder_Block_Release,
 792     JpegDecoder_Block_GetContainerFormat,
 793     JpegDecoder_Block_GetCount,
 794     JpegDecoder_Block_GetReaderByIndex,
 795     JpegDecoder_Block_GetEnumerator,
 796 };
 797
 798 HRESULT JpegDecoder_CreateInstance(REFIID iid, void** ppv)
 799 {
 800     JpegDecoder *This;
 801     HRESULT ret;
 802
 803     TRACE("(%s,%p)\n", debugstr_guid(iid), ppv);
 804
 805     if (!libjpeg_handle && !load_libjpeg())
 806     {
 807         ERR("Failed reading JPEG because unable to find %s\n", SONAME_LIBJPEG);
 808         return E_FAIL;
 809     }
 810
 811     *ppv = NULL;
 812
 813     This = HeapAlloc(GetProcessHeap(), 0, sizeof(JpegDecoder));
 814     if (!This) return E_OUTOFMEMORY;
 815
 816     This->IWICBitmapDecoder_iface.lpVtbl = &JpegDecoder_Vtbl;
 817     This->IWICBitmapFrameDecode_iface.lpVtbl = &JpegDecoder_Frame_Vtbl;
 818     This->IWICMetadataBlockReader_iface.lpVtbl = &JpegDecoder_Block_Vtbl;
 819     This->ref = 1;
 820     This->initialized = FALSE;
 821     This->cinfo_initialized = FALSE;
 822     This->stream = NULL;
 823     This->image_data = NULL;
 824     InitializeCriticalSection(&This->lock);
 825     This->lock.DebugInfo->Spare[0] = (DWORD_PTR)(__FILE__ ": JpegDecoder.lock");
 826
 827     ret = IWICBitmapDecoder_QueryInterface(&This->IWICBitmapDecoder_iface, iid, ppv);
 828     IWICBitmapDecoder_Release(&This->IWICBitmapDecoder_iface);
 829
 830     return ret;
 831 }
 832
 833 typedef struct jpeg_compress_format {
 834     const WICPixelFormatGUID *guid;
 835     int bpp;
 836     int num_components;
 837     J_COLOR_SPACE color_space;
 838     int swap_rgb;
 839 } jpeg_compress_format;
 840
 841 static const jpeg_compress_format compress_formats[] = {
 842     { &GUID_WICPixelFormat24bppBGR, 24, 3, JCS_RGB, 1 },
 843     { &GUID_WICPixelFormat32bppCMYK, 32, 4, JCS_CMYK },
 844     { &GUID_WICPixelFormat8bppGray, 8, 1, JCS_GRAYSCALE },
 845     { 0 }
 846 };
 847
 848 typedef struct JpegEncoder {
 849     IWICBitmapEncoder IWICBitmapEncoder_iface;
 850     IWICBitmapFrameEncode IWICBitmapFrameEncode_iface;
 851     LONG ref;
 852     struct jpeg_compress_struct cinfo;
 853     struct jpeg_error_mgr jerr;
 854     struct jpeg_destination_mgr dest_mgr;
 855     BOOL initialized;
 856     int frame_count;
 857     BOOL frame_initialized;
 858     BOOL started_compress;
 859     int lines_written;
 860     BOOL frame_committed;
 861     BOOL committed;
 862     UINT width, height;
 863     double xres, yres;
 864     const jpeg_compress_format *format;
 865     IStream *stream;
 866     WICColor palette[256];
 867     UINT colors;
 868     CRITICAL_SECTION lock;
 869     BYTE dest_buffer[1024];
 870 } JpegEncoder;
 871
 872 static inline JpegEncoder *impl_from_IWICBitmapEncoder(IWICBitmapEncoder *iface)
 873 {
 874     return CONTAINING_RECORD(iface, JpegEncoder, IWICBitmapEncoder_iface);
 875 }
 876
 877 static inline JpegEncoder *impl_from_IWICBitmapFrameEncode(IWICBitmapFrameEncode *iface)
 878 {
 879     return CONTAINING_RECORD(iface, JpegEncoder, IWICBitmapFrameEncode_iface);
 880 }
 881
 882 static inline JpegEncoder *encoder_from_compress(j_compress_ptr compress)
 883 {
 884     return CONTAINING_RECORD(compress, JpegEncoder, cinfo);
 885 }
 886
 887 static void dest_mgr_init_destination(j_compress_ptr cinfo)
 888 {
 889     JpegEncoder *This = encoder_from_compress(cinfo);
 890
 891     This->dest_mgr.next_output_byte = This->dest_buffer;
 892     This->dest_mgr.free_in_buffer = sizeof(This->dest_buffer);
 893 }
 894
 895 static jpeg_boolean dest_mgr_empty_output_buffer(j_compress_ptr cinfo)
 896 {
 897     JpegEncoder *This = encoder_from_compress(cinfo);
 898     HRESULT hr;
 899     ULONG byteswritten;
 900
 901     hr = IStream_Write(This->stream, This->dest_buffer,
 902         sizeof(This->dest_buffer), &byteswritten);
 903
 904     if (hr != S_OK || byteswritten == 0)
 905     {
 906         ERR("Failed writing data, hr=%x\n", hr);
 907         return FALSE;
 908     }
 909
 910     This->dest_mgr.next_output_byte = This->dest_buffer;
 911     This->dest_mgr.free_in_buffer = sizeof(This->dest_buffer);
 912     return TRUE;
 913 }
 914
 915 static void dest_mgr_term_destination(j_compress_ptr cinfo)
 916 {
 917     JpegEncoder *This = encoder_from_compress(cinfo);
 918     ULONG byteswritten;
 919     HRESULT hr;
 920
 921     if (This->dest_mgr.free_in_buffer != sizeof(This->dest_buffer))
 922     {
 923         hr = IStream_Write(This->stream, This->dest_buffer,
 924             sizeof(This->dest_buffer) - This->dest_mgr.free_in_buffer, &byteswritten);
 925
 926         if (hr != S_OK || byteswritten == 0)
 927             ERR("Failed writing data, hr=%x\n", hr);
 928     }
 929 }
 930
 931 static HRESULT WINAPI JpegEncoder_Frame_QueryInterface(IWICBitmapFrameEncode *iface, REFIID iid,
 932     void **ppv)
 933 {
 934     JpegEncoder *This = impl_from_IWICBitmapFrameEncode(iface);
 935     TRACE("(%p,%s,%p)\n", iface, debugstr_guid(iid), ppv);
 936
 937     if (!ppv) return E_INVALIDARG;
 938
 939     if (IsEqualIID(&IID_IUnknown, iid) ||
 940         IsEqualIID(&IID_IWICBitmapFrameEncode, iid))
 941     {
 942         *ppv = &This->IWICBitmapFrameEncode_iface;
 943     }
 944     else
 945     {
 946         *ppv = NULL;
 947         return E_NOINTERFACE;
 948     }
 949
 950     IUnknown_AddRef((IUnknown*)*ppv);
 951     return S_OK;
 952 }
 953
 954 static ULONG WINAPI JpegEncoder_Frame_AddRef(IWICBitmapFrameEncode *iface)
 955 {
 956     JpegEncoder *This = impl_from_IWICBitmapFrameEncode(iface);
 957     return IWICBitmapEncoder_AddRef(&This->IWICBitmapEncoder_iface);
 958 }
 959
 960 static ULONG WINAPI JpegEncoder_Frame_Release(IWICBitmapFrameEncode *iface)
 961 {
 962     JpegEncoder *This = impl_from_IWICBitmapFrameEncode(iface);
 963     return IWICBitmapEncoder_Release(&This->IWICBitmapEncoder_iface);
 964 }
 965
 966 static HRESULT WINAPI JpegEncoder_Frame_Initialize(IWICBitmapFrameEncode *iface,
 967     IPropertyBag2 *pIEncoderOptions)
 968 {
 969     JpegEncoder *This = impl_from_IWICBitmapFrameEncode(iface);
 970     TRACE("(%p,%p)\n", iface, pIEncoderOptions);
 971
 972     EnterCriticalSection(&This->lock);
 973
 974     if (This->frame_initialized)
 975     {
 976         LeaveCriticalSection(&This->lock);
 977         return WINCODEC_ERR_WRONGSTATE;
 978     }
 979
 980     This->frame_initialized = TRUE;
 981
 982     LeaveCriticalSection(&This->lock);
 983
 984     return S_OK;
 985 }
 986
 987 static HRESULT WINAPI JpegEncoder_Frame_SetSize(IWICBitmapFrameEncode *iface,
 988     UINT uiWidth, UINT uiHeight)
 989 {
 990     JpegEncoder *This = impl_from_IWICBitmapFrameEncode(iface);
 991     TRACE("(%p,%u,%u)\n", iface, uiWidth, uiHeight);
 992
 993     EnterCriticalSection(&This->lock);
 994
 995     if (!This->frame_initialized || This->started_compress)
 996     {
 997         LeaveCriticalSection(&This->lock);
 998         return WINCODEC_ERR_WRONGSTATE;
 999     }
1000
1001     This->width = uiWidth;
1002     This->height = uiHeight;
1003
1004     LeaveCriticalSection(&This->lock);
1005
1006     return S_OK;
1007 }
1008
1009 static HRESULT WINAPI JpegEncoder_Frame_SetResolution(IWICBitmapFrameEncode *iface,
1010     double dpiX, double dpiY)
1011 {
1012     JpegEncoder *This = impl_from_IWICBitmapFrameEncode(iface);
1013     TRACE("(%p,%0.2f,%0.2f)\n", iface, dpiX, dpiY);
1014
1015     EnterCriticalSection(&This->lock);
1016
1017     if (!This->frame_initialized || This->started_compress)
1018     {
1019         LeaveCriticalSection(&This->lock);
1020         return WINCODEC_ERR_WRONGSTATE;
1021     }
1022
1023     This->xres = dpiX;
1024     This->yres = dpiY;
1025
1026     LeaveCriticalSection(&This->lock);
1027
1028     return S_OK;
1029 }
1030
1031 static HRESULT WINAPI JpegEncoder_Frame_SetPixelFormat(IWICBitmapFrameEncode *iface,
1032     WICPixelFormatGUID *pPixelFormat)
1033 {
1034     JpegEncoder *This = impl_from_IWICBitmapFrameEncode(iface);
1035     int i;
1036     TRACE("(%p,%s)\n", iface, debugstr_guid(pPixelFormat));
1037
1038     EnterCriticalSection(&This->lock);
1039
1040     if (!This->frame_initialized || This->started_compress)
1041     {
1042         LeaveCriticalSection(&This->lock);
1043         return WINCODEC_ERR_WRONGSTATE;
1044     }
1045
1046     for (i=0; compress_formats[i].guid; i++)
1047     {
1048         if (memcmp(compress_formats[i].guid, pPixelFormat, sizeof(GUID)) == 0)
1049             break;
1050     }
1051
1052     if (!compress_formats[i].guid) i = 0;
1053
1054     This->format = &compress_formats[i];
1055     memcpy(pPixelFormat, This->format->guid, sizeof(GUID));
1056
1057     LeaveCriticalSection(&This->lock);
1058
1059     return S_OK;
1060 }
1061
1062 static HRESULT WINAPI JpegEncoder_Frame_SetColorContexts(IWICBitmapFrameEncode *iface,
1063     UINT cCount, IWICColorContext **ppIColorContext)
1064 {
1065     FIXME("(%p,%u,%p): stub\n", iface, cCount, ppIColorContext);
1066     return E_NOTIMPL;
1067 }
1068
1069 static HRESULT WINAPI JpegEncoder_Frame_SetPalette(IWICBitmapFrameEncode *iface,
1070     IWICPalette *palette)
1071 {
1072     JpegEncoder *This = impl_from_IWICBitmapFrameEncode(iface);
1073     HRESULT hr;
1074
1075     TRACE("(%p,%p)\n", iface, palette);
1076
1077     if (!palette) return E_INVALIDARG;
1078
1079     EnterCriticalSection(&This->lock);
1080
1081     if (This->frame_initialized)
1082         hr = IWICPalette_GetColors(palette, 256, This->palette, &This->colors);
1083     else
1084         hr = WINCODEC_ERR_NOTINITIALIZED;
1085
1086     LeaveCriticalSection(&This->lock);
1087     return hr;
1088 }
1089
1090 static HRESULT WINAPI JpegEncoder_Frame_SetThumbnail(IWICBitmapFrameEncode *iface,
1091     IWICBitmapSource *pIThumbnail)
1092 {
1093     FIXME("(%p,%p): stub\n", iface, pIThumbnail);
1094     return WINCODEC_ERR_UNSUPPORTEDOPERATION;
1095 }
1096
1097 static HRESULT WINAPI JpegEncoder_Frame_WritePixels(IWICBitmapFrameEncode *iface,
1098     UINT lineCount, UINT cbStride, UINT cbBufferSize, BYTE *pbPixels)
1099 {
1100     JpegEncoder *This = impl_from_IWICBitmapFrameEncode(iface);
1101     jmp_buf jmpbuf;
1102     BYTE *swapped_data = NULL, *current_row;
1103     UINT line;
1104     int row_size;
1105     TRACE("(%p,%u,%u,%u,%p)\n", iface, lineCount, cbStride, cbBufferSize, pbPixels);
1106
1107     EnterCriticalSection(&This->lock);
1108
1109     if (!This->frame_initialized || !This->width || !This->height || !This->format)
1110     {
1111         LeaveCriticalSection(&This->lock);
1112         return WINCODEC_ERR_WRONGSTATE;
1113     }
1114
1115     if (lineCount == 0 || lineCount + This->lines_written > This->height)
1116     {
1117         LeaveCriticalSection(&This->lock);
1118         return E_INVALIDARG;
1119     }
1120
1121     /* set up setjmp/longjmp error handling */
1122     if (setjmp(jmpbuf))
1123     {
1124         LeaveCriticalSection(&This->lock);
1125         HeapFree(GetProcessHeap(), 0, swapped_data);
1126         return E_FAIL;
1127     }
1128     This->cinfo.client_data = jmpbuf;
1129
1130     if (!This->started_compress)
1131     {
1132         This->cinfo.image_width = This->width;
1133         This->cinfo.image_height = This->height;
1134         This->cinfo.input_components = This->format->num_components;
1135         This->cinfo.in_color_space = This->format->color_space;
1136
1137         pjpeg_set_defaults(&This->cinfo);
1138
1139         if (This->xres != 0.0 && This->yres != 0.0)
1140         {
1141             This->cinfo.density_unit = 1; /* dots per inch */
1142             This->cinfo.X_density = This->xres;
1143             This->cinfo.Y_density = This->yres;
1144         }
1145
1146         pjpeg_start_compress(&This->cinfo, TRUE);
1147
1148         This->started_compress = TRUE;
1149     }
1150
1151     row_size = This->format->bpp / 8 * This->width;
1152
1153     if (This->format->swap_rgb)
1154     {
1155         swapped_data = HeapAlloc(GetProcessHeap(), 0, row_size);
1156         if (!swapped_data)
1157         {
1158             LeaveCriticalSection(&This->lock);
1159             return E_OUTOFMEMORY;
1160         }
1161     }
1162
1163     for (line=0; line < lineCount; line++)
1164     {
1165         if (This->format->swap_rgb)
1166         {
1167             UINT x;
1168
1169             memcpy(swapped_data, pbPixels + (cbStride * line), row_size);
1170
1171             for (x=0; x < This->width; x++)
1172             {
1173                 BYTE b;
1174
1175                 b = swapped_data[x*3];
1176                 swapped_data[x*3] = swapped_data[x*3+2];
1177                 swapped_data[x*3+2] = b;
1178             }
1179
1180             current_row = swapped_data;
1181         }
1182         else
1183             current_row = pbPixels + (cbStride * line);
1184
1185         if (!pjpeg_write_scanlines(&This->cinfo, &current_row, 1))
1186         {
1187             ERR("failed writing scanlines\n");
1188             LeaveCriticalSection(&This->lock);
1189             HeapFree(GetProcessHeap(), 0, swapped_data);
1190             return E_FAIL;
1191         }
1192
1193         This->lines_written++;
1194     }
1195
1196     LeaveCriticalSection(&This->lock);
1197     HeapFree(GetProcessHeap(), 0, swapped_data);
1198
1199     return S_OK;
1200 }
1201
1202 static HRESULT WINAPI JpegEncoder_Frame_WriteSource(IWICBitmapFrameEncode *iface,
1203     IWICBitmapSource *pIBitmapSource, WICRect *prc)
1204 {
1205     JpegEncoder *This = impl_from_IWICBitmapFrameEncode(iface);
1206     HRESULT hr;
1207     TRACE("(%p,%p,%s)\n", iface, pIBitmapSource, debug_wic_rect(prc));
1208
1209     if (!This->frame_initialized)
1210         return WINCODEC_ERR_WRONGSTATE;
1211
1212     hr = configure_write_source(iface, pIBitmapSource, prc,
1213         This->format ? This->format->guid : NULL, This->width, This->height,
1214         This->xres, This->yres);
1215
1216     if (SUCCEEDED(hr))
1217     {
1218         hr = write_source(iface, pIBitmapSource, prc,
1219             This->format->guid, This->format->bpp, This->width, This->height);
1220     }
1221
1222     return hr;
1223 }
1224
1225 static HRESULT WINAPI JpegEncoder_Frame_Commit(IWICBitmapFrameEncode *iface)
1226 {
1227     JpegEncoder *This = impl_from_IWICBitmapFrameEncode(iface);
1228     jmp_buf jmpbuf;
1229     TRACE("(%p)\n", iface);
1230
1231     EnterCriticalSection(&This->lock);
1232
1233     if (!This->started_compress || This->lines_written != This->height || This->frame_committed)
1234     {
1235         LeaveCriticalSection(&This->lock);
1236         return WINCODEC_ERR_WRONGSTATE;
1237     }
1238
1239     /* set up setjmp/longjmp error handling */
1240     if (setjmp(jmpbuf))
1241     {
1242         LeaveCriticalSection(&This->lock);
1243         return E_FAIL;
1244     }
1245     This->cinfo.client_data = jmpbuf;
1246
1247     pjpeg_finish_compress(&This->cinfo);
1248
1249     This->frame_committed = TRUE;
1250
1251     LeaveCriticalSection(&This->lock);
1252
1253     return S_OK;
1254 }
1255
1256 static HRESULT WINAPI JpegEncoder_Frame_GetMetadataQueryWriter(IWICBitmapFrameEncode *iface,
1257     IWICMetadataQueryWriter **ppIMetadataQueryWriter)
1258 {
1259     FIXME("(%p, %p): stub\n", iface, ppIMetadataQueryWriter);
1260     return E_NOTIMPL;
1261 }
1262
1263 static const IWICBitmapFrameEncodeVtbl JpegEncoder_FrameVtbl = {
1264     JpegEncoder_Frame_QueryInterface,
1265     JpegEncoder_Frame_AddRef,
1266     JpegEncoder_Frame_Release,
1267     JpegEncoder_Frame_Initialize,
1268     JpegEncoder_Frame_SetSize,
1269     JpegEncoder_Frame_SetResolution,
1270     JpegEncoder_Frame_SetPixelFormat,
1271     JpegEncoder_Frame_SetColorContexts,
1272     JpegEncoder_Frame_SetPalette,
1273     JpegEncoder_Frame_SetThumbnail,
1274     JpegEncoder_Frame_WritePixels,
1275     JpegEncoder_Frame_WriteSource,
1276     JpegEncoder_Frame_Commit,
1277     JpegEncoder_Frame_GetMetadataQueryWriter
1278 };
1279
1280 static HRESULT WINAPI JpegEncoder_QueryInterface(IWICBitmapEncoder *iface, REFIID iid,
1281     void **ppv)
1282 {
1283     JpegEncoder *This = impl_from_IWICBitmapEncoder(iface);
1284     TRACE("(%p,%s,%p)\n", iface, debugstr_guid(iid), ppv);
1285
1286     if (!ppv) return E_INVALIDARG;
1287
1288     if (IsEqualIID(&IID_IUnknown, iid) ||
1289         IsEqualIID(&IID_IWICBitmapEncoder, iid))
1290     {
1291         *ppv = &This->IWICBitmapEncoder_iface;
1292     }
1293     else
1294     {
1295         *ppv = NULL;
1296         return E_NOINTERFACE;
1297     }
1298
1299     IUnknown_AddRef((IUnknown*)*ppv);
1300     return S_OK;
1301 }
1302
1303 static ULONG WINAPI JpegEncoder_AddRef(IWICBitmapEncoder *iface)
1304 {
1305     JpegEncoder *This = impl_from_IWICBitmapEncoder(iface);
1306     ULONG ref = InterlockedIncrement(&This->ref);
1307
1308     TRACE("(%p) refcount=%u\n", iface, ref);
1309
1310     return ref;
1311 }
1312
1313 static ULONG WINAPI JpegEncoder_Release(IWICBitmapEncoder *iface)
1314 {
1315     JpegEncoder *This = impl_from_IWICBitmapEncoder(iface);
1316     ULONG ref = InterlockedDecrement(&This->ref);
1317
1318     TRACE("(%p) refcount=%u\n", iface, ref);
1319
1320     if (ref == 0)
1321     {
1322         This->lock.DebugInfo->Spare[0] = 0;
1323         DeleteCriticalSection(&This->lock);
1324         if (This->initialized) pjpeg_destroy_compress(&This->cinfo);
1325         if (This->stream) IStream_Release(This->stream);
1326         HeapFree(GetProcessHeap(), 0, This);
1327     }
1328
1329     return ref;
1330 }
1331
1332 static HRESULT WINAPI JpegEncoder_Initialize(IWICBitmapEncoder *iface,
1333     IStream *pIStream, WICBitmapEncoderCacheOption cacheOption)
1334 {
1335     JpegEncoder *This = impl_from_IWICBitmapEncoder(iface);
1336     jmp_buf jmpbuf;
1337
1338     TRACE("(%p,%p,%u)\n", iface, pIStream, cacheOption);
1339
1340     EnterCriticalSection(&This->lock);
1341
1342     if (This->initialized)
1343     {
1344         LeaveCriticalSection(&This->lock);
1345         return WINCODEC_ERR_WRONGSTATE;
1346     }
1347
1348     pjpeg_std_error(&This->jerr);
1349
1350     This->jerr.error_exit = error_exit_fn;
1351     This->jerr.emit_message = emit_message_fn;
1352
1353     This->cinfo.err = &This->jerr;
1354
1355     This->cinfo.client_data = jmpbuf;
1356
1357     if (setjmp(jmpbuf))
1358     {
1359         LeaveCriticalSection(&This->lock);
1360         return E_FAIL;
1361     }
1362
1363     pjpeg_CreateCompress(&This->cinfo, JPEG_LIB_VERSION, sizeof(struct jpeg_compress_struct));
1364
1365     This->stream = pIStream;
1366     IStream_AddRef(pIStream);
1367
1368     This->dest_mgr.next_output_byte = This->dest_buffer;
1369     This->dest_mgr.free_in_buffer = sizeof(This->dest_buffer);
1370
1371     This->dest_mgr.init_destination = dest_mgr_init_destination;
1372     This->dest_mgr.empty_output_buffer = dest_mgr_empty_output_buffer;
1373     This->dest_mgr.term_destination = dest_mgr_term_destination;
1374
1375     This->cinfo.dest = &This->dest_mgr;
1376
1377     This->initialized = TRUE;
1378
1379     LeaveCriticalSection(&This->lock);
1380
1381     return S_OK;
1382 }
1383
1384 static HRESULT WINAPI JpegEncoder_GetContainerFormat(IWICBitmapEncoder *iface,
1385     GUID *pguidContainerFormat)
1386 {
1387     FIXME("(%p,%s): stub\n", iface, debugstr_guid(pguidContainerFormat));
1388     return E_NOTIMPL;
1389 }
1390
1391 static HRESULT WINAPI JpegEncoder_GetEncoderInfo(IWICBitmapEncoder *iface,
1392     IWICBitmapEncoderInfo **ppIEncoderInfo)
1393 {
1394     FIXME("(%p,%p): stub\n", iface, ppIEncoderInfo);
1395     return E_NOTIMPL;
1396 }
1397
1398 static HRESULT WINAPI JpegEncoder_SetColorContexts(IWICBitmapEncoder *iface,
1399     UINT cCount, IWICColorContext **ppIColorContext)
1400 {
1401     FIXME("(%p,%u,%p): stub\n", iface, cCount, ppIColorContext);
1402     return E_NOTIMPL;
1403 }
1404
1405 static HRESULT WINAPI JpegEncoder_SetPalette(IWICBitmapEncoder *iface, IWICPalette *pIPalette)
1406 {
1407     JpegEncoder *This = impl_from_IWICBitmapEncoder(iface);
1408     HRESULT hr;
1409
1410     TRACE("(%p,%p)\n", iface, pIPalette);
1411
1412     EnterCriticalSection(&This->lock);
1413
1414     hr = This->initialized ? WINCODEC_ERR_UNSUPPORTEDOPERATION : WINCODEC_ERR_NOTINITIALIZED;
1415
1416     LeaveCriticalSection(&This->lock);
1417
1418     return hr;
1419 }
1420
1421 static HRESULT WINAPI JpegEncoder_SetThumbnail(IWICBitmapEncoder *iface, IWICBitmapSource *pIThumbnail)
1422 {
1423     TRACE("(%p,%p)\n", iface, pIThumbnail);
1424     return WINCODEC_ERR_UNSUPPORTEDOPERATION;
1425 }
1426
1427 static HRESULT WINAPI JpegEncoder_SetPreview(IWICBitmapEncoder *iface, IWICBitmapSource *pIPreview)
1428 {
1429     TRACE("(%p,%p)\n", iface, pIPreview);
1430     return WINCODEC_ERR_UNSUPPORTEDOPERATION;
1431 }
1432
1433 static HRESULT WINAPI JpegEncoder_CreateNewFrame(IWICBitmapEncoder *iface,
1434     IWICBitmapFrameEncode **ppIFrameEncode, IPropertyBag2 **ppIEncoderOptions)
1435 {
1436     JpegEncoder *This = impl_from_IWICBitmapEncoder(iface);
1437     HRESULT hr;
1438     static const PROPBAG2 opts[6] =
1439     {
1440         { PROPBAG2_TYPE_DATA, VT_R4,            0, 0, (LPOLESTR)wszImageQuality },
1441         { PROPBAG2_TYPE_DATA, VT_UI1,           0, 0, (LPOLESTR)wszBitmapTransform },
1442         { PROPBAG2_TYPE_DATA, VT_I4 | VT_ARRAY, 0, 0, (LPOLESTR)wszLuminance },
1443         { PROPBAG2_TYPE_DATA, VT_I4 | VT_ARRAY, 0, 0, (LPOLESTR)wszChrominance },
1444         { PROPBAG2_TYPE_DATA, VT_UI1,           0, 0, (LPOLESTR)wszJpegYCrCbSubsampling },
1445         { PROPBAG2_TYPE_DATA, VT_BOOL,          0, 0, (LPOLESTR)wszSuppressApp0 },
1446     };
1447
1448     TRACE("(%p,%p,%p)\n", iface, ppIFrameEncode, ppIEncoderOptions);
1449
1450     EnterCriticalSection(&This->lock);
1451
1452     if (This->frame_count != 0)
1453     {
1454         LeaveCriticalSection(&This->lock);
1455         return WINCODEC_ERR_UNSUPPORTEDOPERATION;
1456     }
1457
1458     if (!This->initialized)
1459     {
1460         LeaveCriticalSection(&This->lock);
1461         return WINCODEC_ERR_NOTINITIALIZED;
1462     }
1463
1464     if (ppIEncoderOptions)
1465     {
1466         hr = CreatePropertyBag2(opts, ARRAY_SIZE(opts), ppIEncoderOptions);
1467         if (FAILED(hr))
1468         {
1469             LeaveCriticalSection(&This->lock);
1470             return hr;
1471         }
1472     }
1473
1474     This->frame_count = 1;
1475
1476     LeaveCriticalSection(&This->lock);
1477
1478     IWICBitmapEncoder_AddRef(iface);
1479     *ppIFrameEncode = &This->IWICBitmapFrameEncode_iface;
1480
1481     return S_OK;
1482 }
1483
1484 static HRESULT WINAPI JpegEncoder_Commit(IWICBitmapEncoder *iface)
1485 {
1486     JpegEncoder *This = impl_from_IWICBitmapEncoder(iface);
1487     TRACE("(%p)\n", iface);
1488
1489     EnterCriticalSection(&This->lock);
1490
1491     if (!This->frame_committed || This->committed)
1492     {
1493         LeaveCriticalSection(&This->lock);
1494         return WINCODEC_ERR_WRONGSTATE;
1495     }
1496
1497     This->committed = TRUE;
1498
1499     LeaveCriticalSection(&This->lock);
1500
1501     return S_OK;
1502 }
1503
1504 static HRESULT WINAPI JpegEncoder_GetMetadataQueryWriter(IWICBitmapEncoder *iface,
1505     IWICMetadataQueryWriter **ppIMetadataQueryWriter)
1506 {
1507     FIXME("(%p,%p): stub\n", iface, ppIMetadataQueryWriter);
1508     return E_NOTIMPL;
1509 }
1510
1511 static const IWICBitmapEncoderVtbl JpegEncoder_Vtbl = {
1512     JpegEncoder_QueryInterface,
1513     JpegEncoder_AddRef,
1514     JpegEncoder_Release,
1515     JpegEncoder_Initialize,
1516     JpegEncoder_GetContainerFormat,
1517     JpegEncoder_GetEncoderInfo,
1518     JpegEncoder_SetColorContexts,
1519     JpegEncoder_SetPalette,
1520     JpegEncoder_SetThumbnail,
1521     JpegEncoder_SetPreview,
1522     JpegEncoder_CreateNewFrame,
1523     JpegEncoder_Commit,
1524     JpegEncoder_GetMetadataQueryWriter
1525 };
1526
1527 HRESULT JpegEncoder_CreateInstance(REFIID iid, void** ppv)
1528 {
1529     JpegEncoder *This;
1530     HRESULT ret;
1531
1532     TRACE("(%s,%p)\n", debugstr_guid(iid), ppv);
1533
1534     *ppv = NULL;
1535
1536     if (!libjpeg_handle && !load_libjpeg())
1537     {
1538         ERR("Failed writing JPEG because unable to find %s\n",SONAME_LIBJPEG);
1539         return E_FAIL;
1540     }
1541
1542     This = HeapAlloc(GetProcessHeap(), 0, sizeof(JpegEncoder));
1543     if (!This) return E_OUTOFMEMORY;
1544
1545     This->IWICBitmapEncoder_iface.lpVtbl = &JpegEncoder_Vtbl;
1546     This->IWICBitmapFrameEncode_iface.lpVtbl = &JpegEncoder_FrameVtbl;
1547     This->ref = 1;
1548     This->initialized = FALSE;
1549     This->frame_count = 0;
1550     This->frame_initialized = FALSE;
1551     This->started_compress = FALSE;
1552     This->lines_written = 0;
1553     This->frame_committed = FALSE;
1554     This->committed = FALSE;
1555     This->width = This->height = 0;
1556     This->xres = This->yres = 0.0;
1557     This->format = NULL;
1558     This->stream = NULL;
1559     This->colors = 0;
1560     InitializeCriticalSection(&This->lock);
1561     This->lock.DebugInfo->Spare[0] = (DWORD_PTR)(__FILE__ ": JpegEncoder.lock");
1562
1563     ret = IWICBitmapEncoder_QueryInterface(&This->IWICBitmapEncoder_iface, iid, ppv);
1564     IWICBitmapEncoder_Release(&This->IWICBitmapEncoder_iface);
1565
1566     return ret;
1567 }
1568
1569 #else /* !defined(SONAME_LIBJPEG) */
1570
1571 HRESULT JpegDecoder_CreateInstance(REFIID iid, void** ppv)
1572 {
1573     ERR("Trying to load JPEG picture, but JPEG support is not compiled in.\n");
1574     return E_FAIL;
1575 }
1576
1577 HRESULT JpegEncoder_CreateInstance(REFIID iid, void** ppv)
1578 {
1579     ERR("Trying to save JPEG picture, but JPEG support is not compiled in.\n");
1580     return E_FAIL;
1581 }
1582
1583 #endif