请问如何把一幅图片切割成若干块并保存起来?

[feifei10]

请问如何把一幅图片切割成若干块并保存起来?

[liang_z]

我有一Cut的小工具，不还是人家的，可以切割任何文件为任意大小！

[torble]

是自己编程实现还是使用别人的软件？

[liang_z]

主人不在!

[光明山人]

// 比如切成10x10的图片；
Source: TBitmap; // 原来的图片
i, j: Integer;
NewBmp: Integer;

NewBmp := TBitmap.Create;
NewBmp.Width := Source.Width div 10;
NewBmp.Height := Source.Width div 10;
NewBmp.CopyMode := cmSrcCopy; // 这一句应当没有必要写
for i:=0 to 9 do
for j:=0 to 9 do
begin
NewBmp.Canvas.CopyRect( Rect(0, 0, NewBmp.Width, NewBmp.Height), Source.Canvas,
Rect(NewBmp.Width*i, NewBmp.Height*j, NewBmp.Width*(i+1), NewBmp.Height*(j+1)) );
NewBmp.SaveToFile( Format('%d-%d.bmp', [i, j]) ); // 我把文件存成了"0-0.bmp", "0-1.bmp", ..., "9-9.bmp"的格式
end;

NewBmp.Free;

我的程序没有试过，可能需要修改和调试。如有问题，来信：[e-mail]

[liang_z]

(阿贵):
去看看我的问题吧！好多分啊！

[光明山人]

liang_z(千山一刀之忍者神龟): 一定看，不过分高的难度往往大。:)

[光明山人]

liang_z(千山一刀之忍者神龟): 我怎样找到你的问题啊，用查找好象总是没有记录。（CSDN的查询有点问题好象）

[liang_z]

TO：阿贵
你查一下“多线程+MSSQL”,谢谢！