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

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

TPictures в TBitmap? [D6, WinXP]

Rentgen ©   (2004-05-30 06:12:00) 

Здравствуйте.
Загружаю картинку:
image1.picture.loadfromfile('Pict.JPG');
А как сохранить ее в формат BMP?

---

Rentgen   (2004-05-31 07:00:00) [1]

Спасибо! Отлично работает!

---

Goorus   (2004-05-31 03:49:00) [2]

>>Jel
Что-то сомневаюсь. По моему Picture.Bitmap будет равно nil.

>>Rentgen

procedure SaveAsBmp(const fn:String);
var bmp:TBitmap;
begin
 bmp:=TBitmap.Create;
 bmp.Width :=Image1.Picture.Graphic.Width;
 bmp.Height:=Image1.Picture.Graphic.Height;
 bmp.Canvas.Draw(0, 0, Image1.Picture.Graphic);
 // Теперь в bmp хранится изображение в соответствующем формате
 bmp.SaveToFile(fn);
end;

---

Jel   (2004-05-30 17:34:00) [3]

image1.picture.Bitmap.SaveToFile('YouBmpFile.bmp');

---

Наверх