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

http://delphiworld.narod.ru/

DelphiWorld 6.0