Уменьшение размера 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;

Уменьшение размера JPEG файла Найти похожие ветки