labradclient.pas

来自「As science advances, novel experiments a」· PAS 代码 · 共 64 行

{ 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 LabRADClient;

interface

 uses
  Classes, LabRADSocket, LabRADConnection, LabRADDataStructures;

 type
  TLabRADClient = class(TLabRADConnection)
   private
    { Private declarations }

   protected
    { Protected declarations }
    function GetLoginData: TLabRADData; override;

   public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;

   published
    { Published declarations }
  end;

procedure Register;

implementation

constructor TLabRADClient.Create(AOwner: TComponent);
begin
  inherited;
  ConnectionName:='Delphi Client';
end;

function TLabRADClient.GetLoginData: TLabRADData;
begin
  Result:=TLabRADData.Create('(ws)');
  Result.SetWord  (0, 1);
  Result.SetString(1, ConnectionName);
end;

procedure Register;
begin
  RegisterComponents('LabRAD', [TLabRADClient]);
end;

end.