FMethod: TThreadMethod;

    FSynchronizeException: TObject;

  end;

用于进行线程和主线程之间进行数据交换，包括传入线程类对象，同步方法及发生的异常。

在Synchronize中调用了它的一个重载版本，而且这个重载版本比较特别，它是一个“类方法”。所谓类方法，是一种特殊的类成员方法，它的调用并不需要创建类实例，而是像构造函数那样，通过类名调用。之所以会用类方法来实现它，是因为为了可以在线程对象没有创建时也能调用它。不过实际中是用它的另一个重载版本（也是类方法）和另一个类方法StaticSynchronize。下面是这个Synchronize的代码：

class procedure TThread.Synchronize(ASyncRec: PSynchronizeRecord);

var

  SyncProc: TSyncProc;

begin

  if GetCurrentThreadID = MainThreadID then

    ASyncRec.FMethod

  else

  begin

    SyncProc.Signal := CreateEvent(nil, True, False, nil);

    try

      EnterCriticalSection(ThreadLock);

      try

        if SyncList = nil then

          SyncList := TList.Create;

        SyncProc.SyncRec := ASyncRec;

        SyncList.Add(@SyncProc);

        SignalSyncEvent;

        if Assigned(WakeMainThread) then

          WakeMainThread(SyncProc.SyncRec.FThread);

        LeaveCriticalSection(ThreadLock);

        try

          WaitForSingleObject(SyncProc.Signal, INFINITE);

        finally

          EnterCriticalSection(ThreadLock);

        end;

      finally

        LeaveCriticalSection(ThreadLock);

      end;

    finally

      CloseHandle(SyncProc.Signal);

    end;

    if Assigned(ASyncRec.FSynchronizeException) then raise ASyncRec.FSynchronizeException;

  end;

end;

这段代码略多一些，不过也不算太复杂。

首先是判断当前线程是否是主线程，如果是，则简单地执行同步方法后返回。

如果不是主线程，则准备开始同步过程。

通过局部变量SyncProc记录线程交换数据（参数）和一个Event Handle，其记录结构如下：

  TSyncProc = record

    SyncRec: PSynchronizeRecord;

    Signal: THandle;

  end;

然后创建一个Event，接着进入临界区（通过全局变量ThreadLock进行，因为同时只能有一个线程进入Synchronize状态，所以可以用全局变量记录），然后就是把这个记录数据存入SyncList这个列表中（如果这个列表不存在的话，则创建它）。可见ThreadLock这个临界区就是为了保护对SyncList的访问，这一点在后面介绍CheckSynchronize时会再次看到。

再接下就是调用SignalSyncEvent，其代码在前面介绍TThread的构造函数时已经介绍过了，它的功能就是简单地将SyncEvent作一个Set的操作。关于这个SyncEvent的用途，将在后面介绍WaitFor时再详述。

上一页  [1] [2] [3]  下一页