Delphi的TBitmap对象改进的图像线性亮度调整方法

最新推荐文章于 2021-02-20 07:43:41 发布

转载最新推荐文章于 2021-02-20 07:43:41 发布 · 1.2k 阅读

文章标签：

#delphi #integer #gdi+ #测试 #function #windows

DELPHI编程专栏收录该内容

379 篇文章

订阅专栏

本文介绍了一种改进的图像亮度调整算法，该算法基于Photoshop的对比度和饱和度调整原理，能够实现亮度调整不失真、保持良好的层次感，并减少信息损失，同时具有较快的运算速度。文中提供了一个使用Delphi TBitmap对象实现的示例代码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

线性图像亮度一般是将图像像素的RGB转换为HSL(HSV)等颜色空间，对L(V)部分进行增减调整后，再转换为RGB颜色空间，优点是调整过图像层次感很强；缺点是代码较复杂，调整速度慢，而且当图像亮度增减量较大时有很大的失真

针对上面两种方法的优缺点，本人参照Photoshop的对比度、饱和度调整原理,对图像亮度调整方法进行了改进，经测试，效果还不错：主要有不失真调整范围宽、有较好的层次感、尽可能减少图像信息损失量、运算速度较快及代码也不太复杂等。

下面给出采用Delphi的TBitmap对象调整亮度的Delphi测试代码（BASM过程），如果使用GDI+则更简单，因TImageData与GDI+的TBitmapData是兼容的

TImageData = packed record Width: Integer; // 像素宽度 Height: Integer; // 像素高度 Stride: Integer; // 扫描宽度 PixelFormat: Integer; // 像素信息的格式 Scan0: Pointer; // 扫描行首地址 Reserved: Integer; // 保留 end; PImageData = ^TImageData; procedure FillAlpha(Data: TImageData); asm mov ecx, [eax].TImageData.Width imul ecx, [eax].TImageData.Height mov edx, [eax].TImageData.Scan0 add edx, 3 mov eax, 255 cld @PixelLoop: mov [edx], al add edx, 4 loop @PixelLoop end; function GetBitmapData(Bitmap: TBitmap): TImageData; var FillFlag: Boolean; begin FillFlag := Bitmap.PixelFormat <> pf32bit; Bitmap.PixelFormat := pf32bit; Result.Width := Bitmap.Width; Result.Height := Bitmap.Height; Result.Stride := Result.Width shl 2; Result.Scan0 := Bitmap.ScanLine[Result.Height - 1]; Result.PixelFormat := -1; // Windows bitmap format flag Result.Reserved := 0; if FillFlag then FillAlpha(Result); end; procedure ImageLinearBrightness(Data: TImageData; Value: Integer); asm push esi push edi push ebx test edx, edx // if (Value == 0) return jz @end mov ebx, edx mov edi, eax jl @@2 cmp ebx, 255 // if (Value > 0) jle @@1 // { mov ebx, 255 // if (Value > 255) Value = 255 @@1: mov eax, 65536 // Value = 65536 / (256 - Value) - 256 mov ecx, 256 sub ecx, ebx cdq div ecx sub eax, 256 mov ebx, eax // } @@2: mov esi, [edi].TImageData.Height imul esi, [edi].TImageData.Width mov edi, [edi].TImageData.Scan0 cld @PixelLoop: mov ecx, 3 @RGBLoop: movzx eax, [edi] // rgb = rgb + rgb * value / 256 mov edx, eax imul eax, ebx sar eax, 8 add eax, edx jns @@3 xor eax, eax jmp @@4 @@3: cmp eax, 255 jle @@4 mov eax, 255 @@4: stosb loop @RGBLoop inc edi dec esi jnz @PixelLoop @end: pop ebx pop edi pop esi end; procedure TForm1.Button1Click(Sender: TObject); var Bmp: TBitmap; Jpg: TJPEGImage; Data: TImageData; begin Bmp := TBitmap.Create; Jpg := TJPEGImage.Create; Jpg.LoadFromFile('D:/001-1.jpg'); Bmp.Assign(Jpg); Jpg.Free; Data := GetBitmapData(Bmp); ImageLinearBrightness(Data, 100); Canvas.Draw(0, 0, Bmp); Bmp.Free; end;