Delphi ile resim resize etme?

rastlantisal30.05.20112 cevap4.849 görüntüleme

#1
30.05.2011 14:19

Merhaba arkadaşlar.
Kullandığımız programdan excele veritabanından (oracle) rapor oluşturmak için bir programcık hazırladık. Program gayet güzel çalışıyor. Sorun şurdaki veritabanımızdaki resimler büyük ve raporun şeklini fazlası ile bozuyor.
Resmi, veritabanından hafızaya yazdırıp oradan tekrar buldurarak rapora yapıştırıyorum. buna göre bana lazım olan ise:
Hafızaki resmin boyutunu %50 oranında küçüktebilecek bir kod grubu. Hafızadaki resmi alıp %50 küçültüp tekrar hafızaya yazmam gerekiyor.
Yardımlarınız için şimdiden çok teşekkür ederim.
Saygılarımla
Ümit KOÇ

Cevaplar

evowinds

#2
30.05.2011 14:31

Şöyle bir şey buldum.
thumbnail := Form1.GetFormImage; burada kendi istediğin resmi
ataman gerekecek.
Bir de aşağıdaki sitede anlatılıyor ama İngilizce.
http://www.davdata.nl/math/bmresize.html

const maxWidth = 200; maxHeight = 150; var thumbnail : TBitmap; thumbRect : TRect; begin thumbnail := Form1.GetFormImage; try thumbRect.Left := 0; thumbRect.Top := 0; //proportional resize if thumbnail.Width > thumbnail.Height then begin thumbRect.Right := maxWidth; thumbRect.Bottom := (maxWidth * thumbnail.Height) div thumbnail.Width; end else begin thumbRect.Bottom := maxHeight; thumbRect.Right := (maxHeight * thumbnail.Width) div thumbnail.Height; end; thumbnail.Canvas.StretchDraw(thumbRect, thumbnail) ; //resize image thumbnail.Width := thumbRect.Right; thumbnail.Height := thumbRect.Bottom; //display in a TImage control Image1.Picture.Assign(thumbnail) ; finally thumbnail.Free; end; end;

rastlantisal Konuyu açan

#3
30.05.2011 15:01

Çok teşekkür ederim hemen deniyorum.

Cevabını yaz

Cevap yazmak için giriş yap ya da üye ol. Eski forum kullanıcı adın ve parolanla girebilirsin.