/src/FreeRDP/winpr/libwinpr/utils/image.c

Source
/**
 * WinPR: Windows Portable Runtime
 * Image Utils
 *
 * Copyright 2014 Marc-Andre Moreau <marcandre.moreau@gmail.com>
 * Copyright 2016 Inuvika Inc.
 * Copyright 2016 David PHAM-VAN <d.phamvan@inuvika.com>
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */

#include <setjmp.h>
#include <stdlib.h>

#include <winpr/config.h>

#include <winpr/wtypes.h>
#include <winpr/crt.h>
#include <winpr/file.h>
#include <winpr/cast.h>

#include <winpr/image.h>

#if defined(WINPR_UTILS_IMAGE_PNG)
#include <png.h>
#endif

#if defined(WINPR_UTILS_IMAGE_JPEG)
#define INT32 INT32_WINPR
#include <jpeglib.h>
#undef INT32
#endif

#if defined(WINPR_UTILS_IMAGE_JPEG)
typedef struct
{
  struct jpeg_error_mgr pub;
  jmp_buf jump;
} WINPR_JPEG_ERROR_MGR;

/* libjpeg's default error handler calls exit(); longjmp back to the caller
 * instead (the setjmp target is registered right after
 * jpeg_create_compress()/jpeg_create_decompress(), see the libjpeg example). */
WINPR_NORETURN(static void winpr_jpeg_error_exit(j_common_ptr cinfo));

void winpr_jpeg_error_exit(j_common_ptr cinfo)
{
  WINPR_JPEG_ERROR_MGR* err = (WINPR_JPEG_ERROR_MGR*)cinfo->err;
  longjmp(err->jump, 1);
}
#endif

#if defined(WINPR_UTILS_IMAGE_WEBP)
#include <webp/encode.h>
#include <webp/decode.h>
#endif

#if defined(WITH_LODEPNG)
#include <lodepng.h>
#endif
#include <winpr/stream.h>

#include "image.h"
#include "../log.h"
#define TAG WINPR_TAG("utils.image")

#if defined(WINPR_UTILS_IMAGE_JPEG)
#ifndef MAX
#define MAX(a, b) ((a) > (b)) ? (a) : (b)
#endif
#endif

WINPR_ATTR_NODISCARD
static SSIZE_T winpr_convert_from_jpeg(const BYTE* comp_data, size_t comp_data_bytes, UINT32* width,
                                       UINT32* height, UINT32* bpp, BYTE** ppdecomp_data,
                                       UINT32* scanline);

WINPR_ATTR_NODISCARD
static SSIZE_T winpr_convert_from_png(const BYTE* comp_data, size_t comp_data_bytes, UINT32* width,
                                      UINT32* height, UINT32* bpp, BYTE** ppdecomp_data,
                                      UINT32* scanline);

WINPR_ATTR_NODISCARD
static SSIZE_T winpr_convert_from_webp(const BYTE* comp_data, size_t comp_data_bytes, UINT32* width,
                                       UINT32* height, UINT32* bpp, BYTE** ppdecomp_data,
                                       UINT32* scanline);

BOOL writeBitmapFileHeader(wStream* s, const WINPR_BITMAP_FILE_HEADER* bf)
{
  if (!Stream_EnsureRemainingCapacity(s, sizeof(WINPR_BITMAP_FILE_HEADER)))
    return FALSE;

  Stream_Write_UINT8(s, bf->bfType[0]);
  Stream_Write_UINT8(s, bf->bfType[1]);
  Stream_Write_UINT32(s, bf->bfSize);
  Stream_Write_UINT16(s, bf->bfReserved1);
  Stream_Write_UINT16(s, bf->bfReserved2);
  Stream_Write_UINT32(s, bf->bfOffBits);
  return TRUE;
}

BOOL readBitmapFileHeader(wStream* s, WINPR_BITMAP_FILE_HEADER* bf)
{
  static wLog* log = nullptr;
  if (!log)
    log = WLog_Get(TAG);

  if (!s || !bf ||
      (!Stream_CheckAndLogRequiredLengthWLog(log, s, sizeof(WINPR_BITMAP_FILE_HEADER))))
    return FALSE;

  Stream_Read_UINT8(s, bf->bfType[0]);
  Stream_Read_UINT8(s, bf->bfType[1]);
  Stream_Read_UINT32(s, bf->bfSize);
  Stream_Read_UINT16(s, bf->bfReserved1);
  Stream_Read_UINT16(s, bf->bfReserved2);
  Stream_Read_UINT32(s, bf->bfOffBits);

  if (bf->bfSize < sizeof(WINPR_BITMAP_FILE_HEADER))
  {
    WLog_Print(log, WLOG_ERROR, "Invalid bitmap::bfSize=%" PRIu32 ", require at least %" PRIuz,
               bf->bfSize, sizeof(WINPR_BITMAP_FILE_HEADER));
    return FALSE;
  }

  if ((bf->bfType[0] != 'B') || (bf->bfType[1] != 'M'))
  {
    WLog_Print(log, WLOG_ERROR, "Invalid bitmap header [%c%c], expected [BM]", bf->bfType[0],
               bf->bfType[1]);
    return FALSE;
  }
  return Stream_CheckAndLogRequiredLengthWLog(log, s,
                                              bf->bfSize - sizeof(WINPR_BITMAP_FILE_HEADER));
}

BOOL writeBitmapInfoHeader(wStream* s, const WINPR_BITMAP_INFO_HEADER* bi)
{
  if (!Stream_EnsureRemainingCapacity(s, sizeof(WINPR_BITMAP_INFO_HEADER)))
    return FALSE;

  Stream_Write_UINT32(s, bi->biSize);
  Stream_Write_INT32(s, bi->biWidth);
  Stream_Write_INT32(s, bi->biHeight);
  Stream_Write_UINT16(s, bi->biPlanes);
  Stream_Write_UINT16(s, bi->biBitCount);
  Stream_Write_UINT32(s, bi->biCompression);
  Stream_Write_UINT32(s, bi->biSizeImage);
  Stream_Write_INT32(s, bi->biXPelsPerMeter);
  Stream_Write_INT32(s, bi->biYPelsPerMeter);
  Stream_Write_UINT32(s, bi->biClrUsed);
  Stream_Write_UINT32(s, bi->biClrImportant);
  return TRUE;
}

BOOL readBitmapInfoHeader(wStream* s, WINPR_BITMAP_INFO_HEADER* bi, size_t* poffset)
{
  if (!s || !bi || (!Stream_CheckAndLogRequiredLength(TAG, s, sizeof(WINPR_BITMAP_INFO_HEADER))))
    return FALSE;

  const size_t start = Stream_GetPosition(s);
  Stream_Read_UINT32(s, bi->biSize);
  Stream_Read_INT32(s, bi->biWidth);
  Stream_Read_INT32(s, bi->biHeight);
  Stream_Read_UINT16(s, bi->biPlanes);
  Stream_Read_UINT16(s, bi->biBitCount);
  Stream_Read_UINT32(s, bi->biCompression);
  Stream_Read_UINT32(s, bi->biSizeImage);
  Stream_Read_INT32(s, bi->biXPelsPerMeter);
  Stream_Read_INT32(s, bi->biYPelsPerMeter);
  Stream_Read_UINT32(s, bi->biClrUsed);
  Stream_Read_UINT32(s, bi->biClrImportant);

  switch (bi->biBitCount)
  {
    case 1:
    case 4:
    case 8:
    case 16:
    case 24:
    case 32:
      break;
    default:
      WLog_WARN(TAG, "invalid biBitCount=%" PRIu32, bi->biBitCount);
      return FALSE;
  }

  if (bi->biWidth < 0)
  {
    WLog_WARN(TAG, "negative biWidth=%" PRId32, bi->biWidth);
    return FALSE;
  }

  /* https://learn.microsoft.com/en-us/windows/win32/api/wingdi/ns-wingdi-bitmapinfoheader */
  size_t offset = 0;
  switch (bi->biCompression)
  {
    case BI_RGB:
      if (bi->biBitCount <= 8)
      {
        DWORD used = bi->biClrUsed;
        if (used == 0)
          used = 1u << bi->biBitCount;
        offset += sizeof(RGBQUAD) * used;
      }
      if (bi->biSizeImage == 0)
      {
        const UINT64 rawustride =
            WINPR_ASSERTING_INT_CAST(UINT64, bi->biWidth) * bi->biBitCount;
        const UINT64 ustride = ((rawustride + 31) & ~31u) >> 3;
        if (ustride > UINT32_MAX)
        {
          WLog_ERR(TAG, "bi->biWidth * bi->biBitCount > UINT32_MAX");
          return FALSE;
        }

        const UINT32 stride = WINPR_ASSERTING_INT_CAST(uint32_t, ustride);
        const UINT64 usize = WINPR_ASSERTING_INT_CAST(UINT64, llabs(bi->biHeight)) * stride;
        if (usize > UINT32_MAX)
        {
          WLog_ERR(TAG, "abs(bi->biHeight) * stride > UINT32_MAX");
          return FALSE;
        }
        bi->biSizeImage = WINPR_ASSERTING_INT_CAST(uint32_t, usize);
      }
      break;
    case BI_BITFIELDS:
      /* BITMAPV4HEADER and BITMAPV5HEADER include the color masks in biSize. */
      if (bi->biSize == sizeof(WINPR_BITMAP_INFO_HEADER))
        offset += sizeof(DWORD) * 3; // 3 DWORD color masks
      break;
    default:
      WLog_ERR(TAG, "unsupported biCompression %" PRIu32, bi->biCompression);
      return FALSE;
  }

  if (bi->biSizeImage == 0)
  {
    WLog_ERR(TAG, "invalid biSizeImage %" PRIu32, bi->biSizeImage);
    return FALSE;
  }

  const size_t pos = Stream_GetPosition(s) - start;
  if (bi->biSize < pos)
  {
    WLog_ERR(TAG, "invalid biSize %" PRIu32 " < (actual) offset %" PRIuz, bi->biSize, pos);
    return FALSE;
  }

  *poffset = offset;
  return Stream_SafeSeek(s, bi->biSize - pos);
}

WINPR_ATTR_MALLOC(Stream_Free, 1)
static wStream* winpr_bitmap_construct_header_stream(size_t width, size_t height, size_t bpp,
                                                     BOOL bottomUp)
{
  WINPR_BITMAP_FILE_HEADER bf = WINPR_C_ARRAY_INIT;
  WINPR_BITMAP_INFO_HEADER bi = WINPR_C_ARRAY_INIT;

  size_t stride = (width * bpp + 7) / 8;
  if ((stride % 4) != 0)
    stride += 4 - (stride % 4);

  size_t imgSize = stride * height;
  if ((width > INT32_MAX) || (height > INT32_MAX) || (bpp > UINT16_MAX) || (imgSize > UINT32_MAX))
    return nullptr;

  wStream* s = Stream_New(nullptr, WINPR_IMAGE_BMP_HEADER_LEN);
  if (!s)
    return nullptr;

  bf.bfType[0] = 'B';
  bf.bfType[1] = 'M';
  bf.bfReserved1 = 0;
  bf.bfReserved2 = 0;
  bi.biSize = (UINT32)sizeof(WINPR_BITMAP_INFO_HEADER);
  bf.bfOffBits = (UINT32)sizeof(WINPR_BITMAP_FILE_HEADER) + bi.biSize;
  bi.biSizeImage = (UINT32)imgSize;
  bf.bfSize = bf.bfOffBits + bi.biSizeImage;
  bi.biWidth = (INT32)width;
  bi.biHeight = bottomUp ? (INT32)height : -1 * (INT32)height;
  bi.biPlanes = 1;
  bi.biBitCount = (UINT16)bpp;
  bi.biCompression = BI_RGB;
  bi.biXPelsPerMeter = (INT32)width;
  bi.biYPelsPerMeter = (INT32)height;
  bi.biClrUsed = 0;
  bi.biClrImportant = 0;

  size_t offset = 0;
  switch (bi.biCompression)
  {
    case BI_RGB:
      if (bi.biBitCount <= 8)
      {
        DWORD used = bi.biClrUsed;
        if (used == 0)
          used = 1u << bi.biBitCount;
        offset += sizeof(RGBQUAD) * used;
      }
      if (bi.biSizeImage == 0)
      {
        const UINT64 rawustride =
            WINPR_ASSERTING_INT_CAST(UINT64, bi.biWidth) * bi.biBitCount;
        const UINT64 ustride = ((rawustride + 31) & ~31u) >> 3;
        if (ustride > UINT32_MAX)
        {
          WLog_ERR(TAG, "bi->biWidth * bi->biBitCount > UINT32_MAX");
          goto fail;
        }

        const UINT32 xstride = WINPR_ASSERTING_INT_CAST(uint32_t, ustride);
        const UINT64 usize = WINPR_ASSERTING_INT_CAST(UINT64, llabs(bi.biHeight)) * xstride;
        if (usize > UINT32_MAX)
        {
          WLog_ERR(TAG, "abs(bi->biHeight) * stride > UINT32_MAX");
          goto fail;
        }
        bi.biSizeImage = WINPR_ASSERTING_INT_CAST(uint32_t, usize);
      }
      break;
    case BI_BITFIELDS:
      offset += sizeof(DWORD) * 3; // 3 DWORD color masks
      break;
    default:
      return nullptr;
  }

  if (offset > UINT32_MAX - bf.bfOffBits)
    goto fail;
  bf.bfOffBits += WINPR_ASSERTING_INT_CAST(UINT32, offset);

  if (!writeBitmapFileHeader(s, &bf))
    goto fail;

  if (!writeBitmapInfoHeader(s, &bi))
    goto fail;

  if (!Stream_EnsureRemainingCapacity(s, offset))
    goto fail;

  Stream_Zero(s, offset);
  const size_t pos = Stream_GetPosition(s);
  if (pos != bf.bfOffBits)
    goto fail;
  return s;
fail:
  Stream_Free(s, TRUE);
  return nullptr;
}

BYTE* winpr_bitmap_construct_header(size_t width, size_t height, size_t bpp)
{
  wStream* s = winpr_bitmap_construct_header_stream(width, height, bpp, FALSE);
  if (!s)
    return nullptr;
  void* data = Stream_Buffer(s);
  Stream_Free(s, FALSE);
  return data;
}

/**
 * Refer to "Compressed Image File Formats: JPEG, PNG, GIF, XBM, BMP" book
 */

WINPR_ATTR_MALLOC(free, 1)
static void* winpr_bitmap_write_buffer(const BYTE* data, size_t size, UINT32 width, UINT32 height,
                                       UINT32 stride, UINT32 bpp, UINT32* pSize)
{
  WINPR_ASSERT(data || (size == 0));
  WINPR_ASSERT(pSize);

  void* result = nullptr;
  if ((height == 0) || (width == 0) || (bpp == 0) || (width > SIZE_MAX / height) ||
      (width > SIZE_MAX / bpp))
    return nullptr;

  size_t bpp_stride = 1ull * width * bpp;
  if (bpp < 8)
  {
    if ((bpp_stride % 8) != 0)
      bpp_stride += 8 - (bpp_stride % 8);
  }
  bpp_stride /= 8ull;

  if ((bpp_stride % 4) != 0)
    bpp_stride += 4 - (bpp_stride % 4);

  if ((bpp_stride < 4) || (bpp_stride > UINT32_MAX))
    return nullptr;

  /* the pixels of a row, without the padding to 4 bytes BMP requires */
  if (width > (SIZE_MAX - 7ull) / bpp)
    return nullptr;
  const size_t row = (1ull * width * bpp + 7ull) / 8ull;

  if (stride == 0)
    stride = (UINT32)bpp_stride;

  if (stride > SIZE_MAX / height)
    return nullptr;

  if (stride > size / height)
    return nullptr;

  if (row > stride)
    return nullptr;

  /* Store the rows bottom-up: some readers, e.g. Windows when synthesizing CF_BITMAP from a
   * CF_DIB, do not handle top-down bitmaps. */
  wStream* s = winpr_bitmap_construct_header_stream(width, height, bpp, TRUE);
  if (!s)
    goto fail;

  /* The source rows may be padded differently, e.g. not at all for a 24 bpp PNG: write each
   * row with the padding the header announces. */
  for (size_t y = height; y > 0; y--)
  {
    if (!Stream_EnsureRemainingCapacity(s, bpp_stride))
      goto fail;

    const size_t offset = (y - 1) * stride;
    Stream_Write(s, &data[offset], row);
    Stream_Zero(s, bpp_stride - row);
  }

  result = Stream_Buffer(s);
  {
    const size_t pos = Stream_GetPosition(s);
    if (pos > UINT32_MAX)
      goto fail;
    *pSize = (UINT32)pos;
  }
fail:
  Stream_Free(s, result == nullptr);
  return result;
}

int winpr_bitmap_write(const char* filename, const BYTE* data, size_t width, size_t height,
                       size_t bpp)
{
  return winpr_bitmap_write_ex(filename, data, 0, width, height, bpp);
}

int winpr_bitmap_write_ex(const char* filename, const BYTE* data, size_t stride, size_t width,
                          size_t height, size_t bpp)
{
  FILE* fp = nullptr;
  int ret = -1;
  void* bmpdata = nullptr;
  const size_t bpp_stride = ((((width * bpp) + 31) & (size_t)~31) >> 3);

  if ((stride > UINT32_MAX) || (width > UINT32_MAX) || (height > UINT32_MAX) ||
      (bpp > UINT32_MAX))
    goto fail;

  if (stride == 0)
    stride = bpp_stride;

  {
    UINT32 bmpsize = 0;
    {
      const size_t size = stride * 1ull * height;
      bmpdata = winpr_bitmap_write_buffer(data, size, (UINT32)width, (UINT32)height,
                                          (UINT32)stride, (UINT32)bpp, &bmpsize);
    }
    if (!bmpdata)
      goto fail;

    fp = winpr_fopen(filename, "w+b");
    if (!fp)
    {
      WLog_ERR(TAG, "failed to open file %s", filename);
      goto fail;
    }

    if (fwrite(bmpdata, bmpsize, 1, fp) != 1)
      goto fail;
  }

  ret = 0;
fail:
  if (fp)
    (void)fclose(fp);
  free(bmpdata);
  return ret;
}

WINPR_ATTR_NODISCARD
static int write_and_free(const char* filename, void* data, size_t size)
{
  int status = -1;
  if (!data)
    goto fail;

  {
    FILE* fp = winpr_fopen(filename, "w+b");
    if (!fp)
      goto fail;

    {
      const size_t w = fwrite(data, 1, size, fp);
      (void)fclose(fp);
      status = (w == size) ? 1 : -1;
    }
  }
fail:
  free(data);
  return status;
}

int winpr_image_write(wImage* image, const char* filename)
{
  WINPR_ASSERT(image);
  return winpr_image_write_ex(image, WINPR_ASSERTING_INT_CAST(uint32_t, image->type), filename);
}

int winpr_image_write_ex(wImage* image, UINT32 format, const char* filename)
{
  WINPR_ASSERT(image);

  size_t size = 0;
  void* data = winpr_image_write_buffer(image, format, &size);
  if (!data)
    return -1;
  return write_and_free(filename, data, size);
}

WINPR_ATTR_NODISCARD
static int winpr_image_bitmap_read_buffer(wImage* image, const BYTE* buffer, size_t size)
{
  int rc = -1;
  BOOL vFlip = 0;
  WINPR_BITMAP_FILE_HEADER bf = WINPR_C_ARRAY_INIT;
  WINPR_BITMAP_INFO_HEADER bi = WINPR_C_ARRAY_INIT;
  wStream sbuffer = WINPR_C_ARRAY_INIT;
  wStream* s = Stream_StaticConstInit(&sbuffer, buffer, size);

  if (!s)
    return -1;

  size_t bmpoffset = 0;
  if (!readBitmapFileHeader(s, &bf) || !readBitmapInfoHeader(s, &bi, &bmpoffset))
    goto fail;

  if ((bf.bfType[0] != 'B') || (bf.bfType[1] != 'M'))
  {
    WLog_WARN(TAG, "Invalid bitmap header %c%c", bf.bfType[0], bf.bfType[1]);
    goto fail;
  }

  image->type = WINPR_IMAGE_BITMAP;

  {
    /* bfOffBits may include color masks, a color table or padding after the
     * info header. It must leave room for the required color data. */
    const size_t pos = Stream_GetPosition(s);
    const size_t expect = bf.bfOffBits;
    if ((pos > expect) || (bmpoffset > expect - pos))
    {
      WLog_WARN(TAG, "pos=%" PRIuz ", expected %" PRIuz ", offset=%" PRIuz, pos, expect,
                bmpoffset);
      goto fail;
    }

    if (!Stream_SafeSeek(s, expect - pos))
      goto fail;
  }

  if (!Stream_CheckAndLogRequiredLength(TAG, s, bi.biSizeImage))
    goto fail;

  if (bi.biWidth <= 0)
  {
    WLog_WARN(TAG, "bi.biWidth=%" PRId32, bi.biWidth);
    goto fail;
  }

  image->width = (UINT32)bi.biWidth;

  if (bi.biHeight < 0)
  {
    vFlip = FALSE;
    image->height = (UINT32)(-1ll * bi.biHeight);
  }
  else
  {
    vFlip = TRUE;
    image->height = (UINT32)bi.biHeight;
  }

  if (image->width <= 0)
  {
    WLog_WARN(TAG, "image->width=%" PRIu32, image->width);
    goto fail;
  }

  if (image->height <= 0)
  {
    WLog_WARN(TAG, "image->height=%" PRIu32, image->height);
    goto fail;
  }

  image->bitsPerPixel = bi.biBitCount;
  {
    const size_t bpp = (bi.biBitCount + 7UL) / 8UL;
    image->bytesPerPixel = WINPR_ASSERTING_INT_CAST(uint32_t, bpp);
    if (image->bytesPerPixel == 0)
      goto fail;

    if (image->width > (UINT32_MAX / image->bytesPerPixel) - 4ull)
      goto fail;

    image->scanline = image->width * image->bytesPerPixel;
    if ((image->scanline % 4) != 0)
      image->scanline += 4 - image->scanline % 4;

    if (image->height > UINT32_MAX / image->scanline)
      goto fail;

    {
      const size_t bmpsize = 1ULL * image->scanline * image->height;
      if (bmpsize != bi.biSizeImage)
        WLog_WARN(TAG, "bmpsize=%" PRIuz " != bi.biSizeImage=%" PRIu32, bmpsize,
                  bi.biSizeImage);

      {
        size_t scanline = image->scanline;
        if (bi.biSizeImage < bmpsize)
        {
          /* Workaround for unaligned bitmaps */
          const size_t uscanline = image->width * bpp;
          const size_t unaligned = image->height * uscanline;
          if (bi.biSizeImage != unaligned)
            goto fail;
          scanline = uscanline;
        }

        image->data = nullptr;
        {
          const size_t asize = 1ULL * image->scanline * image->height;
          if (asize > 0)
            image->data = (BYTE*)malloc(asize);
        }

        if (!image->data)
          goto fail;

        if (!vFlip)
        {
          BYTE* pDstData = image->data;

          for (size_t index = 0; index < image->height; index++)
          {
            Stream_Read(s, pDstData, scanline);
            pDstData += image->scanline;
          }
        }
        else
        {
          BYTE* pDstData = &(image->data[(image->height - 1ull) * image->scanline]);

          for (size_t index = 0; index < image->height; index++)
          {
            Stream_Read(s, pDstData, scanline);
            pDstData -= image->scanline;
          }
        }
      }
    }
  }

  rc = 1;
fail:

  if (rc < 0)
  {
    free(image->data);
    image->data = nullptr;
  }

  return rc;
}

int winpr_image_read(wImage* image, const char* filename)
{
  int status = -1;

  FILE* fp = winpr_fopen(filename, "rb");
  if (!fp)
  {
    WLog_ERR(TAG, "failed to open file %s", filename);
    return -1;
  }

  (void)fseek(fp, 0, SEEK_END);
  INT64 pos = _ftelli64(fp);
  (void)fseek(fp, 0, SEEK_SET);

  if (pos > 0)
  {
    BYTE* buffer = malloc((size_t)pos);
    if (buffer)
    {
      size_t r = fread(buffer, 1, (size_t)pos, fp);
      if (r == (size_t)pos)
      {
        status = winpr_image_read_buffer(image, buffer, (size_t)pos);
      }
    }
    free(buffer);
  }
  (void)fclose(fp);
  return status;
}

int winpr_image_read_buffer(wImage* image, const BYTE* buffer, size_t size)
{
  BYTE sig[12] = WINPR_C_ARRAY_INIT;
  int status = -1;

  if (size < sizeof(sig))
    return -1;

  CopyMemory(sig, buffer, sizeof(sig));

  if ((sig[0] == 'B') && (sig[1] == 'M'))
  {
    image->type = WINPR_IMAGE_BITMAP;
    status = winpr_image_bitmap_read_buffer(image, buffer, size);
  }
  else if ((sig[0] == 'R') && (sig[1] == 'I') && (sig[2] == 'F') && (sig[3] == 'F') &&
           (sig[8] == 'W') && (sig[9] == 'E') && (sig[10] == 'B') && (sig[11] == 'P'))
  {
    image->type = WINPR_IMAGE_WEBP;
    const SSIZE_T rc =
        winpr_convert_from_webp(buffer, size, &image->width, &image->height,
                                &image->bitsPerPixel, &image->data, &image->scanline);
    if (rc >= 0)
    {
      image->bytesPerPixel = (image->bitsPerPixel + 7) / 8;
      status = 1;
    }
  }
  else if ((sig[0] == 0xFF) && (sig[1] == 0xD8) && (sig[2] == 0xFF) && (sig[3] == 0xE0) &&
           (sig[6] == 0x4A) && (sig[7] == 0x46) && (sig[8] == 0x49) && (sig[9] == 0x46) &&
           (sig[10] == 0x00))
  {
    image->type = WINPR_IMAGE_JPEG;
    const SSIZE_T rc =
        winpr_convert_from_jpeg(buffer, size, &image->width, &image->height,
                                &image->bitsPerPixel, &image->data, &image->scanline);
    if (rc >= 0)
    {
      image->bytesPerPixel = (image->bitsPerPixel + 7) / 8;
      status = 1;
    }
  }
  else if ((sig[0] == 0x89) && (sig[1] == 'P') && (sig[2] == 'N') && (sig[3] == 'G') &&
           (sig[4] == '\r') && (sig[5] == '\n') && (sig[6] == 0x1A) && (sig[7] == '\n'))
  {
    image->type = WINPR_IMAGE_PNG;
    const SSIZE_T rc =
        winpr_convert_from_png(buffer, size, &image->width, &image->height,
                               &image->bitsPerPixel, &image->data, &image->scanline);
    if (rc >= 0)
    {
      image->bytesPerPixel = (image->bitsPerPixel + 7) / 8;
      status = 1;
    }
  }

  return status;
}

wImage* winpr_image_new(void)
{
  wImage* image = (wImage*)calloc(1, sizeof(wImage));

  if (!image)
    return nullptr;

  return image;
}

void winpr_image_free(wImage* image, BOOL bFreeBuffer)
{
  if (!image)
    return;

  if (bFreeBuffer)
    free(image->data);

  free(image);
}

WINPR_ATTR_MALLOC(free, 1)
static void* winpr_convert_to_jpeg(WINPR_ATTR_UNUSED const void* data,
                                   WINPR_ATTR_UNUSED size_t size, UINT32 width, UINT32 height,
                                   UINT32 stride, UINT32 bpp, UINT32* pSize)
{
  WINPR_ASSERT(data || (size == 0));
  WINPR_ASSERT(pSize);

  *pSize = 0;
  if ((width == 0) || (height == 0) || (stride > SIZE_MAX / height) || (bpp < 1) || (bpp > 32))
    return nullptr;

#if !defined(WINPR_UTILS_IMAGE_JPEG)
  WLog_WARN(TAG, "JPEG not supported in this build");
  return nullptr;
#else
  BYTE* outbuffer = nullptr;
  unsigned long outsize = 0;
  struct jpeg_compress_struct cinfo = WINPR_C_ARRAY_INIT;

  const size_t expect1 = 1ull * stride * height;
  const size_t bytes = (bpp + 7) / 8;
  const size_t expect2 = 1ull * width * height * bytes;
  if (expect1 < expect2)
    return nullptr;
  if (expect1 > size)
    return nullptr;

  /* Set up the error handler. */
  WINPR_JPEG_ERROR_MGR jerr = WINPR_C_ARRAY_INIT;
  cinfo.err = jpeg_std_error(&jerr.pub);
  jerr.pub.error_exit = winpr_jpeg_error_exit;
  jpeg_create_compress(&cinfo);

  /* Set up error handling (must be after jpeg_create_compress). */
  if (setjmp(jerr.jump) != 0)
    goto fail;

  jpeg_mem_dest(&cinfo, &outbuffer, &outsize);

  cinfo.image_width = width;
  cinfo.image_height = height;
  WINPR_ASSERT(bpp <= INT32_MAX / 8);
  cinfo.input_components = (int)(bpp + 7) / 8;
  cinfo.in_color_space = (bpp > 24) ? JCS_EXT_BGRA : JCS_EXT_BGR;
  cinfo.data_precision = 8;

  jpeg_set_defaults(&cinfo);
  jpeg_set_quality(&cinfo, 100, TRUE);
  /* Use 4:4:4 subsampling (default is 4:2:0) */
  cinfo.comp_info[0].h_samp_factor = cinfo.comp_info[0].v_samp_factor = 1;

  jpeg_start_compress(&cinfo, TRUE);

  const JSAMPLE* cdata = data;
  for (size_t x = 0; x < height; x++)
  {
    WINPR_ASSERT(x * stride <= UINT32_MAX);
    const JDIMENSION offset = (JDIMENSION)x * stride;

    /* libjpeg is not const correct, we must cast here to avoid issues
     * with newer C compilers type check errors */
    JSAMPLE* coffset = WINPR_CAST_CONST_PTR_AWAY(&cdata[offset], JSAMPLE*);
    if (jpeg_write_scanlines(&cinfo, &coffset, 1) != 1)
      goto fail;
  }

  WINPR_ASSERT(outsize <= UINT32_MAX);
  *pSize = (UINT32)outsize;
  jpeg_finish_compress(&cinfo);
  jpeg_destroy_compress(&cinfo);

  return outbuffer;

fail:
  /* Do not call libjpeg again after an error (a longjmp may have left the
   * compressor in an undefined state); just clean up. */
  jpeg_destroy_compress(&cinfo);
  free(outbuffer);

  return nullptr;
#endif
}

// NOLINTBEGIN(readability-non-const-parameter)
SSIZE_T winpr_convert_from_jpeg(WINPR_ATTR_UNUSED const BYTE* comp_data,
                                WINPR_ATTR_UNUSED size_t comp_data_bytes,
                                WINPR_ATTR_UNUSED UINT32* width, WINPR_ATTR_UNUSED UINT32* height,
                                WINPR_ATTR_UNUSED UINT32* bpp,
                                WINPR_ATTR_UNUSED BYTE** ppdecomp_data, UINT32* scanline)
// NOLINTEND(readability-non-const-parameter)
{
  WINPR_ASSERT(comp_data || (comp_data_bytes == 0));
  WINPR_ASSERT(width);
  WINPR_ASSERT(height);
  WINPR_ASSERT(bpp);
  WINPR_ASSERT(ppdecomp_data);
  WINPR_ASSERT(scanline);

  *width = 0;
  *height = 0;
  *bpp = 0;
  *ppdecomp_data = nullptr;
  *scanline = 0;

#if !defined(WINPR_UTILS_IMAGE_JPEG)
  WLog_WARN(TAG, "JPEG not supported in this build");
  return -1;
#else
  struct jpeg_decompress_struct cinfo = WINPR_C_ARRAY_INIT;
  WINPR_JPEG_ERROR_MGR jerr = WINPR_C_ARRAY_INIT;
  SSIZE_T size = -1;
  BYTE* decomp_data = nullptr;

  cinfo.err = jpeg_std_error(&jerr.pub);
  jerr.pub.error_exit = winpr_jpeg_error_exit;
  jpeg_create_decompress(&cinfo);

  /* Set up error handling (must be after jpeg_create_decompress). */
  if (setjmp(jerr.jump) != 0)
    goto fail;

  jpeg_mem_src(&cinfo, comp_data, comp_data_bytes);

  if (jpeg_read_header(&cinfo, 1) != JPEG_HEADER_OK)
    goto fail;

  cinfo.out_color_space = cinfo.num_components > 3 ? JCS_EXT_RGBA : JCS_EXT_BGR;
  const int components = MAX(3, cinfo.num_components);

  *width = WINPR_ASSERTING_INT_CAST(uint32_t, cinfo.image_width);
  *height = WINPR_ASSERTING_INT_CAST(uint32_t, cinfo.image_height);
  *bpp = WINPR_ASSERTING_INT_CAST(uint32_t, cinfo.num_components * 8);

  if (!jpeg_start_decompress(&cinfo))
    goto fail;

  size_t stride = 1ULL * cinfo.image_width * WINPR_ASSERTING_INT_CAST(size_t, components);

  if ((stride == 0) || (cinfo.image_height == 0) || (stride > UINT32_MAX))
    goto fail;
  *scanline = (UINT32)stride;

  decomp_data = calloc(stride, cinfo.image_height);
  if (decomp_data)
  {
    while (cinfo.output_scanline < cinfo.image_height)
    {
      JSAMPROW row = &decomp_data[cinfo.output_scanline * stride];
      if (jpeg_read_scanlines(&cinfo, &row, 1) != 1)
        goto fail;
    }
    const size_t ssize = stride * cinfo.image_height;
    WINPR_ASSERT(ssize < SSIZE_MAX);
    size = (SSIZE_T)ssize;
  }
  jpeg_finish_decompress(&cinfo);

fail:
  jpeg_destroy_decompress(&cinfo);
  *ppdecomp_data = decomp_data;
  return size;
#endif
}

WINPR_ATTR_MALLOC(free, 1)
static void* winpr_convert_to_webp(WINPR_ATTR_UNUSED const void* data,
                                   WINPR_ATTR_UNUSED size_t size, WINPR_ATTR_UNUSED UINT32 width,
                                   WINPR_ATTR_UNUSED UINT32 height, WINPR_ATTR_UNUSED UINT32 stride,
                                   WINPR_ATTR_UNUSED UINT32 bpp, UINT32* pSize)
{
  WINPR_ASSERT(data || (size == 0));
  WINPR_ASSERT(pSize);

  *pSize = 0;

#if !defined(WINPR_UTILS_IMAGE_WEBP)
  WLog_WARN(TAG, "WEBP not supported in this build");
  return nullptr;
#else
  size_t dstSize = 0;
  uint8_t* pDstData = nullptr;
  WINPR_ASSERT(width <= INT32_MAX);
  WINPR_ASSERT(height <= INT32_MAX);
  WINPR_ASSERT(stride <= INT32_MAX);
  switch (bpp)
  {
    case 32:
      dstSize = WebPEncodeLosslessBGRA(data, (int)width, (int)height, (int)stride, &pDstData);
      break;
    case 24:
      dstSize = WebPEncodeLosslessBGR(data, (int)width, (int)height, (int)stride, &pDstData);
      break;
    default:
      return nullptr;
  }

  void* rc = nullptr;
  if (dstSize > 0)
    rc = malloc(dstSize);
  if (rc)
  {
    memcpy(rc, pDstData, dstSize);

    WINPR_ASSERT(dstSize <= UINT32_MAX);
    *pSize = (UINT32)dstSize;
  }

  WebPFree(pDstData);
  return rc;
#endif
}

SSIZE_T winpr_convert_from_webp(WINPR_ATTR_UNUSED const BYTE* comp_data,
                                WINPR_ATTR_UNUSED size_t comp_data_bytes, UINT32* width,
                                UINT32* height, UINT32* bpp, BYTE** ppdecomp_data, UINT32* scanline)
{
  WINPR_ASSERT(comp_data || (comp_data_bytes == 0));
  WINPR_ASSERT(width);
  WINPR_ASSERT(height);
  WINPR_ASSERT(bpp);
  WINPR_ASSERT(ppdecomp_data);
  WINPR_ASSERT(scanline);

  *width = 0;
  *height = 0;
  *bpp = 0;
  *ppdecomp_data = nullptr;
  *scanline = 0;

#if !defined(WINPR_UTILS_IMAGE_WEBP)
  WLog_WARN(TAG, "WEBP not supported in this build");
  return -1;
#else

  int w = 0;
  int h = 0;
  uint8_t* dst = WebPDecodeBGRA(comp_data, comp_data_bytes, &w, &h);
  if (!dst || (w < 0) || (h < 0))
  {
    free(dst);
    return -1;
  }

  if ((w <= 0) || ((UINT32)w > UINT32_MAX / 4ull) || (h <= 0) ||
      ((UINT32)h > UINT32_MAX / 4ul / (UINT32)w))
  {
    free(dst);
    return -1;
  }
  *width = WINPR_ASSERTING_INT_CAST(uint32_t, w);
  *height = WINPR_ASSERTING_INT_CAST(uint32_t, h);
  *bpp = 32;
  *scanline = (*width) * 4ul;
  *ppdecomp_data = dst;
  return 1ll * (*scanline) * h;
#endif
}

#if defined(WINPR_UTILS_IMAGE_PNG)
struct png_mem_encode
{
  char* buffer;
  size_t size;
};

static void png_write_data(png_structp png_ptr, png_bytep data, png_size_t length)
{
  /* with libpng15 next line causes pointer deference error; use libpng12 */
  struct png_mem_encode* p =
      (struct png_mem_encode*)png_get_io_ptr(png_ptr); /* was png_ptr->io_ptr */
  size_t nsize = p->size + length;

  /* allocate or grow buffer */
  if (p->buffer)
  {
    char* tmp = realloc(p->buffer, nsize);
    if (tmp)
      p->buffer = tmp;
  }
  else
    p->buffer = malloc(nsize);

  if (!p->buffer)
    png_error(png_ptr, "Write Error");

  /* copy new bytes to end of buffer */
  memcpy(p->buffer + p->size, data, length);
  p->size += length;
}

/* This is optional but included to show how png_set_write_fn() is called */
static void png_flush(WINPR_ATTR_UNUSED png_structp png_ptr)
{
}

WINPR_ATTR_NODISCARD
static SSIZE_T save_png_to_buffer(UINT32 bpp, UINT32 width, uint32_t stride, UINT32 height,
                                  const uint8_t* data, size_t size, void** pDstData)
{
  SSIZE_T rc = -1;
  png_structp png_ptr = nullptr;
  png_infop info_ptr = nullptr;
  png_byte** row_pointers = nullptr;
  struct png_mem_encode state = WINPR_C_ARRAY_INIT;

  *pDstData = nullptr;

  if (!data || (size == 0))
    return 0;

  if ((width == 0) || (height == 0) || (bpp == 0))
    return -1;

  WINPR_ASSERT(pDstData);

  if (size / height < stride)
    goto fail;

  /* Initialize the write struct. */
  png_ptr = png_create_write_struct(PNG_LIBPNG_VER_STRING, nullptr, nullptr, nullptr);
  if (png_ptr == nullptr)
    goto fail;

  /* Initialize the info struct. */
  info_ptr = png_create_info_struct(png_ptr);
  if (info_ptr == nullptr)
    goto fail;

  /* Set up error handling. */
  if (setjmp(png_jmpbuf(png_ptr)))
    goto fail;

  /* Set image attributes. */
  int colorType = PNG_COLOR_TYPE_PALETTE;
  if (bpp > 8)
    colorType = PNG_COLOR_TYPE_RGB;
  if (bpp > 16)
    colorType = PNG_COLOR_TYPE_RGB;
  if (bpp > 24)
    colorType = PNG_COLOR_TYPE_RGBA;

  const UINT32 pngChannels = (bpp > 24) ? 4 : ((bpp > 8) ? 3 : 1);
  const UINT32 srcBytesPerPixel = (bpp + 7) / 8;
  /* The row copy below emits exactly srcBytesPerPixel bytes per pixel; reject
   * inputs where that does not match the PNG channel count (e.g. 16bpp
   * sources), otherwise libpng reads past the (narrower) row buffer. */
  if ((srcBytesPerPixel != pngChannels) || (width > stride / srcBytesPerPixel))
  {
    WLog_ERR(TAG,
             "unsupported conversion to PNG: bpp=%" PRIu32 ", stride=%" PRIu32
             ", min expected stride=%llu",
             bpp, stride, 1ull * width * srcBytesPerPixel);
    goto fail;
  }

  png_set_IHDR(png_ptr, info_ptr, width, height, 8, colorType, PNG_INTERLACE_NONE,
               PNG_COMPRESSION_TYPE_DEFAULT, PNG_FILTER_TYPE_DEFAULT);

  /* Initialize rows of PNG. */
#if SIZE_MAX <= UINT32_MAX
  if (height > SIZE_MAX / sizeof(png_byte*))
    goto fail;
#endif

  row_pointers = (png_byte**)png_malloc(png_ptr, height * sizeof(png_byte*));
  for (size_t y = 0; y < height; ++y)
  {
    const uint8_t* line = &data[y * stride];

    if (width > SIZE_MAX / sizeof(uint8_t) / pngChannels)
      goto fail;

    uint8_t* row = png_malloc(png_ptr, sizeof(uint8_t) * width * pngChannels);
    row_pointers[y] = (png_byte*)row;
    for (size_t x = 0; x < width; ++x)
    {

      *row++ = *line++;
      if (bpp > 8)
        *row++ = *line++;
      if (bpp > 16)
        *row++ = *line++;
      if (bpp > 24)
        *row++ = *line++;
    }
  }

  /* Actually write the image data. */
  png_set_write_fn(png_ptr, &state, png_write_data, png_flush);
  png_set_rows(png_ptr, info_ptr, row_pointers);
  png_write_png(png_ptr, info_ptr, PNG_TRANSFORM_BGR, nullptr);

  /* Cleanup. */
  for (size_t y = 0; y < height; y++)
    png_free(png_ptr, row_pointers[y]);
  png_free(png_ptr, (void*)row_pointers);

  /* Finish writing. */
  if (state.size > SSIZE_MAX)
    goto fail;
  rc = (SSIZE_T)state.size;
  *pDstData = state.buffer;
fail:
  png_destroy_write_struct(&png_ptr, &info_ptr);
  if (rc < 0)
    free(state.buffer);
  return rc;
}

typedef struct
{
  png_bytep buffer;
  png_uint_32 bufsize;
  png_uint_32 current_pos;
} MEMORY_READER_STATE;

static void read_data_memory(png_structp png_ptr, png_bytep data, size_t length)
{
  MEMORY_READER_STATE* f = png_get_io_ptr(png_ptr);
  if (length > (f->bufsize - f->current_pos))
    png_error(png_ptr, "read error in read_data_memory (loadpng)");
  else
  {
    memcpy(data, f->buffer + f->current_pos, length);
    f->current_pos += length;
  }
}

WINPR_ATTR_MALLOC(free, 1)
static void* winpr_read_png_from_buffer(const void* data, size_t SrcSize, size_t* pSize,
                                        UINT32* pWidth, UINT32* pHeight, UINT32* pBpp,
                                        UINT32* pScanline)
{
  void* rc = nullptr;
  png_uint_32 width = 0;
  png_uint_32 height = 0;
  int bit_depth = 0;
  int color_type = 0;
  int interlace_type = 0;
  int transforms = PNG_TRANSFORM_IDENTITY;
  MEMORY_READER_STATE memory_reader_state = WINPR_C_ARRAY_INIT;
  png_bytepp row_pointers = nullptr;
  png_infop info_ptr = nullptr;

  *pSize = 0;
  *pWidth = 0;
  *pHeight = 0;
  *pBpp = 0;
  *pScanline = 0;

  if (SrcSize > UINT32_MAX)
    return nullptr;

  png_structp png_ptr = png_create_read_struct(PNG_LIBPNG_VER_STRING, nullptr, nullptr, nullptr);
  if (!png_ptr)
    goto fail;
  info_ptr = png_create_info_struct(png_ptr);
  if (!info_ptr)
    goto fail;

  /* Set up error handling. */
  if (setjmp(png_jmpbuf(png_ptr)))
    goto fail;

  memory_reader_state.buffer = WINPR_CAST_CONST_PTR_AWAY(data, png_bytep);
  memory_reader_state.bufsize = (UINT32)SrcSize;
  memory_reader_state.current_pos = 0;

  png_set_read_fn(png_ptr, &memory_reader_state, read_data_memory);

  transforms |= PNG_TRANSFORM_BGR;
  png_read_png(png_ptr, info_ptr, transforms, nullptr);

  if (png_get_IHDR(png_ptr, info_ptr, &width, &height, &bit_depth, &color_type, &interlace_type,
                   nullptr, nullptr) != 1)
    goto fail;

  WINPR_ASSERT(bit_depth >= 0);
  const png_byte channelcount = png_get_channels(png_ptr, info_ptr);
  const size_t bpp = channelcount * (size_t)bit_depth;

  row_pointers = png_get_rows(png_ptr, info_ptr);
  if (row_pointers)
  {
    if ((width == 0) || (width > SIZE_MAX / bpp))
      goto fail;

    const size_t png_stride = png_get_rowbytes(png_ptr, info_ptr);
    if ((png_stride == 0) || (height == 0) || (png_stride > SIZE_MAX / height))
      goto fail;
    const size_t size = 1ULL * png_stride * height;

    rc = calloc(png_stride, height);
    if (rc)
    {
      char* cur = rc;
      for (png_uint_32 i = 0; i < height; i++)
      {
        memcpy(cur, row_pointers[i], png_stride);
        cur += png_stride;
      }
      *pSize = size;
      *pWidth = width;
      *pHeight = height;
      WINPR_ASSERT(bpp <= UINT32_MAX);
      *pBpp = (UINT32)bpp;
      *pScanline = (UINT32)png_stride;
    }
  }
fail:

  png_destroy_read_struct(&png_ptr, &info_ptr, nullptr);
  return rc;
}
#endif

WINPR_ATTR_MALLOC(free, 1)
static void* winpr_convert_to_png(WINPR_ATTR_UNUSED const void* data, WINPR_ATTR_UNUSED size_t size,
                                  UINT32 width, UINT32 height, UINT32 stride, UINT32 bpp,
                                  UINT32* pSize)
{
  WINPR_ASSERT(data || (size == 0));
  WINPR_ASSERT(pSize);

  *pSize = 0;

  if ((width == 0) || (height == 0) || (stride == 0) || (bpp == 0))
    return nullptr;
  if (height > UINT32_MAX / stride)
    return nullptr;

#if defined(WINPR_UTILS_IMAGE_PNG)
  void* dst = nullptr;
  SSIZE_T rc = save_png_to_buffer(bpp, width, stride, height, data, size, &dst);
  if (rc <= 0)
    return nullptr;
  *pSize = (UINT32)rc;
  return dst;
#elif defined(WITH_LODEPNG)
  {
    BYTE* dst = nullptr;
    size_t dstsize = 0;
    unsigned rc = 1;

    switch (bpp)
    {
      case 32:
        rc = lodepng_encode32(&dst, &dstsize, data, width, height);
        break;
      case 24:
        rc = lodepng_encode24(&dst, &dstsize, data, width, height);
        break;
      default:
        break;
    }
    if (rc)
      return nullptr;
    *pSize = (UINT32)dstsize;
    return dst;
  }
#else
  WLog_WARN(TAG, "PNG not supported in this build");
  return nullptr;
#endif
}

SSIZE_T winpr_convert_from_png(WINPR_ATTR_UNUSED const BYTE* comp_data,
                               WINPR_ATTR_UNUSED size_t comp_data_bytes, UINT32* width,
                               UINT32* height, UINT32* bpp, BYTE** ppdecomp_data, UINT32* scanline)
{
  WINPR_ASSERT(comp_data || (comp_data_bytes == 0));
  WINPR_ASSERT(width);
  WINPR_ASSERT(height);
  WINPR_ASSERT(bpp);
  WINPR_ASSERT(ppdecomp_data);
  WINPR_ASSERT(scanline);

  *width = 0;
  *height = 0;
  *bpp = 0;
  *ppdecomp_data = nullptr;
  *scanline = 0;

#if defined(WINPR_UTILS_IMAGE_PNG)
  size_t len = 0;
  *ppdecomp_data =
      winpr_read_png_from_buffer(comp_data, comp_data_bytes, &len, width, height, bpp, scanline);
  if (!*ppdecomp_data)
    return -1;
  return (SSIZE_T)len;
#elif defined(WITH_LODEPNG)
  *bpp = 32;
  if (*width > UINT32_MAX / 4)
    return -1;

  SSIZE_T rc =
      lodepng_decode32((unsigned char**)ppdecomp_data, width, height, comp_data, comp_data_bytes);
  *scanline = *width * 4;
  return rc;
#else
  WLog_WARN(TAG, "PNG not supported in this build");
  return -1;
#endif
}

BOOL winpr_image_format_is_supported(UINT32 format)
{
  switch (format)
  {
    case WINPR_IMAGE_BITMAP:
#if defined(WINPR_UTILS_IMAGE_PNG) || defined(WITH_LODEPNG)
    case WINPR_IMAGE_PNG:
#endif
#if defined(WINPR_UTILS_IMAGE_JPEG)
    case WINPR_IMAGE_JPEG:
#endif
#if defined(WINPR_UTILS_IMAGE_WEBP)
    case WINPR_IMAGE_WEBP:
#endif
      return TRUE;
    default:
      return FALSE;
  }
}

WINPR_ATTR_MALLOC(free, 1)
static BYTE* convert(const wImage* image, size_t* pstride, WINPR_ATTR_UNUSED UINT32 flags)
{
  WINPR_ASSERT(image);
  WINPR_ASSERT(pstride);

  *pstride = 0;
  if (image->bitsPerPixel < 24)
    return nullptr;

  const size_t stride = image->width * 4ull;
  BYTE* data = calloc(stride, image->height);
  if (data)
  {
    for (size_t y = 0; y < image->height; y++)
    {
      const BYTE* srcLine = &image->data[image->scanline * y];
      BYTE* dstLine = &data[stride * y];
      if (image->bitsPerPixel == 32)
        memcpy(dstLine, srcLine, stride);
      else
      {
        for (size_t x = 0; x < image->width; x++)
        {
          const BYTE* src = &srcLine[image->bytesPerPixel * x];
          BYTE* dst = &dstLine[4ull * x];
          BYTE b = *src++;
          BYTE g = *src++;
          BYTE r = *src++;

          *dst++ = b;
          *dst++ = g;
          *dst++ = r;
          *dst++ = 0xff;
        }
      }
    }
    *pstride = stride;
  }
  return data;
}

WINPR_ATTR_NODISCARD
static BOOL compare_byte_relaxed(BYTE a, BYTE b, UINT32 flags)
{
  if (a != b)
  {
    if ((flags & WINPR_IMAGE_CMP_FUZZY) != 0)
    {
      const int diff = abs((int)a) - abs((int)b);
      /* filter out quantization errors */
      if (diff > 6)
        return FALSE;
    }
    else
    {
      return FALSE;
    }
  }
  return TRUE;
}

WINPR_ATTR_NODISCARD
static BOOL compare_pixel(const BYTE* pa, const BYTE* pb, UINT32 flags)
{
  WINPR_ASSERT(pa);
  WINPR_ASSERT(pb);

  if (!compare_byte_relaxed(*pa++, *pb++, flags))
    return FALSE;
  if (!compare_byte_relaxed(*pa++, *pb++, flags))
    return FALSE;
  if (!compare_byte_relaxed(*pa++, *pb++, flags))
    return FALSE;
  if ((flags & WINPR_IMAGE_CMP_IGNORE_ALPHA) == 0)
  {
    if (!compare_byte_relaxed(*pa++, *pb++, flags))
      return FALSE;
  }
  return TRUE;
}

BOOL winpr_image_equal(const wImage* imageA, const wImage* imageB, UINT32 flags)
{
  if (imageA == imageB)
    return TRUE;
  if (!imageA || !imageB)
    return FALSE;

  if (imageA->height != imageB->height)
    return FALSE;
  if (imageA->width != imageB->width)
    return FALSE;

  if ((flags & WINPR_IMAGE_CMP_IGNORE_DEPTH) == 0)
  {
    if (imageA->bitsPerPixel != imageB->bitsPerPixel)
      return FALSE;
    if (imageA->bytesPerPixel != imageB->bytesPerPixel)
      return FALSE;
  }

  BOOL rc = FALSE;
  size_t astride = 0;
  size_t bstride = 0;
  BYTE* dataA = convert(imageA, &astride, flags);
  BYTE* dataB = convert(imageA, &bstride, flags);
  if (dataA && dataB && (astride == bstride))
  {
    rc = TRUE;
    for (size_t y = 0; y < imageA->height; y++)
    {
      const BYTE* lineA = &dataA[astride * y];
      const BYTE* lineB = &dataB[bstride * y];

      for (size_t x = 0; x < imageA->width; x++)
      {
        const BYTE* pa = &lineA[x * 4ull];
        const BYTE* pb = &lineB[x * 4ull];

        if (!compare_pixel(pa, pb, flags))
          rc = FALSE;
      }
    }
  }
  free(dataA);
  free(dataB);
  return rc;
}

const char* winpr_image_format_mime(UINT32 format)
{
  switch (format)
  {
    case WINPR_IMAGE_BITMAP:
      return "image/bmp";
    case WINPR_IMAGE_PNG:
      return "image/png";
    case WINPR_IMAGE_WEBP:
      return "image/webp";
    case WINPR_IMAGE_JPEG:
      return "image/jpeg";
    default:
      return nullptr;
  }
}

const char* winpr_image_format_extension(UINT32 format)
{
  switch (format)
  {
    case WINPR_IMAGE_BITMAP:
      return "bmp";
    case WINPR_IMAGE_PNG:
      return "png";
    case WINPR_IMAGE_WEBP:
      return "webp";
    case WINPR_IMAGE_JPEG:
      return "jpg";
    default:
      return nullptr;
  }
}

void* winpr_image_write_buffer(wImage* image, UINT32 format, size_t* psize)
{
  WINPR_ASSERT(image);
  switch (format)
  {
    case WINPR_IMAGE_BITMAP:
    {
      UINT32 outsize = 0;
      size_t size = 1ull * image->height * image->scanline;
      void* data = winpr_bitmap_write_buffer(image->data, size, image->width, image->height,
                                             image->scanline, image->bitsPerPixel, &outsize);
      *psize = outsize;
      return data;
    }
    case WINPR_IMAGE_WEBP:
    {
      UINT32 outsize = 0;
      size_t size = 1ull * image->height * image->scanline;
      void* data = winpr_convert_to_webp(image->data, size, image->width, image->height,
                                         image->scanline, image->bitsPerPixel, &outsize);
      *psize = outsize;
      return data;
    }
    case WINPR_IMAGE_JPEG:
    {
      UINT32 outsize = 0;
      size_t size = 1ull * image->height * image->scanline;
      void* data = winpr_convert_to_jpeg(image->data, size, image->width, image->height,
                                         image->scanline, image->bitsPerPixel, &outsize);
      *psize = outsize;
      return data;
    }
    case WINPR_IMAGE_PNG:
    {
      UINT32 outsize = 0;
      size_t size = 1ull * image->height * image->scanline;
      void* data = winpr_convert_to_png(image->data, size, image->width, image->height,
                                        image->scanline, image->bitsPerPixel, &outsize);
      *psize = outsize;
      return data;
    }
    default:
      *psize = 0;
      return nullptr;
  }
}

Coverage Report

Created: 2026-10-15 06:27