Delphi Thread 线程同步

最新推荐文章于 2024-08-16 16:18:11 发布

落幕年代

最新推荐文章于 2024-08-16 16:18:11 发布

阅读量1.9k

点赞数

分类专栏： Delphi Thread 线程文章标签： delphi thread

本文链接：https://blog.csdn.net/lailai186/article/details/8763515

版权

本文介绍了Delphi中四种线程同步技术：Critical Sections、Mutex、Semaphore以及TcriticalSection。通过这些技术，开发者可以确保多线程环境下对共享资源的安全访问，避免并发问题。示例代码展示了如何在Delphi应用中实现线程同步。

摘要由CSDN通过智能技术生成

总结一下Windows常用的几种线程同步技术。

1.Critical Sections（临界段），源代码中如果有不能由两个或两个以上线程同时执行的部分，可以用临界段来使这部分的代码执行串行化。

它只能在一个独立的进程或一个独立的应用程序中使用。

使用方法如下：
//在窗体创建中
          InitializeCriticalSection(Critical1)
//在窗体销毁中
         DeleteCriticalSection(Critical1)
//在线程中
         EnterCriticalSection(Critical1)
……保护的代码
        LeaveCriticalSection(Critical1)

2.Mutex（互斥对象），是用于串行化访问资源的全局对象。

我们首先设置互斥对象，然后访问资源，最后释放互斥对象。

在设置互斥对象时，如果另一个线程（或进程）试图设置相同的互斥对象，该线程将会停下来，直到前一个线程（或进程）释放该互斥对象为止。注意它可以由不同应用程序共享。

使用方法如下：
//在窗体创建中
         hMutex:=CreateMutex(nil,false,nil)
//在窗体销毁中
         CloseHandle(hMutex)
//在线程中
        WaitForSingleObject(hMutex,INFINITE)
……保护的代码
       ReleaseMutex(hMutex)

3.Semaphore（信号量），它与互斥对象相似，但它可以计数。例如可以允许一个给定资源同时同时被三个线程访问。其实Mutex就是最大计数为一的Semaphore。

使用方法如下：
//在窗体创建中
             hSemaphore:=CreateSemaphore(nil,lInitialCount,lMaximumCount,lpName)
//在窗体销毁中
             CloseHandle(hSemaphore)
//在线程中
             WaitForSingleObject(hSemaphore,INFINITE)
……保护的代码
             ReleaseSemaphore(hSemaphore, lReleaseCount, lpPreviousCount)

      4.还可以使用Delphi中的TcriticalSection这个VCL对象，它的定义在Syncobjs.pas中。