在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
转载自:https://www.cnblogs.com/lackey/p/6296414.html 第二节:在线程时空中操作界面(UI)
1.为什么要用 TThread ?
TThread 基于操作系统的线程函数封装,隐藏了诸多繁琐的细节。
适合于大部分情况多线程任务的实现。这个理由足够了吧?
什么?你要用 windows 的线程 api 来实现多线程?
我可以负责任地告诉你,如果你用 api 来实现多线程任务,
加之你天资聪明,对 delphi 的面向对象思想掌握得非常快,
那么最终也你也会写一个与 TThread 类似的东西来提高开发效率。
何必折腾呢?要相信 delphi 的工程师,人家早已看透了一切。咳咳。
同理,要相信微软的工程师,windows 操作系统是没有啥大问题的。
更同理,要相信设计手机的工程师,不需要贴膜,人家好不容易把才手机变薄的。
哈哈,扯远了。。。
(本教程默认操作系统为 windows 7/10 , delphi 的版本为 XE8,大多数代码均能在 XE2 上运行)
2.线程时空中操作界面(UI)到底有什么门道?
很多教程中都一再强调,线程时空里,不准直接去更新 UI ,但似乎没有说明原因。
我们假设UI 界面允许多个线程同时去更新,看看会发生什么情况。
如果两个线程,同时都在界面相同的区域进行画图操作,比如一个要画绿色,一个要红色,
那么最终,界面上是不是可能出现一个大花脸?
可以这样朴实地理解,就知道为什么 UI 不允许多线程去操作了。不是不能,是不得已。
(线程中不允许直接操作 UI,在安卓下同样适用)
3. TThread.Synchronize() 原理。
是用 SendMessage 函数,发了一个 WM_NULL 消息给窗口。
窗口接到消息后再去更新界面。窗口消息响应事件可以理解为主线程时空。
以下是接上节的实例,来看如何正确地显示计算结果在窗口上。
unit uAccumulation; interface uses Classes; type TAccumulationThread = class; //此为提前申明 TOnAccumulated = procedure(Sender: TAccumulationThread) of object; // 如果不提前申明,Sender 就要定义成 TObject // 在事件函数中,要操作 Sender 就需要强制转换 TAccumulationThread = class(TThread) protected procedure Execute; override; public Num: integer; Total: integer; OnAccumulated: TOnAccumulated; end; implementation procedure TAccumulationThread.Execute; var i: integer; begin Total := 0; if Num > 0 then begin for i := 1 to Num do Total := Total + i end; // 当计算完成后,就调用 OnAccumulated 通知调用者 if Assigned(OnAccumulated) then OnAccumulated(self); end; end.
4. 哪些代码运行在线程时空?
Execute 函数中运行的、调用的代码,都是”线程代码“。与代码书写位置无关!!!
Sysnchronize 是个特殊的存在,它可以在线程时空里,把代码塞到主线程时空里去运行。
第三节,将实现线程如何保持生命力,创建后可以反复使用。慢慢进入实用阶段了,请不要错过。
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论