unit uDAHETConnections;

{----------------------------------------------------------------------------}
{ Data Abstract Library - 'Rosetta' Library - HIGHLY CONFIDENTIAL
{
{ compiler: Delphi 6 and up
{ platform: Win32
{
{ (c)opyright RemObjects Software. all rights reserved.
{
{ Using this code requires a valid license of the Data Abstract
{ which can be obtained at http://www.remobjects.com.
{----------------------------------------------------------------------------}

{$I DataAbstract.inc}

interface

uses
  Classes, SysUtils,
  uDAInterfaces;

type
  TDAHETConnection = class(TDAConnection)
  private
    fObjectMappings: TStrings;
    procedure SetObjectMappings(const Value: TStrings);
  protected
    function GetConnectionString: string; override;
    procedure SetConnectionString(const aValue: string); override;
  public
    constructor Create(aCollection: TCollection); override;
    destructor Destroy; override;
  published
    property ObjectMappings: TStrings read fObjectMappings write SetObjectMappings;
  end;

implementation

{ TDAHETConnection }

constructor TDAHETConnection.Create(aCollection: TCollection);
begin
  inherited Create (aCollection);
  fObjectMappings := TStringList.Create();
end;

destructor TDAHETConnection.Destroy;
begin
  FreeAndNil(fObjectMappings);
  inherited;
end;

function TDAHETConnection.GetConnectionString: string;
begin
  result := 'HET?';
end;

procedure TDAHETConnection.SetConnectionString(const aValue: string);
begin
  { no-op }
end;

procedure TDAHETConnection.SetObjectMappings(const Value: TStrings);
begin
  fObjectMappings.Assign(Value);
end;

end.