15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


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

Пример:

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')