| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

WMF => BMP [D7, WinXP]

ArtemESC ©   (2005-09-18 21:24:00) 

Как это сделать?

---

ShiFT   (2005-09-19 06:29:00) [1]

(C) DRKB
procedure ConvertWMF2BMP( const WMFFileName, BMPFileName: TFileName);
var
 MetaFile : TMetafile;
 Bitmap : TBitmap;
begin
 Metafile := TMetaFile.Create;
 Bitmap := TBitmap.Create;
 try
   MetaFile.LoadFromFile(WMFFileName);
   with Bitmap do begin
     Height := Metafile.Height;
     Width  := Metafile.Width;
     Canvas.Draw(0, 0, MetaFile);
     SaveToFile(BMPFileName);
   end;
 finally
   Bitmap.Free;
   MetaFile.Free;
 end;
end;

//Использование:

ConvertWMF2BMP('c:\mypic.wmf','c:\mypic.bmp');

---

Игорь Шевченко   (2005-09-19 00:10:00) [2]

Нарисовать на Bitmap, сохранить в файл.

---

Наверх