bmp resimler

[akipek]

delphide herhangi bir bmp dosyasını alıp istediğim pixel boyutlarında küçültüp tekrar kayıt ettirmek istiyorum nasıl yapabilirim.

[Master_Yoda]

direk buraya yazıyorum syntax v.s. hatalarını giderirsin ....

Kod: Tümünü seç

var 
  bmp1,bmp2 : TBitmap ;
begin 
   bmp1:=Tbitmap.Create ;
   bmp2:=tbitmap.create;
   Try 
      bmp1.LoadFromfile('mypic.bmp');
      bmp2.pixelformat:=bmp1.pixelformat; // Çok gerekli değil .. 
      bmp2.Width:=80;// istediğin en
      bmp2.height:=100; // istediğin boy bunlar aşağıdaki 80 100 
      bmp2.canvas.stretchdraw(rect(0,0,80,100),bmp1);
      bmp2.SaveToFile('mypic2.bmp');
  Finally 
   bmp1.Free;
   bmp2.Free;
  End;

Kolay gelsin ..

[akipek]

ok. çok teşekkürler