delphi 怎么处理bmp图，如下图，怎么提取每一小图？

2025-02-25 16:20:52

推荐回答（2个）

回答1：

这个方法很多哦，你可以先算出每个小图的长宽，再新建小图去取就行了。

比如原图为bmp1,我取第一张小图为bmp2;

var
bmp2 : TBitmap;
i,j : integer;
begin

bmp2 := TBitmap.Create(nil);
bmp2.width := 10; //依小图长宽定
bmp2.height := 10;//依小图长宽定
for i := 0 to bmp2.Width - 1 do
begin
for j := 0 to bmp2.Height - 1 do
begin
bmp2.Canvas.Pixels[i,j] := bmp1.Canvas.Pixels[i,j]; //将大图里对应的像素赋值给小图
end;
end;
end;

手打的，看看有没有语法错误

回答2：

这是图像处理问题，可以做的，需要收点辛苦费qq894822408