labradapiexceptions.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 LabRADAPIExceptions;

interface

 uses
  LabRADExceptions;

 const
  LabRADErrorNotConnected = 1000;
  LabRADErrorEmptyTarget  = 1000;
  LabRADErrorEmptySetting = 1000;

 type
  ELabRADNotConnected = class(ELabRADException)
   public
    constructor Create; reintroduce;
  end;

  ELabRADEmptyTarget = class(ELabRADException)
   public
    constructor Create; reintroduce;
  end;

  ELabRADEmptySetting = class(ELabRADException)
   public
    constructor Create; reintroduce;
  end;

implementation

constructor ELabRADNotConnected.Create;
begin
  inherited Create(LabRADErrorNotConnected, 'The connection needs to be active to send packets');
end;

constructor ELabRADEmptyTarget.Create;
begin
  inherited Create(LabRADErrorEmptyTarget, 'The target name cannot be empty');
end;

constructor ELabRADEmptySetting.Create;
begin
  inherited Create(LabRADErrorEmptySetting, 'The setting name cannot be empty');
end;

end.