Delphi图像处理代码下载
2015-01-03 22:03
357 查看
有不少读者看了我的图像处理文章后,希望得到源代码,我很早就写了一份Delphi图像处理单元,但一直没有时间测试整理,这次元旦抽时间进行了简单的整理,发布在CSDN,有需要的读者可去下载。
BLOG中的Delphi图像处理文章的代码属简化代码,可作参考。
由于水平有限,代码中不可避免的存在错误,望进行指证。
Delphi图像处理代码下载地址:http://download.csdn.net/detail/maozefa/8323289
2015年1月27日修正:
ImageUtils.pas的LineBrightContrast函数实现代码:
BLOG中的Delphi图像处理文章的代码属简化代码,可作参考。
由于水平有限,代码中不可避免的存在错误,望进行指证。
Delphi图像处理代码下载地址:http://download.csdn.net/detail/maozefa/8323289
2015年1月27日修正:
ImageUtils.pas的LineBrightContrast函数实现代码:
function LineBrightContrast(var Dest: TImageData; const Source: TImageData; Bright, Contrast: Integer; Threshold: Byte; Callback: TImageAbort; CallbackData: Pointer): Boolean; var bTab, Table: TGrayTable; begin _CheckCopyArgbData(Dest, Source); if Contrast = 0 then Result := _Execute(Dest, Source, @_DoBrightness, [Bright], Callback, CallbackData) else begin _GetLineBrightTable(Bright, bTab); _GetContrastsTable(Contrast, Threshold, bTab, Table); Result := _Execute(Dest, Source, @_DoTableReplace, [@Table], Callback, CallbackData); end; end;改为:
function LineBrightContrast(var Dest: TImageData; const Source: TImageData; Bright, Contrast: Integer; Threshold: Byte; Callback: TImageAbort; CallbackData: Pointer): Boolean; var bTab, Table: TGrayTable; begin _CheckCopyArgbData(Dest, Source); if (Bright <> 0) or (Contrast <> 0) then begin _GetLineBrightTable(Bright, bTab); _GetContrastsTable(Contrast, Threshold, bTab, Table); Result := _Execute(Dest, Source, @_DoTableReplace, [@Table], Callback, CallbackData); end else if Dest.Scan0 <> Source.Scan0 then Result := _Execute(Dest, Source, @_DoCopyArgbData, [], Callback, CallbackData) else Result := True; end;
相关文章推荐
- 收集的网络上大型的开源图像处理软件代码(提供下载链接)
- 收集的网络上大型的开源图像处理软件代码(提供下载链接)
- 收集的网络上大型的开源图像处理软件代码(提供下载链接)
- 收集的网络上大型的开源图像处理软件代码(提供下载链接)
- 收集的网络上大型的开源图像处理软件代码(提供下载链接)
- Delphi基本图像处理代码
- 收集的网络上大型的开源图像处理软件代码(提供下载链接)
- Delphi基本图像处理代码
- 收集的网络上大型的开源图像处理软件代码(提供下载链接)
- 收集的网络上大型的开源图像处理软件代码(提供下载链接)
- Delphi基本图像处理代码
- 收集的网络上大型的开源图像处理软件代码(提供下载链接)
- 收集的网络上大型的开源图像处理软件代码(提供下载链接)
- 收集的网络上大型的开源图像处理软件代码(提供下载链接)
- Delphi图像处理 -- 灰色浮雕
- jquery+.net实现类似开心网图像缩放截取功能(附代码下载)
- jquery+.net实现类似开心网图像缩放截取功能(附代码下载)
- Delphi图像处理中ScanLine的使用
- silverlight应用程序中未处理的错误代码:2104 类别:InitializeError 消息:无法下载 iis上部署Silverlight
- Delphi图像处理 -- 颜色矩阵变换