Форум: "Начинающим";
Текущий архив: 2006.06.11;
Скачать: [xml.tar.bz2];
Вниз
Уменьшение размера JPEG файла Найти похожие ветки
← →
Yegorchic © (2006-05-28 00:31) [0]Здаравствуйте! Подскажите, как можно изменить размеры JPEG файла? (щирину и высоту).
Я пытался сделать так:
jpg.Height:=...
jpg.Width:=...
(где jpg - TJPEGImage)
Но говорит, что так нельзя.
Да и ещё, ведь если изменить размеры, то тогда картинка "обрежется" или "сожмётся"?
← →
DevilDevil © (2006-05-28 01:17) [1]
procedure ChangeJpegSizes(Jpeg : TJpegImage, Width, Height : integer);
var B : TBitmap;
begin
try
B := TBitmap.Create;
B.PixelFormat := pf24bit;
B.Width := Width;
B.Height := Height;
B.Canvas.StretchDraw(B.Canvas.ClipRect, Jpeg);
Jpeg.Assign(B);
finally
B.Free;
end;
end;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.06.11;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.013 c
