Вопрос по 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)
Ага, я так и думал.

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

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

в районе 70

Спасибо всем

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