Delphi图像处理代码下载

阿发伯

于 2015-01-03 22:03:11 发布

阅读量6k

点赞数 3

分类专栏： Delphi Delphi图像处理文章标签： Delphi 图像处理

本文链接：https://blog.csdn.net/maozefa/article/details/42371545

版权

有不少读者看了我的图像处理文章后，希望得到源代码，我很早就写了一份Delphi图像处理单元，但一直没有时间测试整理，这次元旦抽时间进行了简单的整理，发布在CSDN，有需要的读者可去下载。

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
  b