图像的中值滤波，就是在以某一像素为中心的n阶像素矩阵中，找出R、G、B各分量的中间值来分别替代该像素的RGB值，从而达到对图像噪声滤波的目的。这里的中间值并非像素矩阵R、G、B各分量的的算术平均值，而是像素矩阵R、G、B各分量排序后的中位数值。
下面是Delphi图像中值滤波的实现代码：
过程定义：
// 中值滤波。Size应为奇数
procedure ImageMedianValues(Data: TImageData; Size: LongWord);
实现代码：
procedure ImageMedianValues(Data: TImageData; Size: LongWord);
var
matrixOffset, srcOffset, dstOffset: LongWord;
Width, Height: LongWord;
mSize, Count: LongWord;
src: TImageData;
Top, Last, Median: PLongWord;
Colors: array of LongWord;
procedure AssortValue;
asm
mov ah, [esi]
mov al, [esi + 4]
mov dl, [esi + 8]
cmp ah, al
jae @@1
xchg ah, al
@@1:
cmp ah, dl
jae @@2
xchg ah, dl
@@2:
cmp al, dl
jbe @@3
xchg al, dl
@@3:
mov ......
Delphi2010集成了fastMM，这回大家调试程序是的时候可以方便地检查内存泄露了。
使用方法如下：
在project中，添加一行 ReportMemoryLeaksOnShutdown := DebugHook<>0;
DebugHook<>0 目的是保证单独运行exe文件不会弹出内存泄露框，源码可以不用注释掉此行
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' { Form1 } ;
{$R *.res}
begin
ReportMemoryLeaksOnShutdown := DebugHook<>0;
Application.Initialize;
Application.MainFormOnTaskbar := true;
Application.CreateForm(TForm1, Form1);
Application.Run;
end. ......
本文的线性亮度/对比度调整方法是在《改进的图像线性亮度调整方法》一文中线性亮度调整方法与《Delphi图像处理 -- Photoshop图像亮度/对比度调整》中的对比度调整方法基础上形成的，其原理和特点可参见这2篇文章：
过程定义：
// 线性调整亮度，Value亮度值
procedure ImageLinearBrightness(Data: TImageData; Value: Integer);
// 调整亮度（线性）和对比度
procedure ImageLinearBrightnessAndContrast(Data: TImageData;
Bright, Contrast: Integer; Threshold: LongWord);
实现代码：
procedure ImageLinearbrightness(Data: TImageData; Value: Integer);
asm
push ebp
push esi
push edi
push ebx
test edx, edx // if (Value == 0) return
jz @end
mov ebp, edx
jl @@2
push eax
cmp ebp, 255 // if (Value > 0)
jle @@1 // {
mov ebp, 255 // if (Value > 255) Value = 255
@@1:
mov eax, 65536 // Value = 65536 / (256 - Value) - 256
mov ecx, 256
sub ec ......
本文是基于《GDI+在Delphi程序的应用 – Photoshop色相/饱和度/明度功能》一文的BASM实用性过程，有关实现原理可参见《GDI+ 在Delphi程序的应用 -- 图像饱和度调整》和《GDI+ 在Delphi程序的应用 -- 仿Photoshop的明度调整》，纯PAS实现代码和测试例子代码见《GDI+在Delphi程序的应用 – Photoshop色相/饱和度/明度功能》。
过程定义：
// 调整色相/饱和度/明度
procedure ImageHSBAdjustment(Data: TImageData; hValue, sValue, bValue: Integer);
实现代码：
procedure _SetBrightness(Data: TImageData; Value: Integer);
asm
push esi
push edi
push ebx
sar edx, 1 // Value /= 2
movd mm5, edx
punpcklwd mm5, mm5
punpcklwd mm5, mm5
pcmpeqb mm6, mm6
psrlw mm6, 8 // mm4 = 00 FF 00 FF 00 FF 00 FF
pxor mm7, mm7
push edx
call SetDataReg32
pop esi
@yLoop:
push ecx
@xLoop:
mov al, [edi + 3]
movd mm0, [edi]
punpcklbw mm0, mm7
......
当然用户要想通过数据浏览部件编辑修改数据库表中的记录字段时，还要受到其它因素的制约。除了数据浏览部件本身的ReadOnly属性设置为False外，还要设置其相应的字段部件和数据集部件的CanModify属性True性；设置TDataSource部件的AutoEdit属性为True，如果数据库表是SQL数据库服务器中的数据库表，用户必须要具有读写数据库的权限等。当然在实际的程序设计过程中并没有这样繁琐，因为很多属性的缺省值都是允许用户修改表中的记录的。
TDBGrid 表 TDBGrid部件的Options属性中的扩展属性项
dbEditing True: 缺省情况下为此值，确保用户能够在网格中编辑插
入和删除数据库表中的记录
False:在网格中不能编辑、插入和删除表中的记录
─────────────────────────────────
dbAlwaysShow True: 当用户选中记录中的一个字段时，自动地使该字段
Editor 处于编辑状态
False:缺省情况下为此值。当一个字段被选中，它不能
自动地变成编辑状态
在数据浏览部件中有四个部件类似于标准部件中的列表框和组合框，这些列表框和组合框主要是在数据库应用程序中为用户提供一系列的可选择的字段值。注意这些部件只 ......
Python , Delphi , Loki 三个单词有趣的来源
许多程序设计语言和开发工具以及库的名字都来源与神话，颇有意思：
阿波罗是同时出现在希腊和罗马神话中的奥林帕斯十二大神之一。他除了拥有太阳神的身分，同时还有预言、艺术、医术之神的称号。阿波罗是宙斯和乐朵的儿子，和阿蒂蜜斯是双胞胎兄妹。
阿波罗出生几天后便长大成人。为了寻找预言的圣地，他特地前往德尔斐（Delphi
）。路途中，他先到达哈利亚多斯，原本打算将宁芙仙子泰尔普沙（Thelpusa）所在的水泉──一个拥有预言能力的水泉──立为圣地，但是泰尔普沙推荐，德尔斐应该更适合阿波罗。事实上泰尔普沙是不希望自己的圣地被夺走，明明知道德尔斐是一只拥有预言能力的母巨蟒毕颂（Python
）的地盘，还故意让阿波罗到德尔斐去。
当然python语言的开发者是喜欢一个叫python的马戏团才给自己的脚本语言起名的，但Python这个单词的出处应该是在此。
至于c++中的Loki库：
Loki为北欧神话中的火神，也是邪恶与灾难之神。虽为巨人族之子却有着与北欧众神一样的神族地位，但最终与诸神对立并引发了最终战争Ragnarok——诸神之� ......
Python , Delphi , Loki 三个单词有趣的来源
许多程序设计语言和开发工具以及库的名字都来源与神话，颇有意思：
阿波罗是同时出现在希腊和罗马神话中的奥林帕斯十二大神之一。他除了拥有太阳神的身分，同时还有预言、艺术、医术之神的称号。阿波罗是宙斯和乐朵的儿子，和阿蒂蜜斯是双胞胎兄妹。
阿波罗出生几天后便长大成人。为了寻找预言的圣地，他特地前往德尔斐（Delphi
）。路途中，他先到达哈利亚多斯，原本打算将宁芙仙子泰尔普沙（Thelpusa）所在的水泉──一个拥有预言能力的水泉──立为圣地，但是泰尔普沙推荐，德尔斐应该更适合阿波罗。事实上泰尔普沙是不希望自己的圣地被夺走，明明知道德尔斐是一只拥有预言能力的母巨蟒毕颂（Python
）的地盘，还故意让阿波罗到德尔斐去。
当然python语言的开发者是喜欢一个叫python的马戏团才给自己的脚本语言起名的，但Python这个单词的出处应该是在此。
至于c++中的Loki库：
Loki为北欧神话中的火神，也是邪恶与灾难之神。虽为巨人族之子却有着与北欧众神一样的神族地位，但最终与诸神对立并引发了最终战争Ragnarok——诸神之� ......
最新文章 : delphi