unit LaserStateWatcherThread;

interface

uses
  MainForm,
  LaserState,
  System.Drawing,
  System.Windows.Forms,
  Remotefunctions,
  System.Threading,
  Led;



type

  updateDelegate = procedure(led:TLed; value : boolean) of object;

  TLaserStateWatcherThread = class

  private
    m_MainForm : TMainForm;
    m_WatcherThread : Thread;

    m_ThreadRunning:boolean;

    procedure running();

    procedure safeUpdate(led:TLed; value : boolean);
    //procedure safeUpdate();


  public
    constructor Create(form : TMainForm);
    procedure start();
    procedure stop();
  end;

implementation

constructor TLaserStateWatcherThread.Create(form : TMainForm);

begin
  inherited Create();
  m_MainForm := form;
  m_WatcherThread := Thread.Create(running);
end;




procedure TLaserStateWatcherThread.running; unsafe;
var
     helpDelegate : updateDelegate;
begin

  helpDelegate := &Self.safeUpdate;

  while (m_ThreadRunning) do begin

    try
    
    //Wo liegt mein Fehler in dieser Zeile:
    m_MainForm.LEDLaserConnected.Invoke(System.Delegate(@helpDelegate(m_MainForm.LEDLaserConnected,false)));
   //Compiler meldet:
   //[Pascal Warnung] LaserStateWatcherThread.pas(67): W1047 Unsicherer Code '@-Operator'
   //[Pascal Fehler] LaserStateWatcherThread.pas(67): E2036 Variable erforderlich
    
     //So war es vorher:
     //m_MainForm.LEDLaserConnected.value:= false;
    end;
   

    Thread.Sleep(1000);
  end;


end;


procedure TLaserStateWatcherThread.safeUpdate(led:TLed; value : boolean);
begin
  led.Value := value;
end;



procedure TLaserStateWatcherThread.start;
begin
  self.m_WatcherThread.Start();
  m_ThreadRunning := true;
end;


procedure TLaserStateWatcherThread.stop;
begin

  m_ThreadRunning := false;
  m_WatcherThread.Abort;

end;

end.

//Sollte stimmen:
helpDelegate := &Self.safeUpdate;
//compilerfehler (wie oben beschrieben):
m_MainForm.LEDLaserConnected.Invoke(System.Delegate(@helpDelegate(m_MainForm.LEDLaserConnected,false)));