Delphi GDI+ 图形处理（3）

最新推荐文章于 2021-08-23 10:16:15 发布
最新推荐文章于 2021-08-23 10:16:15 发布
阅读量1.4k 收藏 1
点赞数
文章标签： delphi 绘图 GDI+
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/lailai186/article/details/8761429
版权
本文介绍了使用Delphi的GDI+进行图像处理的几种基本算法，包括柔化、锐化、图像混合、转为灰度图像、对比度调整、反色处理、亮度调整、浮雕效果和马赛克效果，并提供了相应的源代码示例。
摘要由CSDN通过智能技术生成
探究Delphi的图形处理 之七 -- 柔化和锐化处理　

 

　 第三章           基本图像处理算法

3.1柔化和锐化处理

柔化处理的原理是将图片中每一个像素都由与其相邻的n*n个像素的平均值来代替。N的取值决定了其模糊程度。下面是柔化处理的程序。

程序3.1

unit Unit1;

{柔化处理}

Interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, GraphicProcess, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    PaintBox1: TPaintBox;

    btnExe: TButton;

    txtN: TEdit;

    Label1: TLabel;

    procedure FormCreate(Sender: TObject);

    procedure PaintBox1Paint(Sender: TObject);

    procedure btnExeClick(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

  private

    Procedure SmoothPicture(const Bit : TBitmap;var  n : Integer);

  public

    { Public declarations }

  end;

 procedure WritePixel(Pic: TBitmap; tPix: TPixels);

 procedure ReadPixel(Pic: Tbitmap; var tPix: TPixels);

var

  Form1: TForm1;

  Bits : TBitmap;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

  Bits:=TBitmap.Create;

  Bits.LoadFromFile(‘Test.Bmp‘);

end;

procedure TForm1.PaintBox1Paint(Sender: TObject);

begin

  PaintBox1.Canvas.StretchDraw(Rect(0,0,400,300),Bits);

end;

procedure TForm1.SmoothPicture(const Bit: TBitmap;var n: Integer);

var R,G,B:Integer;

    i,j,k,l : Integer;

    Pix : TPixels;

    nDiv : Integer;

    nDivRs : Integer;

    jP,jM,ip,im:Integer;

    OpCount : Integer;

begin

  ReadPixel(Bit,Pix);

  if n mod 2 = 0 then n := n +1;

  nDiv := n * n;

  nDivRs := n div 2;

  For i := 0 to Bit.Width-1 do begin

    ip:= i + nDivRs;

    im := i ;

    if im < 0 then im := 0;

    if ip > Bit.Width -1 then ip := Bit.Width-1;

    For j := 0 to Bit.Height -1 do

    begin

      R:=0;

      G:=0;

      B:=0;

      jP := j + nDivRs;

      jM := j - nDivRs;

      if Jp > bit.Height-1 then

       jp := Bit.Height-1;

      if jm <0 then jm :=0;

      OpCount := (ip - im+1) *(jp-jm+1);

      For k := im to Ip do  begin

        For l := jm to jp do

        begin

          R := R + Pix[k,l].rgbtRed;

          G := G + Pix[k,l].rgbtGreen;

          B := B + Pix[k,l].rgbtBlue;

        end;

      end;

      Pix[i,j].rgbtBlue := B div opCount;

      Pix[i,j].rgbtGreen := G div opCount;

      Pix[i,j].rgbtRed := R div  opCount;

    end;

  end;

  WritePixel(Bit,Pix);

end;

procedure ReadPixel(Pic: Tbitmap; var tPix: TPixels);

Var PixPtr:PbyteArray;i,j,m:Integer;

begin

  SetLength(tPix,Pic.Width,Pic.Height);

  Pic.PixelFormat := pf24bit;

  Pic.HandleType:=bmDIB;

  For i :=0 to pic.Height-1 do begin

      PixPtr:=Pic.ScanLine[i];

      for  j:= 0 to pic.Width-1 do begin

         m := j*3;

         tPix[j,i].rgbtBlue:=PixPtr[m];

         tPix[j,i].rgbtGreen := PixPtr[m+1];

         tPix[j,i].rgbtRed := PixPtr[m+2];

      end;

  end;

end;

procedure WritePixel(Pic: TBitmap; tPix: TPixels);

var PixPtr:PByteArray;i,j,m:Integer;

begin

  pic.PixelFormat := pf24bit;

  pic.HandleType:=bmDIB;

  Pic.Height := High(tPix[0])+1;

  Pic.Width:= High(tPix)+1;

  For i :=0 to pic.Height-1 do begin

      PixPtr:=Pic.ScanLine[i];

      for  j:= 0 to pic.Width-1 do begin

         m := j*3;

         PixPtr[M] := tPix[j,i].rgbtBlue;

         PixPtr[m+1] := tPix[j,i].rgbtGreen;

         PixPtr[m+2] := tPix[j,i].rgbtRed;

      end;

  end;

end;

procedure TForm1.btnExeClick(Sender: TObject);

var n :Integer;

begin

  n := StrToInt(txtN.Text);

  Bits.LoadFromFile(‘Test.bmp‘);

  SmoothPicture(Bits,n);

  PaintBox1.Refresh;

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

  Bits.Free;

end;

end.

程序的运行结果如下图所示。

原图

柔化系数=21

       锐化处理的原理是把每一像素的值与该像素斜上方的像素值之差乘以一个系数再加上该像素原来的颜色值。

如果记图像中任意一个像素(x,y) (x∈[1,图像宽度-1],y∈[1,图像高度-1])修改前的RGB分值分别为OldRed, OldGreen, OldBlue, 修改后的RGB分值分别为NewR,NewG,NewB,有：

 

newR = (oldR - (x-1,y-1)的Red分值)×待定系数 + OldRed

newG = (oldG - (x-1,y-1)的Green分值)×待定系数 + OldGreen

newB = (oldB - (x-1,y-1)的Blue分值)×待定系数 + OldBlue

 

根据这个公式，我们的程序如下：

程序3.12

unit Sharp;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

 

type

  TPixels = Array of Array of TRGBTriple;

  TfrmMain = class(TForm)

    PaintBox1: TPaintBox;

    btnExecute: TButton;

    lblCap: TLabel;

    txtS: TEdit;

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

    procedure btnExecuteClick(Sender: TObject);

    procedure PaintBox1Paint(Sender: TObject);

  private

    Procedure SharpPic(Bit : TBitmap; n : Single);

  public

    { Public declarations }

  end;

  procedure WritePixel(Pic: TBitmap; tPix: TPixels);

  procedure ReadPixel(Pic: Tbitmap; var tPix: TPixels);

 

var

  frmMain: TfrmMain;

  Bits : TBitmap;

implementation

{$R *.dfm}
最低0.47元/天 解锁文章
落幕年代
关注
Delphi GDI+ 图形处理（2）
流年~~
04-05 4131
第一章           图像处理在可视化编程中的作用及其应用价值 图像处理，是可视化编程的基础内容。 在Windows操作系统中，一切要输出到屏幕上的东西都是通过图形处理这部分的内容来实现的。 比如一个程序使用了标签控件，它看起来似乎并没有用到什么图形处理，但实际上标签控件就是通过使用GDI库中的图形处理函数来实现的。可见图形处理在编程中的重要性。 图像处理在实际的应用中也极具价值。
( Delphi 7 )使用GDI+进行图形缩放、拖动，多种图片格式支持，仅简单示例
11-15
使用GDI+进行图形缩放、拖动，多种图片格式支持，仅简单示例。 问题源贴：http://bbs.csdn.net/topics/390638094
GDI+ 在Delphi程序的应用 -- 图像二值化
闲人阿发伯的业余编程心得
01-30 4982
    图像的二值化，无论是理论，还是方法都很多，网上搜索一大堆，本人水平有限，没法完全搞清楚，只在这里针对GDI+在Delphi中如何做一般二值化处理，写一个简单例子。    其实，这个例子在昨天本人发表的《GDI+ 在Delphi程序的应用 -- ColorMatrix与图像灰度化 》中已经给出了基本的代码，只要在其上加一个参数和一句代码就行了： // 灰度或者二值化彩色图像
GDI+ 在Delphi程序的应用 -- ColorMatrix与图像灰度化
闲人阿发伯的业余编程心得
01-29 5414
    图像由彩色转化为灰度的过程叫灰度化，也叫去色。    彩色图像灰度化的原理很简单，就是按某种计算方法将图像各像素的R、G、B分量取成同样的值即可。计算方法有几种：    1、每个像素R、G、B各分量的值为该象素R、G、B的平均值；    2、每个像素R、G、B各分量的值为该象素R、G、B中最大值；    3、按YUV颜色空间原理，每个像素R、G、B各分量的值为：Y = 0.
GDI+ 在Delphi程序的应用 -- 多帧（页）图像的分解与合成
闲人阿发伯的业余编程心得
12-21 7133
GDI+ 在Delphi程序的应用 -- 多帧（页）图像的分解与合成        在GDI+支持的各种图像格式，gif格式和tiff格式图像可包含多帧（页）图片，GDI+可以很方便的分解和合成多帧（页）图片。        下面是个简单的多帧（页）图片分解与合成例子：unit main1;interfaceuses  Windows, Messages, SysUtils, 
GDI+ 在Delphi程序的应用 -- 线性调整图像亮度
闲人阿发伯的业余编程心得
08-25 6159
      我曾写过2篇关于GDI+图像亮度调整的文章：《GDI+ 在Delphi程序的应用 -- 调整图像亮度》和《GDI+ 在Delphi程序的应用 -- ColorMatrix与图像亮度》，前者采用GDI+的Bitmap扫描线逐点增加或减少图像像素RGB的值，后者则通过设置GDI+的ColorMatrix进行调整，但是这两种方法都属于非线性的亮度调整，优点是代码简单、速度快，缺点是在调整亮度
delphi基于gdi+的图片旋转任意角度
11-02
标题中的“delphi基于gdi+的图片旋转任意角度”是指使用Delphi编程语言结合GDI+库来实现图像的任意角度旋转功能。...开发者可以通过研究源代码，学习如何在Delphi中高效地集成和使用GDI+进行图形处理。
delphi gdi+遮罩动画字
09-22
Delphi是一款强大的Windows应用程序开发工具，而GDI+（Graphics Device Interface Plus）是微软提供的图形处理库，提供了丰富的图形绘制和图像处理功能。 首先，我们需要了解遮罩动画的基本原理。遮罩动画通常涉及...
Delphi编写的GDI+界面类
weixin_34077371的博客
10-29 336
使用Delphi2010开发的一个GDI+界面类，可以做出非常漂亮的界面。unit xDUISkinPanel; interface uses   Windows, Messages, SysUtils, Graphics, Classes, stdctrls, Buttons, GDIPlusUse, GdiPlus,   GdiPlusHelpers, Controls, ExtCtr...
Delphi+GDI
weixin_30340353的博客
06-16 109
源：Delphi 初试GDI+学习笔记 Delphi 深入GDI+学习笔记 转载于:https://www.cnblogs.com/LittleTiger/p/4580887.html
DELPHI GDI+
11-14
DELPHI开发的一个VCL曲线控件，用GDI+
Delphi GDI+
02-29
Delphi GDI+
Delphi与GDI+
08-19
Delphi与GDI+，教程由细到粗，非常详细，值得一看。
delphi 与 GDI+
06-09
此资源转载与 http://www.cnblogs.com/Error/Error.htm?aspxerrorpath=/del/archive/2007/12/25/1014329.html
Delphi图像处理 -- 文章索引
热门推荐
闲人阿发伯的业余编程心得
01-09 1万+
本文对已发布《Delphi图像处理》系列文章进行索引链接，以方便阅读和查找。    《Delphi图像处理 -- 数据类型及公用过程》。提供GDI+位图TGpBitmap和VCL位图TBitmap的转换过程以及几个最基本的通用过程。所有其它文章代码，包括例子代码，对必须包括该文章所介绍的ImageData.pas单元。    《Delphi图像处理 -- 平面几何变换类》。介绍图像平面几何变换类T
GDI+ 在Delphi程序的应用 -- GDI+图像与GDI位图的相互转换
闲人阿发伯的业余编程心得
01-08 1万+
        Delphi的TBitmap封装了Windows的GDI位图，因此，TBitmap只支持bmp格式的图像，但是在Delphi应用程序中，常常会遇到图形格式的转换，如将Delphi位图TBitmap的图像转换为其它格式保存，或者将其它图像格式转换为TBitmap等。这时候，我们往往借助一些第三方组件或代码，Delphi自带的TJPEG.pas就是jpeg格式图像转换的第三方代码单元。
GDI+ 在Delphi程序的应用 -- ColorMatrix与图像亮度
sogotobj
06-19 163
　年初，我写了一篇关于GDI+亮度调整的文章，见《GDI+ 在Delphi程序的应用 -- 调整图像亮度》，采用的是扫描线逐点改变，当时有网友评论时提出是否可以ColorMatrix进行调整，我觉得图像像素值上下限不好控制，加之没时间没去研究，今天，我却发现该网友提出的方案居然是切实可行的。改变图像亮度，实际就是对像素点的各颜色分量值作一个平移，使用ColorMatrix进行平移是个轻而易举的事...
再学 GDI+[1]: 安装文件头
weixin_34320159的博客
06-06 132
如果使用 Delphi 2009 之后的版本, 推荐使用: http://www.cnblogs.com/del/archive/2009/12/11/1621790.html. 下面这些是以前用 2007 弄的. GDI+ 是 Windows 的一个函数库, 来自 Windows\System32\GDIPlus.dll, 其中包含了 610 个函数. 在 Delphi 中使...
Delphi GDI+(code:4)
weixin_43487532的博客
08-23 344
Delphi开发的windows应用，使用DevExpress控件库在保存图片时，报了这个错误，定位到这句话： image.Picture.SaveToFile(filePath); 一直以为是保存函数出现问题，最后发现是TImage控件在加载img图片时需要通过bitmap来进行存储会更稳定，如果使用Picture将会造成此类报错。 稳定控件装载图片写法： Bitmap.Assign把原本图片类型转为bitmap img: TJPEGImage; img := TJPEGImage.Create; i.
Delphi GDI+状态面板的介绍与应用
GDI+（图形设备接口增强版）是微软在Windows操作系统中引入的图形API，用以替代早期的GDI，用于提高绘图和图形处理的性能和质量。 在这个上下文中，状态栏是指应用程序窗口底部用于显示应用状态信息、时间、网络...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值