RSS订阅 | 匿名投稿
您的位置:网站首页 > 图像

delphi 网上获取北京时间验证码识别之中值滤波

验证码识别之中值滤波unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,StdCtrls;typeTForm1=class(TForm)Button1:TButton;Image1:TImage;Image2:...
类别:图像 标签: 作者:admin 日期:2016-01-26 22.05.41

Delphi图像二值化

验证码识别之图像二值化unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtDlgs,StdCtrls,ExtCtrls,Buttons;typeTForm1=class(TForm)Image1:TImage;<br...
类别:图像 标签: 作者:admin 日期:2016-01-26 22.03.14

Delphi旋转位图

验证码识别之旋转位图1.函数//Bitmapsmustbe24bitpixelformat.//Angleisindegrees.functionRotateBitmap(Bitmap:TBitmap;Angle:Double;Color:TColor):...
类别:图像 标签: 作者:admin 日期:2016-01-26 22.02.42

Delphi图像细化处理

所谓细化,就是从原来的图中去掉一些点,但仍要保持原来的形状。实际上,是保持原图的骨架。typeTRGBArray=array[0..32767]ofTRGBTriple;PRGBArray=^TRGBArray;procedureXihua(Bitmap:TBitmap);varbmp:TBitmap;X,Y:i…
类别:图像 标签: 作者:admin 日期:2016-01-26 21.58.19

Delphi用邻域平均法对图像进行平滑处理

邻域平均法是一种在空间域上对图像进行平滑处理的最常用方法。该方法的核心是求出图像中以某点为中心的一个邻域范围内的图像像素之平均值,并以此平均值来作为该中心点的灰度值。usesMath;procedureTForm1.Button1Cl…
类别:图像 标签: 作者:admin 日期:2016-01-26 21.57.57

Delphi二值图像腐蚀算法

procedureBitmapErose(Bitmap:TBitmap;bHoric:Boolean);//传入的Bitmap是一个二值位图,bHoric标志是水平方向还是竖直方向腐蚀varX,Y:integer;newbmp:TBitmap;P,Q,R,O:pByteArray;beginnewbmp:=TBitmap.Create;//动态…
类别:图像 标签: 作者:admin 日期:2016-01-26 21.57.12

Delphi二值图像膨胀算法

procedureBitmapDilate(Bitmap:TBitmap);//传入的Bitmap为二值位图varX,Y:integer;O,P,Q,R:pByteArray;newbmp:TBitmap;beginnewbmp:=TBitmap.Create;newbmp.Assign(bitmap);forY:=1tonewbmp.Height-2do ...
类别:图像 标签: 作者:admin 日期:2016-01-26 21.56.35

Delphi基于高斯-拉普拉斯算子的图像边缘检测

由于噪声点对边缘检测有一定的影响,所以效果更好的边缘检测器是高斯拉普拉斯(LOG)算子,它把高斯平滑滤波器和拉普拉斯锐化滤波器结合了起来,先平滑掉噪声,再进行边缘检测,所以效果会更好。常用的LOG算子是5X5的…
类别:图像 标签: 作者:admin 日期:2016-01-26 21.56.03

Delphi二值图像除杂点(噪点)

本文使用的是计算图像的联通分量的方法,首先扫描二值图像所有象素点,如果为黑色点则加入相关联通分量;如果该点连接多个联通分量,则合并这些联通分量;如果该点不属于任何联通分量,则新建一个联通分量。最后删除…
类别:图像 标签: 作者:admin 日期:2016-01-26 21.55.44

Delphi基于Prewitte算子的图像边缘检测

Prewitte算子采用的是两个模板:│-1-1-1││10-1││000│和│10-1││111││10-1│分别处理后得到的像素点的较大值。procedurePrewitte(Bitmap:TBitmap);var&...
类别:图像 标签: 作者:admin 日期:2016-01-26 21.52.51

Delphi基于Sobel算子的图像边缘检测

在边沿检测中,常用的一种模板是Sobel算子,有两个,一个是检测水平边沿的,一个是检测垂直边沿的:│-1-2-1││-101││000│和│-202││121││-101│procedureSobel(Bitmap: ...
类别:图像 标签: 作者:admin 日期:2016-01-26 21.52.25

Delphi使用Hough变换查找直线

Hough变换用来在图像中查找直线和圆,下面给出的一段程序,用来找出图像中最长的直线。该程序给出Hough变换的4种实现方法,分别采用了4种不同的模板:│-101││-1-10││-1-1-1│ ...
类别:图像 标签: 作者:admin 日期:2016-01-26 21.51.58

Delphi提取二值图像轮廓

所谓轮廓提取就是掏空图形的内部点:如果原图中有一点为黑,且它的8个相邻点都是黑色时(此时该点是内部点),则将该点删除。procedureGetFigure(Bitmap:TBitmap);varb0,b1:Tbitmap;i,j:Integer;p1,p2,p3,p4:pbyteAr…
类别:图像 标签: 作者:admin 日期:2016-01-26 21.51.34

Delphi二值图像投影算法

本文介绍的是二值图像水平和垂直两个方向对图像进行投影的算法。说明:此处处理的二值图像是指只有黑白两种颜色的24位真彩位图,并不是Windows画图程序生成的单色位图。进行水平方向投影procedureTForm1.Button1Clic…
类别:图像 标签: 作者:admin 日期:2016-01-26 21.50.14

Delphi图像匹配算法

即查找一个图像在另一个图像中出现的位置(坐标)procedurePicMatch(bmpMb,bmpObj:TBitmap;iErrPercent:Integer;varaRow,aCol:Integer);//bmpMB:模板位图,即被查找位图//bmpObj:目标位图,即要查找的位图//iErrPe…
类别:图像 标签: 作者:admin 日期:2016-01-26 21.49.53

Delphi获取图片的真实类型

今天分析一个网站的验证码,文件名后缀为.gif的,但用TImage加载该图片时,却弹出“无效的GIF标识”对话框。后来用工具一分析却是JPEG格式的图片,所以对图片处理前很有必要对图片的真实类型进行判断:functionGetIm…
类别:图像 标签: 作者:admin 日期:2016-01-26 21.45.12

Delphi图片BASE64编码

今天群里讨论对图片进行BASE64编码的问题就简单的写了下。编码:procedureTForm1.btn1Click(Sender:TObject);varfs:TFileStream;ss:TStringStream;beginfs:=TFileStream.Create('1.jpg',fmOpenRead);ss:=TStringStre…
类别:图像 标签: 作者:admin 日期:2015-05-11 10.12.55

Delphi 解析 png 图片的十六进制字符流

usespngimage;{从png图片到十六进制字符串}functionPng2Hex(png:TPngImage):string;varstream:TMemoryStream;beginstream:=TMemoryStream.Create;png.SaveToStream(stream);SetLength(Result,stream.Size*2);BinToHe…
类别:图像 标签: 作者:admin 日期:2015-04-25 21.33.15

Delphi XE6 在两个图片切换的时候实现翻书效果

介绍本文章实现了DelphiXE6在两个图片切换的时候实现翻书效果,实现这个效果需要使用到TSwipeTransitionEffect、TPathAnimation。首先我们创建一个HD的FireMonkey工程,然后添加如下的控件:TImage、TSwipeTransitio…
类别:图像 标签: 作者:admin 日期:2015-04-16 15.00.29

delphi 如何将Bitmap位图与base64字符串相互转换

by菩提树下的杨过http://yjmyzz.cnblogs.com////将Bitmap位图转化为base64字符串functionBitmapToString(img:TBitmap):string;varms:TMemoryStream;ss:TStringStream;s:string;beginms:=TMemoryStream.Create;img.Sa…
类别:图像 标签: 作者:admin 日期:2015-04-10 21.05.32