Как преобразовать WMF в BMP

Delphi , Графика и Игры , MetaFile

procedure ConvertWMF2BMP
  (const WMFFileName, BMPFileName: TFileName);
var
  MetaFile: TMetafile;
  Bitmap: TBitmap;
begin
  Metafile := TMetaFile.Create;
  Bitmap := TBitmap.Create;
  try
    MetaFile.LoadFromFile(WMFFileName);
    with Bitmap do
    begin
      Height := Metafile.Height;
      Width := Metafile.Width;
      Canvas.Draw(0, 0, MetaFile);
      SaveToFile(BMPFileName);
    end;
  finally
    Bitmap.Free;
    MetaFile.Free;
  end;
end;

// Использование:
ConvertWMF2BMP('c:\mypic.wmf', 'c:\mypic.bmp')

Here is the translation of the text into Russian:

Код, который вы предоставили, - это процедура Delphi под именем ConvertWMF2BMP, которая конвертирует файл Windows Metafile (WMF) в файл Bitmap (BMP).

Вот как она работает:

1. Она создает два экземпляра объектов TMetaFile и TBitmap: MetaFile и Bitmap.
2. Она загружает WMF-файл с помощью метода LoadFromFile объекта TMetaFile.
3. Она устанавливает высоту и ширину объекта Bitmap, чтобы они соответствовали размерам загруженного WMF-файла.
4. Она использует метод Draw свойства Canvas объекта Bitmap, чтобы нарисовать содержимое WMF-файла на битмапе.
5. Наконец, она сохраняет конвертированный битмап в файл BMP с помощью метода SaveToFile.

Вот некоторые предложения по улучшению:

• Вам может потребоваться добавить обработку ошибок для случаев, когда WMF-файл не может быть загружен или сохранен.
• Если вы работаете с большими WMF-файлами, вам может потребоваться использовать более эффективный способ рисования содержимого, например, GDI+ или DirectX.
• Вам также можно добавить опции для регулирования качества конвертации (например, использовать дithering) и для указания формата вывода (например, BMP, PNG, JPEG).

Вот обновленная версия кода с некоторым основным обработкой ошибок:

procedure ConvertWMF2BMP(const WMFFileName, BMPFileName: TFileName);
var
  MetaFile: TMetafile;
  Bitmap: TBitmap;
begin
  try
    MetaFile := TMetaFile.Create;
    Bitmap := TBitmap.Create;
    try
      if not MetaFile.LoadFromFile(WMFFileName) then
        raise Exception.Create('Ошибка загрузки WMF-файла');

      with Bitmap do
      begin
        Height := MetaFile.Height;
        Width := MetaFile.Width;
        Canvas.Draw(0, 0, MetaFile);
        SaveToFile(BMPFileName);
      end;
    finally
      Bitmap.Free;
    end;
  except
    on E: Exception do
      ShowMessage(E.Message);
  finally
    MetaFile.Free;
  end;
end;

Вы можете использовать эту процедуру, вызвав ее с путями и именами файлов WMF и BMP, которые вы хотите конвертировать:

ConvertWMF2BMP('c:\mypic.wmf', 'c:\mypic.bmp');

Процедура ConvertWMF2BMP конвертирует файл WMF в BMP, загружая мета-файл WMF и отображая его на холсте TBitmap, а затем сохраняя результат в формате BMP.

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

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

:: Главная :: MetaFile ::