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

Вопрос по JPG.   Найти похожие ветки 

← →
Cr@sh ©   (2002-09-18 15:26) [0]

Добрый день, Ув. Мастера. Подскажите, как сделать следующее:
Есть имэйдж в который грузится битмап, как сохранить картинку из этого имэйджа в jpg, чтобы при этом использовалась компрессия формата jpg?
Если просто сохранять, то jpg занимает столько же места, сколько и бмп. Что делать?
Заранее спасибо.

---

← →
Song ©   (2002-09-18 15:29) [1]

А как это "просто"?

---

← →
REA   (2002-09-18 15:31) [2]

Ну типа такого (выдержка из печати в файл):

Function TMyТипаClass.RenderBMP(PixelFormat: TPixelFormat): TBitmap;
Begin
Result := TBitmap.Create;
Result.HandleType := bmDDB; // Device independent
Result.PixelFormat := PixelFormat;
Result.Width := Round(Device.PageWidth*Device.XRes);
Result.Height := Round((Document.PageCount*Device.PageHeight)*Device.YRes);
PrintTo(Result.Canvas, 1);
End;

Function TMyТипаClass.RenderJPG(PixelFormat: TJPEGPixelFormat): TJPEGImage; // Scale, Quality
Var
bmp: TBitmap;
Begin
bmp := RenderBMP(pf24bit);
Try
Result := TJPEGImage.Create;
Result.CompressionQuality := 80;
Result.Smoothing := False;
Result.PixelFormat := PixelFormat;
Result.Performance := jpBestQuality;
Result.Assign(bmp);
Finally
bmp.Free;
End;
End;

---

← →
Cr@sh ©   (2002-09-18 15:31) [3]

>Song
image1.picture.savetofile("1.jpg");

---

← →
MBo ©   (2002-09-18 15:34) [4]

>Song
Тоже подозреваешь
Abitmap.SavetoFile("super.JPG") ?
:)

---

← →
Cr@sh ©   (2002-09-18 15:35) [5]

>REA
А без создания переменной TJPEGImage ни как нельзя?

---

← →
Cr@sh ©   (2002-09-18 15:36) [6]

>MBo
Не могли бы Вы помочь, Вы ведь всегда помогали...

---

← →
MBo ©   (2002-09-18 15:36) [7]

>без создания переменной TJPEGImage ни как нельзя?

Нет

---

← →
Song ©   (2002-09-18 15:36) [8]

2MBo © (18.09.02 15:34)
Ага, я так и думал.

---

← →
MBo ©   (2002-09-18 15:38) [9]

И посмотри свойство TJpegImage
CompressionQuality
(применять необязательно, какой-то уровень стоит по умолчанию)

---

← →
Cr@sh ©   (2002-09-18 15:40) [10]

А CompressionQuality какой обычно задается, чтобы не потерять сильно в качестве?

---

← →
MBo ©   (2002-09-18 15:48) [11]

в районе 70

---

← →
Cr@sh ©   (2002-09-18 16:09) [12]

Спасибо всем

---

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

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



Память: 0.47 MB
Время: 0.012 c