WMF в BMP

Материал из DRKB


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


Source: http://forum.sources.ru
ID: 04283


См. также[править | править код]