Criticalsection Aquire vs Enter

[Shark99]

Was ist der Unterschied zwischen Aquire und Enter bei einer CriticalSection?

In der Hilfe heisst es "Enter calls the Acquire method", also kann es nicht das Gleiche sein.

[grl]

Doch, es ist das gleiche - zumindest bei Delphi 7.

Da ruft TCriticalSection.Enter Aquire auf - und sonst nix.

also so:

Delphi-Quellcode:

procedure TCriticalSection.Enter;
begin
  Aquire;
end;

Zu finden in SyncObjs.pas

Gruß
GRL

[jaenicke]

Und Aquire ruft wiederum Enter der dahinterstehenden API-Kapselung (TRTLCriticalSection für Windows, TCritSec für den Rest) auf.

Steht aber alles wie grl schon geschrieben hat im Quelltext.

[Der schöne Günther]

In XE5 das gleiche. Reines Synonym.

Interessant ist aber das Bestehen einer Helperklasse TCriticalSectionHelper welche wieder von Acquire aufgerufen wird:

Delphi-Quellcode:

procedure TCriticalSection.Acquire;
begin
  FSection.Enter;
end;

FSection ist ein Alias für den Record Winapi.Windows._RTL_CRITICAL_SECTION und die Helperklasse greift mit folgenden Methoden ihm unter die Arme:

Delphi-Quellcode:

  TCriticalSectionHelper = record helper for TRTLCriticalSection
    procedure Initialize; inline;
    procedure Destroy; inline;
    procedure Free; inline;
    procedure Enter; inline;
    procedure Leave; inline;
    function TryEnter: Boolean; inline;
  end;

mit

Delphi-Quellcode:

procedure TCriticalSectionHelper.Enter;
begin
  EnterCriticalSection(Self);
end;

Das geht (zumindest unter Windows) auf die kernel32.dll: procedure EnterCriticalSection; external kernel32 name 'EnterCriticalSection'; Hoffe, das hilft dir beim nächsten Fernsehquiz weiter

The more you know...

[jaenicke]

Der Grund dafür ist einfach:
Der Record TCritSec für andere Systeme als Windows hat einfach die gleichen Methoden, so dass man beides ansonsten gleich schreiben kann. Eine gute Idee muss ich sagen.

[Panthrax]

• Aquire wird umbenannt in Enter
• Release wird umbenannt in Leave

Ein Blick in die Herkunft der Methoden hilft verstehen:

Delphi-Quellcode:

type
  TSynchroObject = class(TObject)
    procedure Acquire; virtual;
    procedure Release; virtual;
  end;

Ein Synchronisationsobjekt wird beschlagnahmt oder freigelassen.

Delphi-Quellcode:

type
  TCriticalSection = class(TSynchroObject)
    procedure Enter; inline;
    procedure Leave; inline;
  end;

Ein kritischer Abschnitt wird betreten oder verlassen.

Es wird sprachliche Konsistenz hergestellt.

Unsere Sprache ist unsere Welt in der wir zu denken vermögen. Sie ist wichtig und bedarf der Pflege.