FirebirdDbSettings

unit FirebirdDbSettings;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, ModelDbSettings;

const
  protocol = 'firebird-2.5';
  port = '3050';
  {$IFDEF MSWINDOWS}
    DbLib = 'fbclient.dll';
  {$ENDIF}
  {$IFDEF UNIX}
    DbLib = 'libfbclient.so.2.5.3';
  {$ENDIF}

type

  { TDbSettings }

  TFirebirdDbSettings = class(TModelDbSettings)
  protected
    //FDbSettings:TModelDbSettings;
    FDbHost: String;
    FDbLibrary: String;
    FDbName: String;
    FDbPassword: String;
    FDbPath: String;
    FDbPort: Word;
    FDbProtocol: String;
    FDbUser: String;
  public
    Constructor Create;
  published
    property DbHost:String read FDbHost;
    property DbPort:Word read FDbPort;
    property DbPath:String read FDbPath;
    property DbName:String read FDbName;
    property DbUser:String read FDbUser;
    property DbPassword:String read FDbPassword;
    property DbProtocol:String read FDbProtocol;
    property DbLibrary:String read FDbLibrary;
  end;

implementation

{ TDbSettings }

constructor TFirebirdDbSettings.Create;
begin
  with self.FDbIni do
  begin
    //Create('HSoft.ini');
    //Write('Server');
    Header('firebird');
    FDbHost:=Read('Server','localhost');
    Write('Port',port);
    FDbPort:=strtoint(Read('Port',port));
    //Write('Path');
    FDbPath:=Read('Path');
    //Write('Name');
    FDbName:=Read('Name');
    //Write('User');
    //FDbUser:=Read('User',DbUser);
    FDbUser:=self.DbUser;
    //Write('Password');
    //FDbPassword:=Read('Password',DbPassword);
    FDbPassword:=self.DbPassword;
    Write('Protocol',protocol);
    FDbProtocol:=Read('Protocol',protocol);
    BackupSettings;
  end;
  FDbLibrary:=self.DbLibrary+DbLib;
end;

end.