Форум: "Основная";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];
ВнизВопрос по 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 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c