如果从一个tBitmap复制区一个区域到另一个tBitmap类？

[haochin]

var
  bmp1,bmp2 : tBitmap

从复制（截取）bmp1中的某个区域到bmp2中，
请问，要怎么做呢

[pathletboy]

bmp2.Canvas.CopyRect(Rect(100,100,200,200), bmp1.Canvas, Rect(0,0,100,100)); 从bmp1 0,0,100,100区域拷贝到bmp2 100,100,200,200区域

[金卯刀]

procedure CropBitmap(InBitmap, OutBitMap : TBitmap; X, Y, W, H :Integer);
begin
  OutBitMap.PixelFormat := InBitmap.PixelFormat;
  OutBitMap.Width  := W;
  OutBitMap.Height := H;
  BitBlt(OutBitMap.Canvas.Handle, 0, 0, W, H, InBitmap.Canvas.Handle, X, Y, SRCCOPY);
end;
//使用方式
Var
  Bmp : TBitmap;
begin
  Bmp:=TBitmap.Create;
  try
    CropBitmap(Image1.Picture.Bitmap, Bmp, 10,0, 150, 150);
    ....  
  finally
    Bmp.Free;
  end;
end;

[aniugee]

StretchBlt还可以进行缩放 楼上用JavaScript code也能把代码对的那么整齐

[程晨c]

可以用windows提供的BitBlt函数实现

[缘中人]

很热闹啊

[Blessed_Chuan]

bmp2.Assign(bmp1); 把bmp1的值给bmp2

[lyhoo163]

这是我的代码： 1、将图读入Image1； 2、Image2，无图，与Image1重叠；鼠标Image2模拟获取截图的左上点，右下点位置数据：XX1,YY1，XX2,YY2； 3、新图分辨率ComboBox1.ItemIndex 4、新的图，以ImagePath+TempName+'.bmp'文件名另存； 5、ChangeImageSize;显示截图 代码如下：

procedure TSeleteImageFrm.Button2Click(Sender: TObject);
var MyRect, NewRect: TRect;
    Bmp,NewBmp: TBitmap;
    s1,s2:string;
    W,H,WW,WH:integer;
    k,k1:double;
begin
  TempName:=Edit1.text;                // 文件名
  if (XX2=0) or (YY2=0) then
  begin
    XX1:=0;
    YY1:=0;
    XX2:=Image1.Picture.Graphic.Width;
    YY2:=Image1.Picture.Graphic.Height;
  end;
  Bmp:=TBitmap.Create;
  NewBmp:=TBitmap.Create;
  MyRect := Rect(XX1,YY1,XX2,YY2);
  NewRect := Rect(0,0,XX2-XX1, YY2-YY1);
  Bmp.Width:=XX2-XX1;
  Bmp.Height:=YY2-YY1;
  Bmp.Canvas.CopyRect(NewRect,Image2.Canvas, MyRect);
  case ComboBox1.ItemIndex of
    0: ChangeAnyPixels(Bmp,NewBmp,100,133);
    1: ChangeAnyPixels(Bmp,NewBmp,150,200);
    2: ChangeAnyPixels(Bmp,NewBmp,200,266);
    3: ChangeAnyPixels(Bmp,NewBmp,225,300);
    4: ChangeAnyPixels(Bmp,NewBmp,300,400);
  end;
  NewBMP.SaveToFile(ImagePath+TempName+'.bmp');
  Image1.Picture.Assign(BMP);
  Image2.Picture.Assign(BMP);
  ChangeImageSize;
  XX2:=0;
  YY2:=0;
  Bmp.Free;
  NewBmp.Free;
end;

[lyhoo163]

上述代码仅供参考。

[lyhoo163]

1、原图，使用鼠标选择区域

2、截图后生成的新图

[浮生若梦_平淡为真]

引用 1 楼 pathletboy 的回复:

bmp2.Canvas.CopyRect(Rect(100,100,200,200), bmp1.Canvas, Rect(0,0,100,100)); 从bmp1 0,0,100,100区域拷贝到bmp2 100,100,200,200区域

简单易行，

[Andy-88]

楼上热心人多 了 呵呵 我就不说了 方法也有很多种的

[rdfpl]

bmp.Canvas.CopyRect

[不得闲]

Canvas.CopyRect API Bitbl等都可以