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

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

delphi2010 图片格式转换Bmp, Png,Jpeg, Gif, Tiff , WMPhoto

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,StdCtrls;typeTForm1=class(TForm)Button1:TButton;Image1:TImage;procedureButton1Click(Sender:TO…
类别:图像 标签: 作者:admin 日期:2013-01-20 22.58.44

Delphi显示 jpg、png、gif 图片及 gif 动画

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ExtCtrls;typeTForm1=class(TForm)Button1:TButton;Button2:TButton;Button3:TButton;Button4:TButt…
类别:图像 标签: 作者:admin 日期:2013-01-20 22.57.14

32位图像处理库 delphi简单实现

32位图像处理库delphi简单实现unitImage32;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,StdCtrls,ComCtrls,ToolWin,ImgList,GraphicEx,Jpeg,Buttons,Math,T…
类别:图像 标签: 作者:admin 日期:2013-01-20 21.20.48

delphi 把pf8bit位图变换成pf24bit位图

unitScreenGetPaletteEntries;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ExtCtrls;typeTForm1=class(TForm)Image1:TImage;ButtonReadpf8bit:TButton;Memo1:TMemo;&…
类别:图像 标签: 作者:admin 日期:2013-01-20 21.13.11

delphi 24位真彩色图形转化为ICO文件

摘要本文详细介绍了ICO文件的格式,以及利用Jpeg、BMP等格式的24位真彩色图片,生成图标的一种方法。关键词图标,位图,24位真彩色引言Delphi是目前广泛使用的可视化开发工具,它自身带有一个图片、图标的编辑器——…
类别:图像 标签:ICO 作者:admin 日期:2013-01-20 19.34.27

delphi 屏幕整体拉出源代码

单纯的图形整体拉出效果比较简单,动态地改变图形区域的大小就可以实现,但事先应将图形的“Stretch"设置为“True"。举例说明下拉效果:1.在表单上放置一图片,高度为200,属性“Height"设为0,"Stretch"设置为True。添加“…
类别:图像 标签: 作者:admin 日期:2013-01-06 10.06.12

delphi 屏幕拷贝程序的源代码

orland公司的天才设计师们用画布(Tcanvas)对象封装了Windows的大部分图形输出功能,这使得我们可以通过他以更直观的方式和Windows的屏幕打交道,而不必关心令人头疼的WindowsAPI函数。//下面的一小段程序就可以实现…
类别:图像 标签: 作者:admin 日期:2013-01-06 10.04.38

Delphi 抓屏技巧二三例

这里有一些抓屏的技巧汇总,是本人平时编程积累下来的。在这里写出来,希望对大家有用。其实其技巧也不难,只要知道几个API函数,再加一些设备描述表的操作,你几乎可以做出非常好的抓屏软件。废话少说,现在开始介绍…
类别:图像 标签: 作者:admin 日期:2013-01-06 09.33.54

delphi 将memo转化为JPG输出

units1;interfaceusesWindows,Messages,SysUtils,Graphics,Controls,Forms,StdCtrls,Classes;typeTForm1=class(TForm)Button1:TButton;Memo1:TMemo;procedureButton1Click(Sender:TObject);private&n...
类别:图像 标签: 作者:admin 日期:2012-12-28 15.32.01

delphi 截图函数ScreenShot

programScreenShot;usesWindows,Graphics,Jpeg;procedureScreenToFile(FileName:string;Quality:Word;Percent:Word);varBmp:TBitmap;Jpg:TJpegImage;beginBmp:=TBitmap.Create;Jpg:=TJpegImage.Create;tryBmp.Width:…
类别:图像 标签: 作者:admin 日期:2011-08-18 12.56.49

delphi截图程序无窗口版

programScreenShot;usesWindows,Classes,Graphics,Jpeg;procedureDrawCursor(Bmp:TBitmap);varr:TRect;CI:TCursorInfo;Icon:TIcon;II:TIconInfo;beginr:=Bmp.Canvas.ClipRect;Icon:=TIcon.Create;tryCI.cbSize:=Size…
类别:图像 标签: 作者:admin 日期:2011-08-18 12.34.18

Delphi TPicture 和 TBitmap 的相互转换

DelphiTPicture和TBitmap的相互转换TPicture转TBitmapTempBmp.width:=100;TempBmp.height:=100;...
类别:图像 标签: 作者:admin 日期:2011-08-17 10.42.46

一个最简单的Delphi2010的PNG异形窗口方法

同事演示了一个.NET的的PNG异形窗口.挺漂亮.于是也想用Delphi显摆一个.关于Delphi用PNG做异形窗口的资料有不少.都是用GDIPlus或者TPNGImage组件加载PNG图像做的.但是我很懒,不想引用的GDIPlus,也不想去找PNGImage下载…
类别:图像 标签: 作者:admin 日期:2011-08-17 10.41.39

Delphi的动画效果例子

源代码:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,jpeg;typeTForm1=class(TForm)&nbs...
类别:图像 标签: 作者:admin 日期:2011-08-17 10.27.26