Trtlcriticalsection and tcriticalsection

TRTLCriticalSection是一个结构体,在windows单元中定义;
是InitializeCriticalSection,

  EnterCriticalSection,

  LeaveCriticalSection,

  DeleteCriticalSection 等这几个kernel32.dll中的临界区操作API的参数;

  TCriticalSection是在SyncObjs单元中实现的类,它对上面的那些临界区操作API函数

  进行了了封装,简化并方便了在Delphi的使用;

  如TCriticalSection.Enter;就是调用了EnterCriticalSection这个API函数。

  多线程程序中,如果各个线程要访问同一个资源,如同一个变量

  这时就要使用线程同步技术,才不会使线程之间产生冲突和干扰

  线程同步有多种办法,使用临界区是其中最简单,也是效率最高的办法(CPU占

  用时间最少)

  使用临界区代码如下:

  先声明一个TRTLCriticalSection类型的全局变量

  var
    MyCs:TRTLCriticalSection;

    在程序开始或建立线程之前,初始化

    InitializeCriticalSection(MyCs);//初始化临界区

    在程序结束或所有线程结束后,删除它

    DeleteCriticalSection(MyCs);//删除临界区

    再在线程中要同步的地方加入

    EnterCriticalSection(MyCs); //进入临界区
    try
      //程序代码
    finally
      LeaveCriticalSection(MyCs); //离开临界区
    end;
时间: 2024-11-14 01:32:58

Trtlcriticalsection and tcriticalsection的相关文章

临界区 TRTLCriticalSection 和 TCriticalSection

临界区对象TCriticalSection(Delphi) 与 TRtlCriticalSection 的区别 TRtlCriticalSection 是一个结构体,在windows单元中定义: 是InitializeCriticalSection,EnterCriticalSection,LeaveCriticalSection, DeleteCriticalSection 等这几个kernel32.dll中的临界区操作API的参数: TCriticalSection是在SyncObjs单元中

转-临界区对象TCriticalSection与TRTLCriticalSection的区别

TRTLCriticalSection是一个结构体,在windows单元中定义: 是InitializeCriticalSection, EnterCriticalSection, LeaveCriticalSection, DeleteCriticalSection 等这几个kernel32.dll中的临界区操作API的参数: TCriticalSection是在SyncObjs单元中实现的类,它对上面的那些临界区操作API函数 进行了了封装,简化并方便了在Delphi的使用: 如TCriti

delphi 多线程2

多线程常用的内核对象:CreateEvent事件,CreateMutex互斥,CreateSemaphore信号,CreateWaitableTimer计时器 {建立事件} function CreateEvent( lpEventAttributes: PSecurityAttributes; {!} bManualReset: BOOL; bInitialState: BOOL; lpName: PWideChar ): THandle; stdcall; {建立互斥} function C

TMsgThread, TCommThread -- 在delphi线程中实现消息循环(105篇博客,好多研究消息的文章)

在delphi线程中实现消息循环 在delphi线程中实现消息循环 Delphi的TThread类使用很方便,但是有时候我们需要在线程类中使用消息循环,delphi没有提供. 花了两天的事件研究了一下win32的消息系统,写了一个线程内消息循环的测试. 但是没有具体应用过,贴出来给有这方面需求的DFW参考一下.希望大家和我讨论. {----------------------------------------------------------------------------- Unit

Delphi线程池

unit uThreadPool; {   aPool.AddRequest(TMyRequest.Create(RequestParam1, RequestParam2, ...)); } interfaceuses  Windows,  Classes; // 是否记录日志// {$DEFINE NOLOGS} type  TCriticalSection = class(TObject)  protected    FSection: TRTLCriticalSection;  publi

Delphi中多线程的技巧

创建线程 MsgThread := TMsgThread.Create(False) ; //创建并执行线程 MsgThread := TMsgThread.Create(True) ; //创建线程后挂起 constructor Create(CreateSuspended: Boolean); 中的参数CreateSuspended表示创建后是否挂起线程. 2)设置线程里没有设置循环执行的话,且设置FreeOnTerminate为True,则线程执行完后就会自己释放. 3)在一个线程结束后,

Delphi 线程同步技术(转)

上次跟大家分享了线程的标准代码,其实在线程的使用中最重要的是线程的同步问题,如果你在使用线程后,发现你的界面经常被卡死,或者无法显示出来,显示混乱,你的使用的变量值老是不按预想的变化,结果往往出乎意料,那么你很有可能是忽略了线程同步的问题. 当有多个线程的时候,经常需要去同步这些线程以访问同一个数据或资源.例如,假设有一个程序,其中一个线程用于把文件读到内存,而另一个线程用于统计文件中的字符数.当然,在把整个文件调入内存之前,统计它的计数是没有意义的.但是,由于每个操作都有自己的 线程,操作系统

msg waitfor

Delphi中的线程类 转贴于 华夏黑客同盟 http://www.77169.org Delphi中有一个线程类TThread是用来实现多线程编程的,这个绝大多数Delphi书藉都有说到,但基本上都是对 TThread类的几个成员作一简单介绍,再说明一下Execute的实现和Synchronize的用法就完了.然而这并不是多线程编 程的全部,我写此文的目的在于对此作一个补充. 线程本质上是进程中一段并发运行的代码.一个进程至少有一个线程,即所谓的主线程.同时还可以有多个子线程. 当一个进程中用

Delphi多线程编程(8)--多线程同步之CriticalSection(临界区)

转载自:万一的博客 先看一段程序 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1=class(TForm) ListBox1: TListBox; Button1: TButton; procedure FormCreate(Sender: TObject); procedure