BMP ---> WMF |
Previous Top Next |
Code: |
procedure ConvertBMP2WMF (const BMPFileName, WMFFileName: TFileName); var MetaFile : TMetafile; Bitmap : TBitmap; begin Metafile := TMetaFile.Create; Bitmap := TBitmap.Create; try Bitmap.LoadFromFile(BMPFileName); with MetaFile do begin Height := Bitmap.Height; Width := Bitmap.Width; Canvas.Draw(0, 0, Bitmap); SaveToFile(WMFFileName); end; finally Bitmap.Free; MetaFile.Free; end; end; |
Использование:
Code: |
ConvertBMP2WMF('c:\mypic.bmp','c:\mypic.wmf') |
©Drkb::04272
Взято из http://forum.sources.ru
Code: |
procedure TForm1.Button1Click(Sender: TObject); var m : TmetaFile; mc : TmetaFileCanvas; b : tbitmap; begin m := TMetaFile.Create; b := TBitmap.create; b.LoadFromFile('C:.bmp'); m.Height := b.Height; m.Width := b.Width; mc := TMetafileCanvas.Create(m, 0); mc.Draw(0, 0, b); mc.Free; b.Free; m.SaveToFile('C:.emf'); m.Free; Image1.Picture.LoadFromFile('C:.emf'); end; |
©Drkb::04273
DelphiWorld 6.0