delphi实现图象灰度处理的3种方法
灰度处理的方法主要有如下3种:
1、最大值法:使R、G、B的值等于3值中最大的一个,即:
R=G=B=max(R,G,B)
最大值法会使形成高亮度很高的灰度图象
- var
- bitmap:tbitmap;
- i,j:integer;
- a,b,c,crgb,temp:longint;
- res:byte;
- begin
- //最大值灰度处理方法
- bitmap:=tbitmap.Create;
- bitmap.Width:=image1.Width+1;
- bitmap.Height:=image1.Height+1;
- for i:=0 to image1.Width+1 do
- begin
- for j:=0 to image1.Height+1 do
- begin
- crgb:=colortorgb(image1.Canvas.Pixels[i,j]);
- a:=crgb;
- b:=crgb shr 8;
- c:=crgb shr 8;
- //求出3者之间的最大值
- if a>b then
- temp:=a
- else temp:=b;
- if c>temp then
- temp:=c ;
- res:=byte(temp);
- bitmap.Canvas.Pixels[i,j]:=rgb(res,res,res);
- end;
- end;
- image1.Canvas.Draw(0,0,bitmap);
- bitmap.Free;
- end;
2、平均值方法:使R、G、B的值求出平均值,即:
R=G=B=(R+G+B)3
平均值法会形成较柔和的灰度图象。
- var
- bitmap:tbitmap;
- i,j:integer;
- crgb:longint;
- rr,gg,bb:byte;
- res:byte;
- begin
- //图象的平均值处理
- bitmap:=tbitmap.Create;
- bitmap.Width:=image1.Width;
- bitmap.Height:=image1.Height;
- for i:=0 to image1.Width+1 do
- begin
- for j:=0 to image1.Height+1 do
- begin
- crgb:=colortorgb(image1.Canvas.Pixels[i,j]);
- rr:=byte(crgb);
- gg:=byte(crgb shr 8);
- bb:=byte(crgb shr 8);
- res:=(rr+gg+bb)div 3;
- bitmap.Canvas.Pixels[i,j]:=rgb(res,res,res);
- end;
- end;
- image1.Canvas.Draw(0,0,bitmap);
- bitmap.Free;
- end;
3、加权平均值法:根据重要性或其他指标给R、G、B赋予不同的权值,并使R、G、B它们的值加权平均,即:
R=G=B=(WrR+WrG+WbB)3,经实际经验和理论推导证明,采用R=G=B=0.30*R+0.59*G+0.11*B,可以得到最合理的灰度图象
- var
- bitmap:tbitmap;
- i,j:integer;
- rr,gg,bb,res:byte;
- crgb:longint;
- begin
- //加权平均处理方法
- bitmap:=tbitmap.Create;
- bitmap.Width:=image1.Width+1;
- bitmap.Height:=image1.Height+1;
- for i:=0 to image1.Width+1 do
- begin
- for j:=0 to image1.Height+1 do
- begin
- crgb:=colortorgb(image1.Canvas.Pixels[i,j]);
- rr:=byte(crgb);
- gg:=byte(crgb shr 8);
- bb:=byte(crgb shr 8);
- res:=(30*rr+59*gg+11*bb)div 100;
- bitmap.Canvas.Pixels[i,j]:=rgb(res,res,res);
- end;
- end;
- image1.Canvas.Draw(0,0,bitmap);
- bitmap.Free;
- end;
http://blog.csdn.net/aroc_lo/article/details/9256077
delphi实现图象灰度处理的3种方法的更多相关文章
- delphi TreeView 从数据库添加节点的四种方法
方法一:delphi中递归算法构建treeView 过程:通过读取数据库中table1的数据,来构建一颗树.table1有两个字段:ID,preID,即当前结点标志和父结点标志.所以整个树的表示为父母 ...
- Delphi中拖动无边框窗口的5种方法
1.MouseMove事件中加入: // ReleaseCapture;// Perform(WM_SYSCOMMAND, $F017 , 0); 2.MouseDown事件中加入: // POSTM ...
- Android-将RGB彩色图转换为灰度图
package com.example.yanlei.wifi; import android.graphics.Bitmap; import android.graphics.BitmapFacto ...
- 2015.1.25 Delphi打开网址链接的几种方法
Delphi打开网址链接的几种方法1.使用shellapi打开系统中默认的浏览器 首先需在头部引用 shellapi单元即在uses中添加shellapi,这里我们需要知道有 ...
- java实现甘特图的2种方法:SwiftGantt和Jfree (转)
http://blog.sina.com.cn/s/blog_50a7c4a601009817.html 第一种方法使用SwiftGantt实现甘特图(进度图推荐这个) import java.a ...
- UML类图画法及其之间的几种关系(转)
UML类图画法及其之间的几种关系 最近做重构项目,需要画一下类图,发现类图的画法及其之间的几种关系已经淡忘了很多,所以整理总结一下,有问题的地方大家可以一起讨论下. 文章目录如下: 类图画法 类之间的 ...
- Delphi中弹出提示框的四种方法
参考:http://blog.itpub.net/8432156/viewspace-924843/ 更为详细的内容请参见:http://blog.csdn.net/akof1314/article/ ...
- UML类图画法及其之间的几种关系
最近做重构项目,需要画一下类图,发现类图的画法及其之间的几种关系已经淡忘了很多,所以整理总结一下,有问题的地方大家可以一起讨论下. 文章目录如下: 类图画法 类之间的几种关系:泛化(Generaliz ...
- 【转】delphi程序只允许运行一个实例的三种方法:
一. 创建互斥对象 在工程project1.dpr中创建互斥对象 Program project1 Uses Windows,Form, FrmMain in 'FrmMain.pas' ...
随机推荐
- iOS 开发设计常用软件及工具整理
1, xCode 2, AppCode 3, Skech 原型设计软件 4, Hype 动画设计工具 5, fontawsome 免费图表 6, Prepo icon, images.catlog 生 ...
- CURL基础
下载单个文件: #下载单个文件,默认将输出打印到标准输出中(STDOUT)中curl http://www.centos.org # 将文件下载到本地并命名为mygettext.html curl - ...
- Python 迭代器、生成器、递归、正则表达式 (四)
一.迭代器&生成器 1.迭代器仅仅是一容器对象,它实现了迭代器协议.它有两个基本方法: 1)next 方法 返回容器的下一个元素 2)_iter_方法 返回迭代器自身.迭代器可以使用内建的it ...
- QML在XP等显卡明显不好的情况下 可以参考
http://doc.qt.io/qt-5/windows-requirements.html
- jsp字段判空
是对象吧String jsp的写法 <% if(str == null) { %> str is null <% } else { %> str not null <% ...
- jquery删除动态增加的li
<script type="text/jscript"> //楼主帮你修改调整了下 $(document).ready(function () { $('.zuo li ...
- 设计模式(九)外观模式Facade(结构型)
设计模式(九)外观模式Facade(结构型) 1. 概述 外观模式,我们通过外观的包装,使应用程序只能看到外观对象,而不会看到具体的细节对象,这样无疑会降低应用程序的复杂度,并且提高了程序的可维护性. ...
- Sql语句中使用参数化的Top
在sql中使用参数化的Top,Top后面的参数要用括号括起来. 例如: select top (@ts) ID, [Type], Title, Content, LinkMan, Tel, Check ...
- c语言,链表
#include "stdafx.h" #include <stdio.h> #include <stdlib.h> struct Node{ struct ...
- Ubuntu中查看硬盘分区UUID的方法(所有Linux目录的解释)
在Ubuntu中UUID的两种获取方法,至于UUID是什么,你可以大概理解为分区的标识符,像条形码那样. 在终端中输入下面的命令就可心查看到分区UUID了.命令1.sudo blkid 命令2.ls ...