VCL线程的同步方法 Synchronize(用消息来同步)

转载 2017年01月18日 11:34:17

看本文时,可以同时参考:Delphi中线程类 TThread实现多线程编程(事件、临界区、Synchronize、WaitFor……)

 

先说一下RTL和VCL

  RTL(Run-Time library),运行时库,包括System、SysUtils、Math三个单元,提供的函数与语言、编译器、操作系统及进程有关

  RTL提供类之间继承于 TObject 和 RTL内部的类

  VCL(Visual Component Library),可视化组件库,包括Graphics、classes、Controls等与类和组件相关的单元

 

VCL不是线程安全的

   因为VCL不是线程安全的,所以对VCL的访问只能在主线程中。这将意味着:所有需要与用户打交道的代码都只能在主线程的环境中执行。这是其结构上明显的不足,并且这种需求看起来只局限在表面上,但它实际上有一些优点

  开发多线程项目的主要需要考虑的一点就是同步多线程使用资源,不要产生冲突,其实想Delphi的VCL组件也是一种资源,但是VCL不是线程安全的,不能让其他的线程使用,只能通过主线程来使用它

 

1.可能的一个应用场景

  比如在开发图形化界面的项目中,需要连接数据库,可以采用这样的策略:用主线程来绘制组件到图形化界面,而连接数据库的过程在子线程中实现。

  这时候能够保证就算在连接数据库的时候出现问题,子线程可能会去尝试一直连接,但是因为各个线程之间互不相干,各自执行各自的逻辑代码,所以不影响主线程绘制组件,所以窗体并不会卡住

  但是可能要在子线程中读取数据库中的数据来展示数据,这个时候,因为VCL 不是线程安全的,所以不能允许主线程(绘制组件)和子线程(想要去将从数据库中的数据“写”到界面上)同时去操作组件

  所以可能的解决方法(见 3.Synchronize() 方法)就是 使用Synchronize() 方法来调用子线程想要将数据“写到”界面的方法,这样就能保证这个方法实际上是在主线程中执行的(虽然它是子线程的方法,但是通过Synchronize() 方法可以实现将子线程的方法放到主线程中执行),这样就能保证不会出现多个线程使用VCL 组件

 

2.单线程用户界面的好处

  首先,只有一个线程能够访问用户界面,这减少了编程的复杂性。Win32 要求每个创建窗口的线程都要使用 GetMessage() 建立自己的消息循环。正如你所想的,这样的程序将会非常难于调试,因为消息的来源实在太多了

  其次,由于 VCL只用一个线程来访问它,那些用于把线程同步的代码就可以省略了,从而改善了应用程序的性能

 

3.Synchronize() 方法

  在 TThread中有一个方法叫Synchronize(),通过它可以让子线程的一些方法在主线程中执行。Synchronize() 的声明如下

1
procedure Synchronize(Method: TThreadMethod);

  参数Method 的类型是 TThreadMethod(这是一个无参数的过程),类型的声明如下

1
2
type
    TThreadMethod = procedure of object;

  Method参数用来传递在主线程中执行的方法。以 TTestThread对象为例,如果要在一个编辑框中显示计算的结果。首先要在TTestThread中增加能对编辑控件的Text 属性进行修改的方法,然后,用Synchronize() 来调用此方法

  给这个方法取名 GiveAnswer(),下面列出例子的代码,其中包含了更新主窗体的编辑控件的代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
unit ThrdU;
 
interface
uses
    Classes;
 
type
    TTestThread = class(TThread)
    private
        Answer: Integer;
    protected
        procedure GiveAnswer;
        procedure Execute; override;
    end;
 
implementation
uses
    SysUtils, Main;
 
{TTestThread}
procedure TTestThread.GiveAnswer;
begin
    MainForm.Edit1.Text := IntToStr(Answer);
end;
 
procedure TTestThread.Execute;
var
    I: Integer;
begin
    FreeOnTerminate:= True;
    for I:= 1 to 2000000 do
    begin
        if Terminated then Breadk;
        Inc(Answer, Round(Abs(Sin(Sqrt(I))));
        Synchronize(GiveAnswer);
    end;
end;

  Synchronize() 的作用是在主线程中执行一个方法。

  当你在程序中第一次创建一个附属线程时,VCL 将会从主线程环境中创建和维护一个隐含的线程窗口。此窗口唯一的目的是把通过Synchronize() 调用的方法排队

  Synchronize() 把由Method 参数传递过来的方法保存在 TThread的 FMethod字段中,然后,给线程窗口发送一个CM_EXECPROC消息,并且把消息的lParam 参数设为self(这里是值线程对象)。当线程窗口的窗口过程收到这个消息后,它就调用 FMethod字段所指定的方法。由于线程窗口是在主线程内创建的,线程窗口的窗口过程也将被主线程执行。因此,FMethod字段所指定的方法就在主线程内执行

  下图形象地说明了 Synchronize() 的内部机制和原理

 

4.用消息来同步

  可以利用在线程之间使用消息同步以替代 TThread.Synchronize() 方法。可以使用API 函数SendMessage() 或 PostMessage() 来发送消息。例如下面一段用来在一个线程中设置另一个线程中的编辑框文本的代码

1
2
3
4
5
6
var
    S: String;
begin
    S:= 'hello from threadland';
    SendMessage(SomeEdit.Handle, WM_SETTEXT, 0Integer(PChar(S)));
end;

  

转自:http://www.cnblogs.com/xumenger/p/4505104.html

Delphi:与VCL同步(Synchronize()、用消息来同步)

先说一下RTL和VCL   RTL(Run-Time library),运行时库,包括System、SysUtils、Math三个单元,提供的函数与语言、编译器、操作系统及进程有关   R...
  • u010984552
  • u010984552
  • 2016年08月26日 11:08
  • 2281

Thread多线程学习(二),java多线程中synchronize锁的使用和学习

synchronize我的理解是为了保证程序中的原子性和一致性,即当你有两个线程同时操作一段代码的时候,要让这段代码的执行是在任何状态下都是正确的,首先要保证synchronize的使用要对同一个对象...
  • a347911
  • a347911
  • 2016年11月15日 11:12
  • 815

(二)线程同步_1---同步一个方法

同步一个方法(Synchronizing a method) 在并发编程中,最常见的情景莫过于多线程共享同一资源的情景了,例如多个线程同时读写相同的shu'ju...
  • sunyameng_ndsc
  • sunyameng_ndsc
  • 2014年11月02日 23:42
  • 885

线程同步常用方式与区别

在介绍线程同步/互斥之前,我们先要理解同步与互斥的概念,引用书上的解释来说明这2个概念: 1、线程(进程)同步的主要任务 在引入多线程后,由于线程执行的异步性,会给系统造成混乱,特别是在急用临界资...
  • drdairen
  • drdairen
  • 2017年06月20日 14:02
  • 552

java有几种方法可以实现一个线程?用什么关键字修饰同步方法?

java多线程实现方法主要有3种:继承Thread类、实现Runnable接口和使用ExecutorService、callable、future实现有返回结果的多线程。其中前2方式线程执行完后都没有...
  • fogmeng2011
  • fogmeng2011
  • 2015年03月12日 22:37
  • 1346

多线程执行父类和子类中的同步方法的结论

结论: 父类和子类中分别有一个同步方法(没有重写),然后开启两个线程分别执行其中一个同步方法,最终结果是串行。结论:父类和子类中的同步方法是同一个锁。测试代码如下: SynParent...
  • Mr_Tony
  • Mr_Tony
  • 2017年05月05日 16:57
  • 420

C#之线程同步方法

目的在于需要控制一个服务器对于客户端的多线程使用的共享资源的控制 毕设聊天室中使用了一个链表将多个客户端的信息保存了起来 在用户需要交互操作的时候需要使用这个链表 主要锁起来的地方在于链表元素的插入和...
  • u013427969
  • u013427969
  • 2016年05月23日 09:22
  • 406

创建线程的两种方法和同步线程的问题

线程有两种创建方式: 1,       继承Thread类,覆写Run方法。建立子类对象的同时线程也被创建。 2,       实现Runnable接口,再通过Thread类创建线程,并将事先了R...
  • BigWind3
  • BigWind3
  • 2016年09月13日 12:34
  • 555

Delphi Dll线程使用Synchronize同步导致线程假死的解决方法

经试验可以在dll工程文件中加入以下语句 : Application.Initialize; if Application.Handle = 0 then begin     Appl...
  • mengzhongren2
  • mengzhongren2
  • 2017年07月13日 16:06
  • 248

线程同步(5种同步方式)

为何要使用同步?      java允许多线程并发控制,当多个线程同时操作一个可共享的资源变量时(如数据的增删改查),      将会导致数据不准确,相互之间产生冲突,因此加入同步锁以避免在该...
  • cengjingyige
  • cengjingyige
  • 2016年08月31日 10:17
  • 4636
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VCL线程的同步方法 Synchronize(用消息来同步)
举报原因:
原因补充:

(最多只允许输入30个字)