Скачать: CL | DM;

Перевод рисунка из формата metafile в формат bitmap   Найти похожие ветки 

← →
Игорь Степанов   (2006-03-29 19:26) [0]

Уважаемые мастера,

Я создаю рисунок в формате Windows metafile для передачи его через буфер обмена в Excel. Одновременно мне нужно перевести рисунок в растровый формат bmp и сохранить на диске в виде самостоятельного файла.

Подскажите, пожалуйста, как произвести конвертацию форматов?

С уважением,

Игорь Степанов

---

← →
Джо ©   (2006-03-29 19:48) [1]

Создаешь экземпляр TBitmap нужного размера, затем рисуешь на его канве свой метафайл.

---

← →
Игорь Степанов   (2006-03-29 20:29) [2]

Означает ли это, что нужно весь код рисования заново воспроизвести для канвы растрового образа?

А нельзя ли как-нибудь просто преобразовать один формат в другой наподобие процедуры Assign?

С уважением,

Игорь Степанов

---

← →
Джо ©   (2006-03-29 20:40) [3]

Нет, это значит следующее:

var
 Metafile: TMetafile;
 Bitmap: TBitmap;
begin
 Metafile := TMetafile.Create;
 try
   Metafile.LoadFromFile("I:\pub\pic\Glyphs\MS\Metafile\Arrows\3DARROW5.WMF");

   Bitmap := TBitmap.Create;
   try
     Bitmap.Width := Metafile.Width;
     Bitmap.Height := Metafile.Height;
     Bitmap.Canvas.Draw(0,0,Metafile);
     Bitmap.SaveToFile("d:\test.bmp");
   finally
     Bitmap.Free;
   end;
 finally
   Metafile.Free;
 end;
end;


---

← →
Джо ©   (2006-03-29 20:42) [4]

Можно задавать и другой размер битмапа, и рисовать при помощи StretchDraw.

---

← →
Германн ©   (2006-03-30 01:53) [5]

> Игорь Степанов   (29.03.06 20:29) [2]
>
> А нельзя ли как-нибудь просто преобразовать один формат
> в другой наподобие процедуры Assign?


Assign, по своему смыслу означает копирование подобного в подобное.
Но метафайл - никак не подобен ни bmp-файлу, ни BitMap"у.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.17 c