Конвертирование WMF в GIF или PNG в Delphi

Delphi , Мультимедиа , Микрофон

Конвертирование WMF в GIF или PNG в Delphi

Одной из распространенных задач при работе с графическими файлами в Delphi является конвертирование WMF (Windows Metafile) изображений в более популярные форматы, такие как GIF или PNG. В этой статье мы рассмотрим, как это можно сделать с помощью библиотек runtime Delphi 2009 или более поздних версий.

Конвертирование WMF в PNG

Для конвертирования WMF в PNG в Delphi 2009 или более поздних версиях можно использовать компонент TPngImage. Вот пример кода, демонстрирующий, как это сделать:

procedure ConvertWMFtoPNG(inputFile, outputFile: string);
var
  p: TPicture;
  png: TPngImage;
begin
  try
    p := TPicture.Create;
    p.LoadFromFile(inputFile);
    png := TPngImage.CreateBlank(COLOR_RGB, 8, p.Width, p.Height);
    png.Canvas.Draw(0, 0, p.Graphic);
    png.SaveToFile(outputFile);
  finally
    Free(p);
    Free(png);
  end;
end;

В этом примере мы создаем экземпляр TPicture и загружаем в него WMF-файл с помощью метода LoadFromFile. Затем мы создаем экземпляр TPngImage с помощью метода CreateBlank, указав цветовую модель (COLOR_RGB) и глубину цвета (8 бит). После этого мы рисуем графическое изображение из TPicture на canvas TPngImage с помощью метода Draw. finally блок гарантирует, что объекты TPicture и TPngImage будут освобождены, даже если произойдет ошибка.

Конвертирование WMF в GIF

Для конвертирования WMF в GIF в Delphi можно использовать GDI+ или компонент TGifImage. Вот пример кода, демонстрирующий, как это сделать с помощью GDI+:

procedure ConvertWMFtoGIF(inputFile, outputFile: string);
var
  p: TPicture;
  gdiplus: TGdiplusToken;
  bitmap: TBitmap;
  graphics: TGPGraphics;
  image: TGifImage;
begin
  try
    p := TPicture.Create;
    p.LoadFromFile(inputFile);
    bitmap := TBitmap.Create;
    bitmap.PixelFormat := pf24bit;
    bitmap.SetSize(p.Width, p.Height);
    graphics := TGPGraphics.Create(bitmap.Canvas.Handle);
    graphics.DrawImage(p.Graphic, 0, 0);
    image := TGifImage.Create;
    image.Assign(bitmap);
    image.SaveToFile(outputFile);
  finally
    Free(p);
    bitmap.Free;
    graphics.Free;
    image.Free;
  end;
end;

В этом примере мы сначала создаем экземпляр TPicture и загружаем в него WMF-файл с помощью метода LoadFromFile. Затем мы создаем экземпляр TBitmap с 24-битной пиксельной форма

Создано по материалам из источника по ссылке.

Описание контекста: В статье рассматривается задача конвертирования WMF (Windows Metafile) изображений в форматы GIF или PNG в Delphi с помощью библиотек runtime Delphi 2009 или более поздних версий. Представлены примеры кода для конвертации WMF в PNG и W

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Микрофон ::