GDI+ 在Delphi程序的应用 -- 调整图像亮度

GDI+ 在Delphi程序的应用 -- 调整图像亮度

调整图像的亮度可以有很多方法，最常用的方法就是对图像像素点的R、G、B三个分量同时进行增加（减少）某个值，达到调整亮度的目的。我在这里使用GDI+图像的扫描线来处理，核心处理采用了2个相同的过程，一个是Pascal过程，一个是嵌入汇编过程，通过比较，对小的图像几乎没有什么区别，对比较大的图像处理还是有一定的区别（具体测试效果见代码中的注释），这说明Delphi的代码优化还是很好的。

使用GDI+图像的扫描线处理必须调用TGpBitmap.LockBits和TGpBitmap.UnLockBits过程，而这2个过程的调用相当耗时，以2304 *1728大小的图片为例，耗时竟达188毫秒！而亮度调整过程最长只耗时63毫秒。由此可以看出使用GDI+图像扫描线处理图像并非十分理想。

需要说明的是，本例子及以后GDI+ for Delphi例子的Gdiplus单元是本人自己写的，与目前网上流通的版本有一定的区别，浏览着需要测试例子，可作适当修改，或者发邮件向本人索取Gdiplus单元。

说明：为了统一《GDI+ 在Delphi程序的应用》系列文章所用数据类型和图像处理格式，本文代码已重新修订，代码中所用Gdiplus单元下载地址及BUG更正见文章《GDI+ for VCL基础 -- GDI+ 与 VCL》。(2008.8.18记)

数据类型：

1. type
2. //与GDI+TBitmapData结构兼容的图像数据结构
3. TImageData=packedrecord
4. Width:LongWord;//图像宽度
5. Height:LongWord;//图像高度
6. Stride:LongWord;//图像扫描线字节长度
7. PixelFormat:LongWord;//未使用
8. Scan0:Pointer;//图像数据地址
9. Reserved:LongWord;//保留
10. end;
11. PImageData=^TImageData;
13. //获取TBitmap图像的TImageData数据结构，便于处理TBitmap图像
14. functionGetImageData(Bmp:TBitmap):TImageData;
15. begin
16. Bmp.PixelFormat:=pf32bit;
17. Result.Width:=Bmp.Width;
18. Result.Height:=Bmp.Height;
19. Result.Scan0:=Bmp.ScanLine[Bmp.Height-1];
20. Result.Stride:=Result.Widthshl2;
21. //Result.Stride:=(((32*Bmp.Width)+31)and$ffffffe0)shr3;
22. end;

过程代码：

2. //调整图像亮度
3. procedureBrightness(Data:TImageData;Value:Integer);
4. asm
5. pushesi
6. pushedi
8. movedi,[eax+16]
9. movesi,[eax+4]
10. imulesi,[eax]
11. cld
12. @PixelLoop:
13. movecx,3
14. @RGBLoop:
15. movzxeax,[edi]
16. addeax,edx
17. jns@@1
18. xoreax,eax
19. jmp@@2
20. @@1:
21. cmpeax,255
22. jle@@2
23. moveax,255
24. @@2:
25. stosb
26. loop@RGBLoop
27. incedi
28. decesi
29. jnz@PixelLoop
31. popedi
32. popesi
33. end;
35. //调整GDI+图像亮度
36. procedureGdipBrightness(Bmp:TGpBitmap;Value:Integer);
37. var
38. Data:TBitmapData;
39. begin
40. ifValue=0thenExit;
41. Data:=Bmp.LockBits(GpRect(0,0,Bmp.Width,Bmp.Height),[imRead,imWrite],pf32bppARGB);
42. try
43. Brightness(TImageData(Data),Value);
44. finally
45. Bmp.UnlockBits(Data);
46. end;
47. end;
49. //调整TBitmap图像亮度
50. procedureBitmapBrightness(Bmp:TBitmap;Value:Integer);
51. begin
52. ifValue<>0then
53. Brightness(GetImageData(Bmp),Value);
54. end;

测试代码：

1. //为方便初学者理解前面的BASM代码，写了个处理GDI+图像亮度的纯Pas代码过程
2. //稍稍改动一下，也可用来处理TBitmap图像亮度
3. procedureGdipBrightness_Pas(Bmp:TGpBitmap;Value:Integer);
5. functionSetRGBValue(Rgb:Byte):Integer;
6. begin
7. Result:=Value+Rgb;//像素颜色分量+亮度值
8. ifResult<0then//像素颜色分量>=0and<=255
9. Result:=0
10. elseifResult>255then
11. Result:=255;
12. end;
14. var
15. Data:TBitmapData;
16. P:PRGBQuad;
17. I,Count:LongWord;
18. begin
19. ifValue=0thenExit;
20. Data:=Bmp.LockBits(GpRect(0,0,Bmp.Width,Bmp.Height),[imRead,imWrite],pf32bppARGB);
21. try
22. Count:=Data.Width*Data.Height;
23. P:=Data.Scan0;
24. forI:=1toCountdo
25. begin
26. P^.rgbBlue:=SetRGBValue(P^.rgbBlue);
27. P^.rgbGreen:=SetRGBValue(P^.rgbGreen);
28. P^.rgbRed:=SetRGBValue(P^.rgbRed);
29. Inc(P);
30. end;
31. finally
32. Bmp.UnlockBits(Data);
33. end;
34. end;
36. //测试GDI+图像
37. procedureTForm1.Button1Click(Sender:TObject);
38. var
39. Image:TGpBitmap;
40. g:TGpGraphics;
41. begin
42. Image:=TGpBitmap.Create('D:\VclLib\GdiplusDemo\Media\20041001.jpg');
43. g:=TGpGraphics.Create(Handle,False);
44. g.DrawImage(Image,10,10);
45. //GdipBrightness_Pas(Image,30);
46. GdipBrightness(Image,30);
47. g.DrawImage(Image,10,220);
48. Image.Free;
49. g.Free;
50. end;
52. //测试TBitmap图像
53. procedureTForm1.Button2Click(Sender:TObject);
54. var
55. Image:TBitmap;
56. begin
57. Image:=TBitmap.Create;
58. Image.LoadFromFile('D:\VclLib\GdiplusDemo\Media\20041001.bmp');
59. Canvas.Draw(10,10,Image);
60. BitmapBrightness(Image,-30);
61. Canvas.Draw(10,220,Image);
62. Image.Free;
63. end;