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

← →
semensoft (2004-02-17 14:09) [0]

Всего то и надо изменить размер... Делаю через преобразование в bmp и обратно. Делю грубо на 2, ну и получается только четверть изображения.

procedure TForm1.Button1Click(Sender: TObject);
var bmp : TBitMap; jpg1:TJpegImage ; jpg2:TJpegImage ;
begin
jpg1:=TJPEGImage.Create;
jpg2:=TJPEGImage.Create;
bmp:=TBitmap.Create;
jpg1.LoadfromFile("C:\111.jpg");
bmp.Height:=jpg1.Height div 2;
bmp.Width:=jpg1.Width div 2;
bmp.Canvas.Draw(0,0,jpg1);
jpg2.Assign(bmp);
jpg2.SaveToFile("C:\222.jpg");
jpg1.Free;
jpg2.Free;
bmp.Free;
end;

Кто знает как сделать по уму. Заранее спасибо.

← →
TUser (2004-02-17 14:28) [1]

Надо copyrect

Изменение размеров jpg Найти похожие ветки