Use Jpeg procedure TForm1.snapscreen(a,b,c,d:Integer); var bmpscreen:Tbitmap; jpegscreen:Tjpegimage; FullscreenCanvas:TCanvas; dc:HDC; sourceRect, destRect: TRect; begin try dc:=getdc(0); fullscreencanvas:=Tcanvas.Create; fullscreencanvas.Handle:=dc;

delphi 动态绑定代码都某个控件 http://docwiki.embarcadero.com/CodeExamples/Berlin/en/Rtti.TRttiType_(Delphi)Button16第一次是绑定代码,第二次就是执行 procedure TForm2.Button16Click(Sender: TObject); var aMethod:tMethod; begin aMethod.Code:=self.MethodAddress('Button1Click'); aMe

DIOCP组件(Delphi IOCP)代码阅读之ADO内存表 代码中有 class procedure TADOTools.loadFromStream(pvDataSet: TCustomADODataSet; pvStream: TStream); var AR:_Recordset; begin AR:=_Recordset(CoRecordset.Create); pvStream.Position:=0; AR.Open(TStreamAdapter.Create(pvStream)

苹果系统自带截图功能   1 截取全屏:快捷键(Shift+Command+3) 直接按“Shift+Command+3“快捷键组合,即可截取电脑全屏,图片自动保存在桌面. 2 截图窗口:快捷键(Shift+Command+4,然后按空格键) ▲直接按“Shift+Command+4“快捷键组合,会出现十字架的坐标图标: ▲将此坐标图标移动到需要截取的窗口上,然后按空格键: ▲按空格键后,会出现一个照相机的图标,单击鼠标,图片会自动保存在桌面. 3 截取任意窗口:快捷键(Shift+Comman

1.取得可文件路径 Path := ExtractFilePath(Application.ExeName); //取得可执行文件路径 TXMLDocument.Create(ExtractFilePath(Application.ExeName)+ '001.xml') 2.DisableControls EnableControls ClientDataSet.DisableControls; ... for I := 0 to 10000 do begin ClientDataSet.Ap

一.系统规划 1.1 项目背景介绍 在奖学金评比过程中,学生综合测评是学校普遍采用的评比手段.对学生实施综合素质测评的目的在于正确评价学生的综合素质,为评奖学金提供依据,实现学生教育管理工作的标准化.制度化和科学化,引导和促进学生德.智.体.美全面发展. 1.2 现存问题及系统目标 目前我国普遍高校学生奖学金评比还停留在纸质的阶段,许多工作需要传统的手工操作,这不仅浪费了大量的人力物力资源,而且由于人工管理存在着许多不可控因素,导致学生奖学金评比操作不规范,测评结果不全面,不能客观准确地反应学生

delphi 的IDE快捷键与输入法切换键中突,以往的解决方法是下载一个ImeTool修改 windows 系统的快捷键 在 xp win7 都好使,但在win 10经常是修改完后,重启又失效了. 本方法采用 Open Tools API 编写是一个组件.安装方法: 菜单-->Component -->install Component 然后选择此本单元,然后就瞎折腾吧.就好了. 源码下载 unit EagleBufferList; interface procedure Register;

delphi 的IDE快捷键与输入法切换键中突,以往的解决方法是下载一个ImeTool修改 windows 系统的快捷键 在 xp win7 都好使,但在win 10经常是修改完后,重启又失效了. 本方法采用 Open Tools API 编写是一个组件.安装方法: 菜单-->Component -->install Component 然后选择此本单元,然后就瞎折腾吧.就好了. 源码下载 unit EagleBufferList; interface procedure Register;

截图方式和以前一样, 用GetDC, 保存为JPG的方式改用IWICImage接口, 在我机器上 1920*1080 大概花费70毫秒左右, 比用TJPEGImage快了一倍多(TJPEGImage需要160毫秒左右) 直接上代码 uses Winapi.ActiveX, Winapi.Wincodec; {$R *.dfm} {将TWICImage的 CreateWicBitmap和SaveToStream摘出来} procedure _SaveToStream(ABMP: TBitmap;

################################属性 设置################################################字体设置{//---------------------------------------------------------------------------------------字体名称  <FONT face=微软雅黑>This A Text</FONT>字体大小  <FONT size=1>

在windows系统中,可以通过Regsvr32来实现注册ocx或者dl, 编程时,调用Regsvr32来注册,却不能正常执行.尤其是在Win7系统中,需要管理员身份才能运行. 使用下面的代码则能正常注册. //注册 function RegisterDllServer(FileName: string): boolean; var nDllAddr: integer; bstr: string; ProcAddr: Pointer; str: PAnsiChar; begin Result :

TO-DO List是一项非常好用的功能.采用她可以让我们很清楚的了解以前完成了那些任务,还有哪些任务需要做,由谁负责完成,是不是比较紧急的任务等.今天来不及完成的,明天上班就可以很快的找到任务所在的位置. 打开TODOLIST:点击菜单[View]--> 选择菜单[To-Do List] 显示窗口内容有: Action Item:任务项: !:                优先级 Module:       所属模块 Owner:        所有者 Category:     种类 右键

将一幅图片按着需要的尺寸进行等比的压缩和放大,最后再截取需要尺寸部分,不知道说清楚没,反正就那意思吧! +(UIImage *)compressImageWith:(UIImage *)image width:(float)width height:(float)height { float imageWidth = image.size.width; float imageHeight = image.size.height; float widthScale = imageWidth /wi

Size size = Director::sharedDirector()->getWinSize(); //定义一个屏幕大小的渲染纹理 RenderTexture* pScreen = RenderTexture::create(size.width,size.height, kCCTexture2DPixelFormat_RGBA8888); log("-------log1---"); //获得当前的场景指针 Scene* pCurScene = Director::sh

http://www.pudn.com/downloads171/sourcecode/windows/detail791686.html unit Unit1; interface  uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, gdipapi, gdipobj, Menus, StdCtrls;  type   TForm1 = class(TForm)

http://hi.baidu.com/game_base/item/f617e4136414148889a956ed   本文简单介绍了当前Windows支持的各种Socket I/O模型,如果你发现其中存在什么错误请务必赐教. 一:select模型    二:WSAAsyncSelect模型    三:WSAEventSelect模型    四:Overlapped I/O 事件通知模型    五:Overlapped I/O 完成例程模型    六:IOCP模型 老陈有一个在外地工作的女儿

今天有人问我:“用shell打开文件(显示桌面.scf)的方式还是用模拟键盘(Win+D)显示桌面”这应该有更好的方法,就搜了搜,关键字定位“ToggleDesktop”因为显示桌面.scf的内容是:[Shell]Command=2IconFile=explorer.exe,3[Taskbar]Command=ToggleDesktop 找到了MSDN http://msdn.microsoft.com/en-us/library/bb774124(VS.85).aspx给出的是VB脚本和Jav

需求: 有一个专业表,没有插入数据,读取的excel,复制为txt文件 每行读取 并且 将汉字的一转换为数字1 private void barButtonItem4_ItemClick(object sender, ItemClickEventArgs e) { StreamReader sr = new StreamReader(@"C:\Users\忧郁的小学生\Desktop\xss.txt", Encoding.GetEncoding("utf-8"));

Delphi里面默认就有代码编辑缩进线,这在编写逻辑复杂的大块代码时候非常有好处,可以清楚地看到每块代码的范围,下面就是Delphi里面代码编辑缩进线的截图: 非常棒的效果,我喜欢,在处理复杂逻辑代码时候,这个功能极其有用,这是我写的一个复杂方法的部分代码,还没看到全部呢,如果没有这种代码编辑缩进线,应该没有现在幸福!!! Eclipse默认没有这种功能,真期望它也能够具备这种功能,经过一番努力,终于做到了!! 我已经把IndentGuide插件处理完毕了,大家直接可以拿过来安装了! 处理好的插

真实业务场景的考虑 按照支付宝或者微信支付的开发手册的说法,一个标准的客户端接入支付业务模型应该是这样的,我忽略时序图,只用文字描述: 用户登录客户端,选择商品,然后点击客户端支付. 客户端收集商品信息,然后调用自己业务平台的预付款接口. 业务平台根据客户端提交的商品信息,生成自己的订单号等内容,并按照第三方支付的要求对订单信息进行拼装组合,并编码和签名. 业务平台返回签名后的订单信息给客户端. 客户端根据这个签名信息,呼出客户端的第三方支付系统,完成支付. 1)准备工作: 支付到指定的商家(一

/** * 截图代码 * * @param view 需要截图的view * @param rect 需要截取的区域 * * @return 返回截取的对象 */ + (UIImage *)viewSnapshot:(UIView *)view withInRect:(CGRect)rect { UIGraphicsBeginImageContext(view.bounds.size); [view.layer renderInContext:UIGraphicsGetCurrentContex