Как конвертировать Bitmap в EMF (Enhanced Metafile)

Советы » GIF, JPEG, MetaFile » Как конвертировать Bitmap в EMF (Enhanced Metafile)

function bmp2emf(const
 SourceFileName: TFileName): Boolean;
// Converts a Bitmap to a Enhanced Metafile (*.emf)
var

  Metafile: TMetafile;
  MetaCanvas: TMetafileCanvas;
  Bitmap: TBitmap;
begin

  Metafile := TMetaFile.Create;
  try

    Bitmap := TBitmap.Create;
    try

      Bitmap.LoadFromFile(SourceFileName);
      Metafile.Height := Bitmap.Height;
      Metafile.Width := Bitmap.Width;
      MetaCanvas := TMetafileCanvas.Create(Metafile, 0);
      try

        MetaCanvas.Draw(0, 0, Bitmap);
      finally

        MetaCanvas.Free;
      end
;
    finally

      Bitmap.Free;
    end
;
    Metafile.SaveToFile(ChangeFileExt(SourceFileName, '.emf'));
  finally

    Metafile.Free;
  end
;
end
;

procedure
 TForm1.Button1Click(Sender: TObject);
begin

  bmp2emf('C:TestBitmap.bmp');
end
;

Как сделать калькулятор в Delphi?

Как Delphi реализует многоплатформенную разработку?

Как конвертировать Bitmap в EMF (Enhanced Metafile)

Другое по теме:

Категории

Статьи

Советы