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

Вниз

TPictures в TBitmap?   Найти похожие ветки 

← →
Rentgen ©   (2004-05-30 06:12) [0]

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

---

← →
Jel ©   (2004-05-30 17:34) [1]

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

---

← →
Goorus   (2004-05-31 03:49) [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;

---

← →
Rentgen ©   (2004-05-31 07:00) [3]

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

---

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

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

Наверх

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