Изменение размеров jpg -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.138.85.72]

Модераторы: Rouse_, jack128, Krid

Изменение размеров jpg

RoboSol

Сообщ. #1 , 27.12.04, 12:49

Member

Профиль · PM

Рейтинг (т): 22

загрузи в bitmap, измени размеры, сделай Stretch и сохрани.

procedure TForm1.Button1Click(Sender: TObject);

var

bmp: TBItmap;

jpg: TJpegImage;

scale: Double;

begin

if opendialog1.execute then

begin

jpg := TJpegImage.Create;

try

jpg.Loadfromfile( opendialog1.filename );

if jpg.Height > jpg.Width then

scale := 50 / jpg.Height

else

scale := 50 / jpg.Width;

bmp:= Tbitmap.Create;

try

{Create thumbnail bitmap, keep pictures aspect ratio}

bmp.Width := Round( jpg.Width * scale );

bmp.Height:= Round( jpg.Height * scale );

bmp.Canvas.StretchDraw( bmp.Canvas.Cliprect, jpg );

{Draw thumbnail as control}

Self.Canvas.Draw( 100, 10, bmp );

{Convert back to JPEG and save to file}

jpg.Assign( bmp );

jpg.SaveToFile(ChangeFileext( opendialog1.filename, '_thumb.JPG' ));

finally

bmp.free;

end;

finally

jpg.free;

end;

Добавлено 27.12.04, 12:50
Експерементируй :-)

Добавлено 27.12.04, 13:03
Незабудь USES Jpeg;

Эта тема была разделена из темы "Изменение размера картинки jpeg"

Сообщение отредактировано: RoboSol - 27.12.04, 13:03

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0173 ] [ 15 queries used ] [ Generated: 15.05.24, 02:21 GMT ]