GDI+ 在Delphi程序的应用 Photoshop浮雕效果

实现图像浮雕效果的一般原理是，将图像上每个像素点与其对角线的像素点形成差值，使相似颜色值淡化，不同颜色值突出，从而产生纵深感，达到浮雕的效果，具体的做法是用处于对角线的2个像素值相减，再加上一个背景常数，一般为128而成。这种算法的特点是简单快捷，缺点是不能调节图像浮雕效果的角度和深度。

    用Photoshop实现图像浮雕效果，可以任意调节浮雕角度和深度（2个像素点的距离），还可以调整浮雕像素差值的数量。其基本算法原理和一般浮雕效果相同，但是具体做法不一样：对每个要处理的像素点，首先按照浮雕角度和深度计算处2个相应点的位置，然后计算这2个位置的颜色值，并使之形成差值，再乘上浮雕差值数量百分比，最后加上128的背景色。注意，这里计算的2个相应点是逻辑点，而不是实际的像素点，比如实现一个45度角，深度为3的图像浮雕效果，对每个像素点P(x, y)，其对应的2个逻辑点的位置分别是P0(x - 3 * 0.7071 / 2, y - 3 * 0.7071 / 2)和P1(x + 3 * 0.7071 / 2, y + 3 * 0.7071 / 2)，显然，对于这样的2个逻辑点，是不能直接从图像中找到其对应的像素点的，如果简单地对其四舍五入处理，将会造成大量的，由不同角度和深度而形成的相同的浮雕效果，这可不是我们想要的结果，而且使浮雕角度和深度参数失去了它原本的意义。为此，必须对原始图像按浮雕角度和深度进行缩放后，再对每个像素点进行浮雕效果处理，完毕再缩放回原图的大小，从而完成整个浮雕效果过程。下面是我经过反复试验后，写的Photoshop浮雕效果实现过程代码：

    数据类型：

1. type
2.   // 与GDI+ TBitmapData结构兼容的图像数据结构
3.    TImageData = packed record
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. function GetImageData(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.Width shl 2;
21. //   Result.Stride := (((32 * Bmp.Width) + 31) and $ffffffe0) shr 3;
22. end;