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

Как сохранить tbitmap в jpg?   Найти похожие ветки 

← →
rts111 ©   (2005-02-04 00:59) [0]

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

---

← →
i-s-v ©   (2005-02-04 02:34) [1]

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;

---

← →
rts111 ©   (2005-02-04 11:16) [2]

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

---

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

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



Память: 0.45 MB
Время: 0.026 c