将以下C#代码转换为DELPHI的··
public Bitmap Convolute(Bitmap srcImage)
{
if (scale == 0) scale = 1;
int width = srcImage.Width;
int height = srcImage.Height;
Bitmap dstImage = (Bitmap)srcImage.Clone();
BitmapData srcData = srcImage.LockBits(new Rectangle(0, 0, width, height),
ImageLockMode.ReadOnly, PixelFormat.Format32bppArgb);
BitmapData dstData = dstImage.LockBits(new Rectangle(0, 0, width, height),
ImageLockMode.WriteOnly, PixelFormat.Format32bppArgb);
int rectTop = 1;
int rectBottom = height - 1;
int rectLeft = 1;
int rectRight = width - 1;
unsafe
{
byte* src = (byte*)srcData.Scan0;
byte* dst = (byte*)dstData.Scan0;
int stride = srcData.Stride;
int offset = stride - width * BPP;
int pixel = 0;
src += stride;
dst += stride;
for (int y = rectTop; y < rectBottom; y++)
{
src += BPP;
dst += BPP;
for (int x = rectLeft; x < rectRight; x++)
{
if (src[3] > 0)
{
for (int i = 0; i < 3; i++)
{
pixel =src[i - stride - BPP] * topLeft +
src[i - stride] * topMid +
src[i - stride + BPP] * topRight +
src[i - BPP] * midLeft +
src[i] * center +
src[i + BPP] * midRight +
src[i + stride - BPP] * bottomLeft +
src[i + stride] * bottomMid +
src[i + stride + BPP] * bottomRight;
pixel = pixel / scale + kernelOffset;
if (pixel < 0) pixel = 0;
if (pixel > 255) pixel = 255;
dst[i] = (byte)pixel;
}
}
src += BPP;
dst += BPP;
}
src += (offset + BPP);
dst += (offset + BPP);
}
}
srcImage.UnlockBits(srcData);
dstImage.UnlockBits(dstData);
srcImage.Dispose();
return dstImage;
}
