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

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

Как сохранить tbitmap в jpg?

rts111 ©   (2005-02-04 00:59:00) 

Как сохранить tbitmap в jpg-file?

---

rts111   (2005-02-04 11:16:00) [1]

Ok!
То что нужно!

---

i-s-v   (2005-02-04 02:34:00) [2]

procedure BMP2JPEG(const FileName: String);
var
 jpeg: TJPEGImage;
 bmp:  TBitmap;
begin
 JPEG := TJPEGImage.Create;
 bmp := TBitmap.Create;
 try
   bmp.LoadFromFile(FileName);
   jpeg.CompressionQuality := 100;
   jpeg.Assign(bmp);
 finally
   jpeg.Free;
   bmp.Free;
 end;

end;

---

Наверх