Как конвертировать Bitmap в EMF (Enhanced Metafile)Delphi , Графика и Игры , MetaFileКак конвертировать Bitmap в EMF (Enhanced Metafile)Автор: http://www.swissdelphicenter.ch 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; Статья Как конвертировать Bitmap в EMF (Enhanced Metafile) раздела Графика и Игры MetaFile может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |