Resim kesme ve kopyalam işlemleri

[nosedive]

Web cam den çekilen resim yatay olarak çektim diyelim. 288*352...bunu şoyle yükseklik aynı kalacak ama genişlik 352 değilde 200 olacak şekilde ortalayarak kırpma işleminden bahsediyorum...Photoshop kullananlar bilir bu işlemi..bunun için nasıl bir yol izlemeliyim...?

Forumda bunun la ilgili bişi bulamadım pek işimi görecek

[Opt2000]

Selam,

Öncelikle Width * Height diye yazarsan daha iyi olur Neyse,

Resmin 352 * 288 çözünürlüğünde ve sen ortadan 200*288'e crop etmek istiyorsan şu kodu çıkarmalısın.

1. 200 * 288 boyutunda, 24 bit (PixelFormat := pf24bit) bir resim tanımla.

Kod: Tümünü seç

var
  tmp:TBitmap;
begin
  tmp:=TBitmap.Create;
  tmp.Width := 200;
  tmp.Height := 288;
  tmp.PixelFormat := pf24bit;
end;

2. Bu resmin üzerine CopyRect ile kaynak resmin istediğin koordinatlarını kopyala

Kod: Tümünü seç

var
  ARect:TRect;
begin
  ARect.Left:=src.width div 2 - tmp.Width div 2;
  ARect.Top:=0;
  ARect.Right:=ARect.Left + tmp.Width;
  ARect.Bottom:=tmp.Height;

  tmp.Canvas.CopyRect(Rect(0,0,200,288), src.Canvas, ARect);
  tmp.SaveToFile('c:\CroppedBitmap.bmp');
  tmp.Free;
end;

[/code]

[nosedive]

Teşekkürler şuan bilgisayarımda delphi yok akşam deniyeceğim...

[nosedive]

tamam hallettim teşekkürler...