Delphi jpg resim boyutlandırma

bmp_to_jpg_delphi

Merhaba arkadaşlar,

Aşağıda yer alan BoyutlandırJpg fonksiyonu jpeg resmi, genişlik ve yükseklik olmak üzere 3 parametre alır. Gelen jpeg resmini, genişlik ve yükseklik değerine göre boyutlandırır geriye bu yeni boyutlu jpeg resmini döndürür.

function BoyutlandirJpg(degisecekjpg:TJPEGImage;width:integer;height:integer):TJPEGImage;
var
bmp : TBitmap;
r : TRect;
begin
bmp := TBitmap.Create;
try
r := Rect(0, 0, width, height);
bmp.Width := r.Right;
bmp.Height := r.Bottom;
bmp.Canvas.StretchDraw(r, degisecekjpg);
degisecekjpg.Assign(bmp);
//save it
BoyutlandirJpg:=degisecekjpg;
finally
bmp.Free;
end;
end;



Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir