参考:http://cqujsjcyj.iteye.com/blog/380926 我想你可能还有点模糊.举个例子容易明白:假如你的窗体上有两个按钮,一个“计算”,一个“停止”, 如果你的计算是密集运算或复杂处理,当你点了“计算”钮后,你将发现“停止”按钮不会响应你的点击了,也就是说,你无法随时使计算过程停下来.而倘若你在计算的代码中加入Application.ProcessMessages,则你的程序就有机会响应其它的事件了. 在大量的循环运算,又不想使用多线程时,为了计算机在运算时能响应用户…

  作者 关劲松           delphi 开发中有些时候需要停留片刻,等待界面输入,或异步操作完成,如果使用sleep函数的话,整个程序都会停顿,界面还会出现冻结的情况.因此需要自行编写一个delay函数,以毫秒为单位控制等待时间.         函数功能:GetTickCount返回(retrieve)从操作系统启动到现在所经过(elapsed)的毫秒数,它的返回值是DWORD.         Application.ProcessMessages; 主要作用使程序在运行时能够响…

procedure mycopyfile(sourcef,targetf:string;i:integer); var FromF,ToF:file; NumRead,NumWritten:Integer; Buf:..] of Char; n:integer; begin AssignFile(FromF,sourcef); Reset(FromF, ); { Record size = 1 } AssignFile(ToF,targetf); { Open output file } Rew…

https://files.cnblogs.com/files/del88/登陆光标_悬赏50元.zip ---------------------------------------------------------------------------------------- 通过这句可以知道,原来每个windows组件 都有句柄,都可以直接给句柄发消息. 讲解的比较透彻 Application.ProcessMessages; 这句的目的是让其他消息 先走.…

> Should I use a AntiFreeze component on every form I have a TIdTCPClient > component?  Or is one enough to handle the whole Application? One is enough. According to the Indy help file, -------- Only one TIdAntiFreeze can be active in an application…

工作中有个需求需要发送邮件,因为使用的delphi6,所以自然就选择了indy组件,想想这事挺简单的.实现的过程倒是简单,看着Indy的demo很快就完了,毕竟也不是很复杂的功能. 功能要求: 1.压缩日志文件并作为邮件的附件 2.邮件正文带上一些客户端信息 组件介绍 TIdSmtp:与服务器的连接及数据发送,基于smtp协议 TIdMessage:自然就是报文的信息了,包含收件人.发件人.主题.正文,以及附件. 代码展示: function TfrmMailSend.SendMail: Boo…

现在delphi都发布到xe8了,tidhttp还有缺陷,那就是超时设置在没有网络或者连不上服务器的时候是无效的,不管你设置为多少都要10-20秒.connectTimeout和readTimeout都试过了,网上找了一圈,有人提出修改源码,我没试,应该也可以. 我采用的是把idhttp.get方法放到线程里,在主线程定时检查返回状态,这样就可以控制超时时间了,伪代码如下. strResult:=''; Tthread.CreateAnonymousThread( procedure begin…

来自: daocaoren0824, 时间: -- ::, ID: 再给你一份 程序员实用函数 {▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎} {▎ ▎} {▎ 大家都是程序员 没有必要重复一些无聊的事情 我的这些函数能给大家带来方便 ▎} {▎ 如果觉得还一般 请关注 WWW.cdsunco.com/www.ccemove.com QQ:35013354 ▎} {▎ 系统公用函数及过程 ▎} {▎ ▎} {▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎…

注:有一定的参考价值,转存 // Code 1 uses  ActiveX, MSHTML_TLB, ComCtrls, ComObj; function GetBrowserForFrame(Doc: IHTMLDocument2; nFrame: Integer): IWebBrowser2;  //Thanks to Rik Barker  //returns an interface to the frame's browservar  pContainer: IOLEContainer…

相信不少码农曾看过类似“life is short, use Python”等之类略带调侃意味的小段子(譬如我),而其也并非不无道理.每门编程语言都是合理的存在,都有它们的优点,及缺陷. 码农们也大多学过用过不止一门语言,譬如我. 像我这样曾胡摸过 N 门语言,但只会勉强熟练使用其中两三门或三四门的码农(C++.C#.Delphi.Golang),却还是想浅浅地比较一下它们,算是一点皮毛心得吧. 从这个偶然看到的例子开始. uses SyncObjs, System.Threading, Sys…