| 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 } |
| 26 |
|
|
| 27 |
|
unit IBDatabaseInfo; |
| 28 |
|
|
| 29 |
+ |
{$Mode Delphi} |
| 30 |
+ |
|
| 31 |
|
interface |
| 32 |
|
|
| 33 |
|
uses |
| 34 |
< |
Windows, SysUtils, Classes, Forms, ExtCtrls, |
| 35 |
< |
IBHeader, IBExternals, IB, IBDatabase; |
| 34 |
> |
SysUtils, Classes, IBHeader, IBExternals, IB, IBDatabase; |
| 35 |
|
|
| 36 |
|
type |
| 37 |
|
|
| 79 |
|
function GetUpdateCount: TStringList; |
| 80 |
|
function GetOperationCounts(DBInfoCommand: Integer; FOperation: TStringList): TStringList; |
| 81 |
|
function GetReadOnly: Long; |
| 83 |
– |
function GetLongDatabaseInfo(DatabaseInfoCommand: Integer): Long; |
| 82 |
|
function GetStringDatabaseInfo(DatabaseInfoCommand: Integer): String; |
| 83 |
|
function GetDBSQLDialect: Long; |
| 84 |
|
public |
| 85 |
|
constructor Create(AOwner: TComponent); override; |
| 86 |
|
destructor Destroy; override; |
| 87 |
|
function Call(ErrCode: ISC_STATUS; RaiseError: Boolean): ISC_STATUS; |
| 88 |
+ |
function GetLongDatabaseInfo(DatabaseInfoCommand: Integer): Long; |
| 89 |
|
property Allocation: Long read GetAllocation; |
| 90 |
|
property BaseLevel: Long read GetBaseLevel; |
| 91 |
|
property DBFileName: String read GetDBFileName; |
