Форум: "Начинающим";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Вниз

WMF => BMP   Найти похожие ветки 

← →
ArtemESC ©   (2005-09-18 21:24) [0]

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

---

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

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

---

← →
ShiFT   (2005-09-19 06:29) [2]

(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");

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.04 c