Convert Bmp to MetaFile Wmf

 

        Procedure BmpToWmf ( Bmp , Wmf : String ) ;

Var

   MetaFile    : TMetaFile ;

   MFCanvas    : TMetaFileCanvas ;

   BMP         : TBitmap ;

Begin

   MetaFile := TMetaFile.Create ;

   BMP := TBitmap.create ;

   BMP.LoadFromFile ( Bmp ) ;

 

   MetaFile.Height := BMP.Height ;

   MetaFile.Width := BMP.Width ;

 

   MFCanvas := TMetafileCanvas.Create ( MetaFile , 0 ) ;

   With MFCanvas Do

   Begin

      Draw ( 0 , 0 , BMP ) ;

      Free ;

   End ;

   BMP.Free ;

 

   With MetaFile Do

   Begin

      SaveToFile ( Wmf ) ;

      Free ;

   End ;

End ;