WeakObjectReferences/MonitorExample/MonitorExample.dpr at master · ziv2015/WeakObjectReferences · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
program MonitorExample;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  SysUtils,
  Classes,
  WeakObjectReferences in '..\Source\WeakObjectReferences.pas',
  CritSectMonitor in 'CritSectMonitor.pas';

procedure Main;
var
  Obj: TObject;
  Thread: TThread;
begin
  Obj := TObject.Create;
  try
    TCritSectMonitor.Enter(Obj);
    WriteLn('Main enter');

    Thread := TThread.CreateAnonymousThread(
      procedure()
      begin
        WriteLn('Thread start');
        TCritSectMonitor.Enter(Obj);
        WriteLn('Thread entered');
        TCritSectMonitor.Exit(Obj);
      end);
    Thread.FreeOnTerminate := False;

    WriteLn('Main wait');

    Thread.Start;
    Sleep(1000);

    WriteLn('Main leave');
    TCritSectMonitor.Exit(Obj);
    Thread.WaitFor;
  finally
    Obj.Free;
  end;

  if DebugHook <> 0 then
  begin
    WriteLn;
    WriteLn('Press <ENTER> to quit.');
    ReadLn;
  end;
end;

begin
  Main;
end.