2

Работаю с библиотекой libwebp.dll, которая позволяет декодировать/кодировать изображения из (в) формата Google WebP.

На сайте Code.google.com в репозитории, который находится тут (Dll + pas модуль - 182 КБ) была найдена библиотека libwebp.dll, которая вроде бы как позволяет производить манипуляции с вышеуказанным форматом. К библиотеке прилагается обертка libwebp.pas, в которой находятся необходимые мне функции:

    // Декодирование изображения 
function WebPDecodeRGB(const data: PByte; data_size: Cardinal; width, height: PInteger): PByte; cdecl; external LIB_WEBP;


//Кодирование изображения
function WebPEncodeRGB(const rgb: PByte; width, height, stride: Integer;   quality_factor: single; var output: PByte): Cardinal; cdecl; external LIB_WEBP;

Но как их правильно вызвать я не понимаю, точнее не понимаю как правильно вызывать параметры, которые должны быть в этих функциях. В конечном итоге хочется просто видеть два примера работы с данной библиотекой. А точнее как изображение из формата Google WebP декодировать в обычное битовое изображение в формате BMP, и соответственно обратная операция.

Почитав здесь информацию, понял что вроде бы как нужно создавать свой класс изображения, однако там все написано вскользь и конкретики никакой. Почитав на официальном сайте, который поддерживает данный формат, понял, что по своей сути Google WebP изображение является RIFF-контейнером.

Там же прочитал, что WebP может быть построен как DLL, которая экспортирует API libwebp.

Эти функции затем могут быть импортированы в C # и пример работы с функцией кодирования собственно, который приведен ниже.

[DllImport("libwebp.dll", CallingConvention = CallingConvention.Cdecl)]
static extern int WebPEncodeBGRA(IntPtr rgba, int width, int height, int stride,
                                 float quality_factor, out IntPtr output);
[DllImport("libwebp.dll", CallingConvention = CallingConvention.Cdecl)]
static extern int WebPFree(IntPtr p);

void Encode() {
  Bitmap source = new Bitmap("input.png");
  BitmapData data = source.LockBits(
      new Rectangle(0, 0, source.Width, source.Height),
      ImageLockMode.ReadOnly,
      PixelFormat.Format32bppArgb);
  IntPtr webp_data;
  const int size = WebPEncodeBGRA(data.Scan0,
                                  source.Width, source.Height, data.Stride,
                                  80, out webp_data);
  // ...
  WebPFree(webp_data);
}

Как реализовать функции кодирования/декодирования изображений?

2 ответа 2

2

Ничего сложного в этих функциях нет, за исключением того, что они сами выделяют память с помощью сишной функции malloc() или похожей, освобождать которую нужно free() из того же диспетчера C RTL.

WebPDecodeRGBInto использует готовый буфер, так что в одну сторону можно сработать без утечки.

P.S. Как @zed отметил, в библиотеке есть функция освобождения буферов WebPFree. Она описана здесь, но в экземпляре DLL, скачанном по ссылке, она не экспортируется. Видимо, нужна версия DLL посвежее.

На тестовой картинке гора с лесом.

var
  src, dst: TBytes;
  data, pb: PByte;
  iy, wdt, hgt, datasize, stride: Integer;
  bmp: TBitmap;
begin
  src := TFile.ReadAllBytes('test.webp');
  if WebPGetInfo(@src[0], Length(src), @wdt, @hgt) > 0 then begin

    bmp := TBitmap.Create;
    bmp.PixelFormat := pf24bit;
    bmp.Width := wdt;
    bmp.Height := hgt;
{
    //использование  WebPDecodeRGB ведёт к утечке памяти
    data := WebPDecodeRGB(@src[0], Length(src), @wdt, @hgt);
    for iy := 0 to hgt - 1 do
      MoveMemory(bmp.ScanLine[iy], @data[iy * wdt * 3], wdt * 3);
 }
    SetLength(dst, wdt*hgt*3);
    pb :=WebPDecodeRGBInto(@src[0], Length(src), @dst[0],Length(dst), wdt*3);
    for iy := 0 to hgt - 1 do
      MoveMemory(bmp.ScanLine[iy], @dst[iy * wdt * 3], wdt * 3);

    Canvas.Draw(0, 0, bmp);

    //пакуем опять в webp
    //увы, data не освободить - утечка
    stride := NativeInt(bmp.ScanLine[1]) - NativeInt(bmp.ScanLine[0]);
    datasize := WebPEncodeRGB(bmp.ScanLine[0], wdt, hgt, stride, 80, data);
    SetLength(src, datasize);
    MoveMemory(src, data, datasize);
    TFile.WriteAllBytes('tnew.webp', src);

    bmp.Free;
  end;
4
  • Наверное и пример можно было написать с использованием WebPDecodeRGBInto? А то копи-пастеры от утечек памяти будут страдать.
    – zed
    24 мая 2019 в 19:00
  • @zed Да, сделаю обратный процесс и это.
    – MBo
    24 мая 2019 в 19:02
  • Для освобождения памяти есть функция WebPFree, её же можно использовать и в декодере.
    – zed
    24 мая 2019 в 20:06
  • MBo, Огромное человеческое спасибо! 28 мая 2019 в 8:56
1

MBo, используя код (при чтении Webp), приведённый выше получилось так, что на выходе изображение получилось отличное от исходного. введите сюда описание изображения

Было решено уже в самом bitmap-е поменять каналы RGB (сделать так называемый swap) местами, тогда всё получается как нужно.

var
  src, dst: TBytes;
  iy, wdt, hgt, X, Y: Integer;
  bmp: TBitmap;
  R, G, B: Byte;
  C: TColor;
begin
  src := TFile.ReadAllBytes('test.webp');
  if WebPGetInfo(@src[0], Length(src), @wdt, @hgt) > 0 then
  begin
    bmp := TBitmap.Create;
    bmp.PixelFormat := pf24bit;
    bmp.Width := wdt;
    bmp.Height := hgt;
    SetLength(dst, wdt * hgt * 3);

    WebPDecodeRGBInto(@src[0], Length(src), @dst[0], Length(dst), wdt * 3);
    for iy := 0 to hgt - 1 do
      MoveMemory(bmp.ScanLine[iy], @dst[iy * wdt * 3], wdt * 3);
    begin
      for Y := 0 to bmp.Height - 1 do
      begin
        for X := 0 to bmp.Width - 1 do
        begin
          C := bmp.Canvas.Pixels[X, Y];
          R := GetRValue(C);
          G := GetGValue(C);
          B := GetBValue(C);
          bmp.Canvas.Pixels[X, Y] := RGB(B, G, R)
        end;
      end;
      Image1.Picture.Assign(bmp);
      bmp.Free;
    end;
  end;
end;
5
  • 1
    А WebPDecodeBGR не для этого ли случая предназначена?
    – MBo
    28 мая 2019 в 9:26
  • MBo, извиняюсь, конечно да. В той функции как раз битмап создаётся в как нужно.И ещё, вопрос возник как обратную операцию производить. Вроде понял что часть кода идёт после "//пакуем опять в webp", но как именно в Webp запихать обратно bmp так и не разобрался. Плюс там как-то могут применяться параметры сжатия самого BMP при кодировании его в WebP. Как их использовать? 28 мая 2019 в 9:39
  • Так я тот же битмап обратно запаковал. Размер webp будет не такой, как вначале - из-за сжатия.
    – MBo
    28 мая 2019 в 9:44
  • Т.е. моё предложенное решение вдруг перестало быть решением? ;)
    – MBo
    5 дек 2019 в 6:07
  • MBo, не-не-не, браузер глюкнул, решение самое верное... 5 дек 2019 в 10:57

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.