david
e4d0fcb01d
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@46 b6239004-a887-0f4b-9937-50029ccdca16
70 lines
1.6 KiB
ObjectPascal
70 lines
1.6 KiB
ObjectPascal
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.
|