Delphi中多线程同步过程Synchronize的一些说明

在windows原生应用程序开发中，经常伴随多线程的使用，多线程开发很简单，难点就是在于线程的同步，在Delphi中提供了VC中不具备的一个过程Synchronize，使用起来非常方便，解决了很多VC开发中碰到的常见问题，但是在看了很多Delphi代码后，发现很多人对于Synchronize的理解还是有问题的，不能很好地正确使用Synchronize过程，本文对Synchronize过程的使用提出一些个人的见解，供大家参考。

在VC中使用多线程，由于MFC或VC本身的特点，VC人员在更新窗口界面和工作线程的关系上分的是比较清楚的，但是Delphi里由于VCL提供的方便特性，造成大量人员在工作线程中更新窗口界面，给系统稳定带来潜在的危险，应该说比较严格的方法应该是永远让更新窗口界面的工作仅由主线程完成，工作线程仅仅做后台的一些工作，当工作线程的结果需要反馈到界面上来的时候，应该使用各种同步对象（临界区、互斥量）等来进行同步，然后让主线程更新窗口界面。

这里由于主要讲解Synchronize的使用，使用同步对象更新的方法就不说了，首先说一下在VC中比较接近Synchronize过程的SendMessage函数，其实在Delphi中也可以使用SendMessage来实现线程同步，实现通知主线程更新窗口界面，只是没有Synchronize过程用起来那么方便。

SendMessage函数的工作过程是比较复杂的，有兴趣的朋友可以多查查SendMessage函数及其同多线程的关系，如果在工作线程中调用SendMessage函数，工作线程会挂起，然后等待主线程空闲，主线程空闲开始处理接收到的消息，处理完成把结果返回，工作线程接收到返回结果后继续运行，也就是消息处理函数是在主线程中运行的，而且工作线程会挂起等待SendMessage函数返回即消息处理函数处理完成才会继续往下执行，在VC开发中这种方式也是经常被使用的。

理解了SendMessage函数工作过程，现在来说一下Synchronize过程的工作过程，Synchronize过程是Delphi底层实现的，其工作原理非常类似SendMessage函数，但是使用起来要比SendMessage函数方便易用，Synchronize过程开始时，也是会挂起当前的工作线程（使用的同步对象），然后让主线程执行Synchronize参数中具体的过程proc，工作线程等待proc执行，proc执行结束返回到工作线程，工作线程再继续执行。

总之，如果在TThread的Execute过程中仅仅调用一个Synchronize过程，Synchronize参数中的过程都是在主线程中执行的，等于没有使用多线程。也就是要细化Synchronize参数中的过程proc，仅让proc执行一些更新界面的工作，不能把真正耗时的动作放在proc中，不然使用多线程没有任何意义。

 

附：Delphi底层中Synchronize过程的实现过程简介

Synchronize过程的核心函数是System.Classes.pas中的过程

[delphi]  view plain  copy

 

1. class procedure TThread.Synchronize(ASyncRec: PSynchronizeRecord; QueueEvent: Boolean = False);  

这个函数中是通过调用WakeMainThread事件方法调用具体过程proc的，WakeMainThread事件的注册在Vcl.Forms.pas里，应用程序启动时由Application对象进行注册，WakeMainThread工作过程在Vcl.Forms.pas中为

 

 

[delphi]  view plain  copy

 

1. procedureTApplication.WakeMainThread(Sender: TObject);  
2. begin  
3.  PostMessage(Handle, WM_NULL, 0, 0);  
4. end;  

 

也就是仅仅把WM_NULL消息放入应用程序消息队列中，工作线程调用完WakeMainThread事件方法即PostMessage以后就挂起（通过同步对象）等待proc执行完成信号触发，Vcl.Forms.pas中主线程消息处理函数中会看到如下代码

 

[delphi]  view plain  copy

 

1. WM_NULL:  
2.   CheckSynchronize;  

即在检索消息循环后碰到WM_NULL消息，会执行CheckSynchronize过程，CheckSynchronize过程在System.Classes.pas中

 

1. function CheckSynchronize(Timeout: Integer= 0): Boolean;  

其工作核心就是执行proc过程，并在执行完成后设置proc执行完成信号，工作线程检测到这个信号后会唤醒，并继续执行后续工作。

 

以上过程中从Synchronize调用到PostMessage都是在工作线程中进行的，然后挂起，检索WM_NULL消息执行CheckSynchronize过程和proc过程都是在主线程中完成的，这些工作完成后，工作线程再唤醒继续执行。

 

 

转载于:https://www.cnblogs.com/Little-Star/p/7485445.html