Convert WmfToJpeg

 

Implementation

............

Uses Jpeg ;

............

 

Procedure WmfToJpeg ( WMF , Jpeg : String ) ;

Var

   MetaFile    : TMetafile ;

   BMP         : TBitmap ;

   JpegFile    : TJpegImage ;

Begin

   Metafile := TMetaFile.create ;

   Bmp := TBitmap.create ;

   JpegFile := TJpegImage.Create ;

   MetaFile.LoadFromFile ( WMF ) ;

   With Bmp Do

   Begin

      Height := Metafile.Height ;

      Width := Metafile.Width ;

      Canvas.Draw ( 0 , 0 , MetaFile ) ;

      JpegFile.Assign ( BMP ) ;

      JpegFile.SaveToFile ( Jpeg ) ;

      Free ;

   End ;

   MetaFile.Free ;

   JpegFile.Free ;

End ;

 

            Example :

       

                WmfToJpeg ( 'YourWmf.wmf' , 'YourJpeg.jpg' ) ;