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

在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

delphi抓取QQ聊天窗口实例

functionEnumWindowsProc(hwnd:HWND;lParam:LPARAM):Boolean;stdcall;//EnumWindows专用的回调函数的格式://functionEnumWindowsProc(//hwnd:HWND;{找到的窗口句柄}//lParam:LPARAM{EnumWindows传给的参数;因为它是指…
类别:图像 标签: 作者:admin 日期:2013-11-12 13.07.15

delphi TDragImage v0.1 Delphi 图片拖拽组件 带有加速度 碰撞效果

主要实现了图片的拖动,还有拖动后把图片甩出去的效果,以及碰撞到父窗口边缘的碰撞效果。1.安装完成后出现在Additional组件页2.控件和Demo均在Win7+Delphi7下编译通过3.控件继承自TImage类,主要实现了图片的加速度…
类别:图像 标签: 作者:admin 日期:2013-10-24 22.48.44

delphi 绘制精美的签名图片

Project1.dprprogramProject1;uses****s,Unit1in'Unit1.pas'{****1},DrawPicMessagein'DrawPicMessage.pas';{$R*.res}beginApplication.Initialize;Application.Title:='绘制精美的签名图片'…
类别:图像 标签: 作者:admin 日期:2013-10-24 22.27.36

delphi TIcon保存ico文件时失真的解决办法

提取exe文件中的图标并保存为ico文件:ico:=TIcon.Create;tryico.handle:=ExtractIcon(hInstance,ExeFileName,0);ico.SaveToFile(''c:\001.ico'');finallyico.free;end;保存后的001.ico文件严重失真,我们打开Graphi…
类别:图像 标签: 作者:admin 日期:2013-10-10 21.17.12

Delphi TGIFImage:TImage显示gif动画

DelphiTGIFImage:TImage显示gif动画TImage显示gif动画速度设置Image1:TImage;Image1.Picture.LoadFromFile(OpenDialog1.FileName);//AnimationSpeed设定动画速度。其实就是原始速度的百分比,例如50就是说是原始速度…
类别:图像 标签: 作者:admin 日期:2013-04-02 22.21.00

Delphi 模拟网站验证码

functionTfrmLabelPages.PwdImg(img:Timage):string;varI,j,k:Integer;vPoint:TPoint;vLeft:Integer;arrStr:array[1..36]ofstring;strResult:string;beginstrResult:='';arrStr[1]:='0';arrStr[2]:='1';arrStr[3]:='…
类别:图像 标签: 作者:admin 日期:2013-03-25 15.50.16