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

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

在Delphi中基于内容检测图片格式(非扩展名)

typeTGraphicFormat=(gfUnknown,gfBitmap,gfJpeg,gfPng,gfGif,gfMetafile,gfTga,gfPcx,gfTiff,gfIcon,gfCursor,gfIff,gfAni);///检测图片格式//////要检测的图片数据流//////返回可以识别的图片格式代码functionDete…
类别:图像 标签: 作者:admin 日期:2015-02-08 21.33.42

delphi Web格式与TColor类型的转换函数

支持#RRGGBB样式的Web字符串颜色格式的颜色值和TColor之间进行相互转换,从Web颜色格式转换为TColor类型的值时,支持省略前面的#号。typeTRGBAColor=recordcaseIntegerof0:(Red,Green,Blue,Alpha:Byte);1:(Color:TCo…
类别:图像 标签: 作者:admin 日期:2015-02-08 21.16.54

delphi 简单判断图片类型

functionImageMIMEType(Source:string):string;varMem:TMemoryStream;Buffer:Word;i:integer;constIMG_CLASS_UNKNOWN='unknown';IMG_CLASS_ERROR='error';IMG_CLASS_JPEG='image/jpeg';IMG_CLASS_BITMAP='image/bmp'…
类别:图像 标签: 作者:admin 日期:2014-08-13 23.33.09

delphi读取webbrowse中的图片显示在Image中

unitUnit11;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,OleCtrls,SHDocVw,ExtCtrls;typeTForm11=class(TForm)btn1:TButton;img1:TImage;wb1:TWebBrowser;b…
类别:图像 标签: 作者:admin 日期:2014-08-07 14.56.34

delphi jpeg图片压缩

usesjpeg;procedureZipJPEG;varjpg:TJpegImage;bmp:TBitmap;beginjpg:=TJpegImage.Create;bmp:=TBitmap.Create;tryjpg.LoadFromFile('c:\A.jpg');bmp.Width:=jpg.Width;bmp.Height:=jpg.Height;bmp.Canvas.StretchDr…
类别:图像 标签: 作者:admin 日期:2014-08-07 14.54.58

delphi中让图片大小随TImage控件大小变化

实现如下:<pstyle="text-align:left;padding-bottom:0px;text-transform:none;background-color:#ffffff;text-indent:0px;margin:0px;padding-left:0px;padding-right:0px;font:14px/26pxArial;white-space:normal.…
类别:图像 标签: 作者:admin 日期:2014-08-05 15.55.55

Delphi从内存流中判断图片格式

废话不多说了,利用内存流来判断文件的格式,其实判断文件的前几个字节就可以简单的判断这个文件是什么类型的文件,例如jpg文件是FFD8(从低位到高位就要反过来D8FF下面都是一样)BMP文件是424D---4D42其他的我就不一一…
类别:图像 标签: 作者:admin 日期:2014-04-16 21.48.40

delphi xe TBitmap支持Gif,成为具有jpg,gif,bmp,ico,gif五种显示功能的图片控件

让TBitmap支持Gif,成为具有jpg,gif,bmp,ico,gif五种显示功能的图片控件TImage要支持Gif,代码,我查的xe5的新增功能,亲自调试无错误,特来分享!varstream:TResourceStream;tbimap:TBitmap;beginBitmapListAnimatio…
类别:图像 标签: 作者:admin 日期:2014-03-25 20.22.00

delphi Jpeg压缩的两种方法

方法1procedureTForm1.Button2Click(Sender:TObject);varJPEGImage:TJPEGImage;beginifSavePictureDialog1.InitialDir=''thenSavePictureDialog1.InitialDir:=ExtractFilePath(OpenPictureDialog1.FileName);iftrim(…
类别:图像 标签: 作者:admin 日期:2014-03-08 10.32.22

delphi 转换一批.bmp 文件为 .jpg

转换一批.bmp文件为.jpgunitBMP2JPG_Unit;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,jpeg,ComCtrls,filectrl,Menus;typeTForm1=class(TForm)SourceB:TBut…
类别:图像 标签: 作者:admin 日期:2014-03-08 10.30.55

delphi 屏幕截图完美解决方案

可以截取layered窗口(包括透明窗口)的代码:procedureCaptureScreen(AFileName:string);constCAPTUREBLT=$40000000;varhdcScreen:HDC;hdcCompatible:HDC;bmp:TBitmap;hbmScreen:HBITMAP;beginhdcScreen:=CreateDC('DI…
类别:图像 标签: 作者:admin 日期:2014-03-08 10.29.55

Delphi 精确打印Image画布

最近在做一个打印报告的小软件,里面需要将Image上显示的东西,按照“所见即所得”的原则打印出来。好吧,最直接的方法当然是把Image的画布以图片的形式输出,这样既不用考虑画布上信息之间的相对位置,操作又简单。…
类别:图像 标签: 作者:admin 日期:2014-01-13 13.58.04

Delphi2009之TImage

TPngImage原来是SourceFroge上的一个开源项目,现在突然消失了,为什么呢?Nick在他的博客上写到:TPNGImage被CodeGear/Embarcadero收购了,现在直接就是Delphi2009的一部分了,大家可以方便的在TImage中使用PNG图片…
类别:图像 标签: 作者:admin 日期:2013-12-24 00.58.24

Delphi中动态加载Image控件图片的方法

procedureTForm1.Button1Click(Sender:TObject);varjpg:TJPEGImage;//要useJpeg单元begin//显示jpg大图片的方式jpg:=TJPEGImage.Create;jpg.LoadFromFile(getcurrentdir()+'\pic.jpg');Image1.Picture.Bitmap.Assign…
类别:图像 标签: 作者:admin 日期:2013-11-15 11.32.09