WMF ---> BMP |
Previous Top Next |
Code: |
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; |
Использование:
Code: |
ConvertWMF2BMP('c:\mypic.wmf','c:\mypic.bmp') |
©Drkb::04283
Взято из http://forum.sources.ru