labradcallback.pas

As science advances, novel experiments are becoming more and more complex, requiring a zoo of contro

{ Copyright (C) 2007 Markus Ansmann
 
  This program is free software: you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation, either version 2 of the License, or
  (at your option) any later version.
 
  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.
 
  You should have received a copy of the GNU General Public License
  along with this program.  If not, see <http://www.gnu.org/licenses/>.  }

unit LabRADCallback;

interface

 uses Classes;

 type
  TLabRADCallbackEvent = procedure(Sender: TObject; Data: Integer) of object;

  TLabRADCallback = class(TThread)
   private
    fCallback: TLabRADCallbackEvent;
    fData:     integer;

    procedure Callback;

   protected
    procedure Execute; override;

   public
    constructor Create(Callback: TLabRADCallbackEvent; Data: integer); reintroduce;
  end;

implementation

constructor TLabRADCallback.Create(Callback: TLabRADCallbackEvent; Data: integer);
begin
  inherited Create(False);
  FreeOnTerminate:=True;
  fCallback:=Callback;
  fData:=Data;
end;

procedure TLabRADCallback.Callback;
begin
  fCallback(self, fData);
end;

procedure TLabRADCallback.Execute;
begin
  Synchronize(Callback);
end;

end.