| 18 |
|
{ an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either } |
| 19 |
|
{ express or implied. See the License for the specific language } |
| 20 |
|
{ governing rights and limitations under the License. } |
| 21 |
– |
{ The Original Code was created by InterBase Software Corporation } |
| 22 |
– |
{ and its successors. } |
| 21 |
|
{ Portions created by Inprise Corporation are Copyright (C) Inprise } |
| 22 |
|
{ Corporation. All Rights Reserved. } |
| 23 |
|
{ Contributor(s): Jeff Overcash } |
| 24 |
|
{ } |
| 25 |
+ |
{ IBX For Lazarus (Firebird Express) } |
| 26 |
+ |
{ Contributor: Tony Whyman, MWA Software http://www.mwasoftware.co.uk } |
| 27 |
+ |
{ Portions created by MWA Software are copyright McCallum Whyman } |
| 28 |
+ |
{ Associates Ltd 2011 } |
| 29 |
+ |
{ } |
| 30 |
|
{************************************************************************} |
| 31 |
|
|
| 32 |
|
unit IBDatabaseInfo; |
| 33 |
|
|
| 34 |
+ |
{$Mode Delphi} |
| 35 |
+ |
|
| 36 |
|
interface |
| 37 |
|
|
| 38 |
|
uses |
| 39 |
< |
Windows, SysUtils, Classes, Forms, ExtCtrls, |
| 35 |
< |
IBHeader, IBExternals, IB, IBDatabase; |
| 39 |
> |
SysUtils, Classes, IBHeader, IBExternals, IB, IBDatabase; |
| 40 |
|
|
| 41 |
|
type |
| 42 |
|
|
| 84 |
|
function GetUpdateCount: TStringList; |
| 85 |
|
function GetOperationCounts(DBInfoCommand: Integer; FOperation: TStringList): TStringList; |
| 86 |
|
function GetReadOnly: Long; |
| 83 |
– |
function GetLongDatabaseInfo(DatabaseInfoCommand: Integer): Long; |
| 87 |
|
function GetStringDatabaseInfo(DatabaseInfoCommand: Integer): String; |
| 88 |
|
function GetDBSQLDialect: Long; |
| 89 |
|
public |
| 90 |
|
constructor Create(AOwner: TComponent); override; |
| 91 |
|
destructor Destroy; override; |
| 92 |
|
function Call(ErrCode: ISC_STATUS; RaiseError: Boolean): ISC_STATUS; |
| 93 |
+ |
function GetLongDatabaseInfo(DatabaseInfoCommand: Integer): Long; |
| 94 |
|
property Allocation: Long read GetAllocation; |
| 95 |
|
property BaseLevel: Long read GetBaseLevel; |
| 96 |
|
property DBFileName: String read GetDBFileName; |
