Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.06.11;
Скачать: CL | DM;

Вниз

Уменьшение размера 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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.029 c
6-1131706926
Volf_555
2005-11-11 14:02
2006.06.11
Как о


1-1146027596
bsframer
2006-04-26 08:59
2006.06.11
Обработка текстовых файлов больших размеров (2 - 3 ГГб)


2-1148728019
manevil
2006-05-27 15:06
2006.06.11
Запрос


6-1139390426
Lynx_rus
2006-02-08 12:20
2006.06.11
Выбор Dialap- соеденения


2-1148368133
Roman_ln
2006-05-23 11:08
2006.06.11
Алгорим перевода из десятичной в двоичную СС