临界区 TRTLCriticalSection 和 TCriticalSection

临界区对象TCriticalSection(Delphi) 与 TRtlCriticalSection 的区别

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;

时间: 2025-01-16 07:29:07

临界区 TRTLCriticalSection 和 TCriticalSection的相关文章

Trtlcriticalsection and tcriticalsection

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

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

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

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

临界区的 使用

{ 多线程程序中,如果各个线程要访问同一个资源,如同一个变量 这时就要使用线程同步技术,才不会使线程之间产生冲突和干扰 线程同步有多种办法,使用临界区是其中最简单,也是效率最高的办法(CPU占用时间最少) } // 先声明一个TRTLCriticalSection类型的全局变量 var  MyCs:TRTLCriticalSection; // 在程序开始或建立线程之前,初始化   InitializeCriticalSection(MyCs);//初始化临界区 // 在程序结束或所有线程结束后

Delphi临界区的使用

在开发一个平板点餐软件后台订单打印程序时,使用线程订单打印,为防打印阻塞使用临界区. 类: type  MYPARA=record  title:pchar; //标题  str:pchar;  flag:integer; //标志  end;  PMYPARA=^MYPARA; 变量:   ThreadId1:DWORD;         p:PMYPARA; CSprintjz:TRTLCriticalSection; {临界区信息} h2:THandle; 1.打印线程: {初始化打印单据

Delphi多线程的OnTerminate属性(附加一个关于临界区线程同步的例子)

首先看TThread源码中关于OnTerminate的代码: public .... property OnTerminate: TNotifyEvent read FOnTerminate write FOnTerminate; ... end; 再看Delphi自带的帮助手册中对于OnTerminate的解释: Occurs after the thread's Execute method has returned and before the thread is destroyed. p

C++拾遗--多线程:临界区解决子线程的互斥

C++拾遗--多线程:临界区解决子线程的互斥 前言 为了解决子线程的互斥问题,windows系统提出了关键段或临界区(CRITICAL_SECTION)的概念.它一共有四个共两对操作:初始化.销毁,进入.离开.它们定义在头文件synchapi.h中. 1.初始化变量 VOID WINAPI InitializeCriticalSection( LPCRITICAL_SECTION lpCriticalSection ); 2.销毁变量 VOID WINAPI DeleteCriticalSect

CriticalSection 临界区

// 临界区.cpp : 定义控制台应用程序的入口点.// #include "stdafx.h"#include<windows.h>#include<iostream>using namespace std; DWORD g_cnt1;DWORD g_cnt2;BOOL g_bContinue = TRUE;CRITICAL_SECTION cs; DWORD WINAPI ThreadProc(__in LPVOID lpParameter){ ::Ent

VC多线程临界区(转)

用于理解CriticalSection. 在使用多线程时,一般很少有多个线程完全独立的工作.往往是多个线程同时操作一个全局变量来获取程序的运行结果.多个线程同时访问同一个全局变量,如果都是读取操作,则不会出现问题.如果是写操作,则会发生错误.这时候,我们可以通过临界区,为全局变量设置一个保护,保证同时只有一个线程可以访问此变量,其他变量进入等待状态.       临界区(Critical Section)是一段独占对某些共享资源访问的代码,在任意时刻只允许一个线程对共享资源进行访问.如果有多个线