david
e28ea786d9
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@61 b6239004-a887-0f4b-9937-50029ccdca16
405 lines
12 KiB
ObjectPascal
405 lines
12 KiB
ObjectPascal
unit uDASQLitePassDriver;
|
|
|
|
{----------------------------------------------------------------------------}
|
|
{ Data Abstract Library - Driver Library }
|
|
{ }
|
|
{ compiler: Delphi 6 and up, Kylix 3 and up }
|
|
{ platform: Win32, Linux }
|
|
{ }
|
|
{ (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. }
|
|
{ }
|
|
{ based on code of Giovanni Siano }
|
|
{----------------------------------------------------------------------------}
|
|
|
|
{$IFDEF MSWINDOWS}
|
|
{$I ..\DataAbstract.inc}
|
|
{$ELSE}
|
|
{$I ../DataAbstract.inc}
|
|
{$ENDIF}
|
|
|
|
{$IFNDEF FPC}
|
|
{$R DataAbstract_SQLitePassDriver_Glyphs.res}
|
|
{$ENDIF}
|
|
|
|
interface
|
|
|
|
uses
|
|
{$IFDEF MSWINDOWS}Windows,{$ENDIF}
|
|
Classes, DB, uDAEngine, uDAInterfaces, uROClasses, uDAUtils, uDASQLiteInterfaces, SqlitePassDbo;
|
|
|
|
type
|
|
{ TDASQLitePassDriver }
|
|
TDASQLitePassDriver = class(TDADriverReference)
|
|
end;
|
|
|
|
{ TDAESQLiteDriver }
|
|
TDAESQLiteDriver = class(uDASQLiteInterfaces.TDASQLiteDriver, IDADriver40)
|
|
protected
|
|
function GetConnectionClass: TDAEConnectionClass; override;
|
|
procedure CustomizeConnectionObject(aConnection: TDAEConnection); override;
|
|
// IDADriver
|
|
function GetDriverID: string; override;
|
|
function GetDescription: string; override;
|
|
procedure GetAuxParams(const AuxDriver: string; out List: IROStrings); override;
|
|
function GetAvailableDriverOptions: TDAAvailableDriverOptions; override;
|
|
// IDADriver40
|
|
function GetProviderDefaultCustomParameters(Provider: string): string; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
|
|
public
|
|
end;
|
|
|
|
// for access to protected methods
|
|
TDASQLite3PassDB = class(TSqlitePassDatabase)
|
|
private
|
|
public
|
|
end;
|
|
|
|
{ TSQLiteConnection }
|
|
TSQLiteConnection = class(TDAConnectionWrapper)
|
|
private
|
|
fConnection: TDASQLite3PassDB;
|
|
protected
|
|
function GetConnected: Boolean; override;
|
|
procedure SetConnected(Value: Boolean); override;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
property Connection: TDASQLite3PassDB read fConnection;
|
|
end;
|
|
|
|
{ TDAESQLiteConnection }
|
|
TDAESQLiteConnection = class(TDASQLiteConnection)
|
|
private
|
|
FtransactionFlag: Boolean;
|
|
fConnection: TSQLiteConnection;
|
|
protected
|
|
// TDAEConnection
|
|
function CreateCustomConnection: TCustomConnection; override;
|
|
function GetDatasetClass: TDAEDatasetClass; override;
|
|
procedure DoApplyConnectionString(aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection); override;
|
|
function DoBeginTransaction: integer; override;
|
|
procedure DoCommitTransaction; override;
|
|
procedure DoRollbackTransaction; override;
|
|
function DoGetInTransaction: boolean; override;
|
|
function DoGetLastAutoInc(const GeneratorName: string): integer; override;
|
|
procedure DoGetForeignKeys(out ForeignKeys: TDADriverForeignKeyCollection); override;
|
|
procedure DoGetQueryFields(const aSQL: string; aParamsIfNeeded:
|
|
TDAParamCollection; out Fields: TDAFieldCollection); override;
|
|
procedure DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection); override;
|
|
procedure DoGetTableNames(out List: IROStrings); override;
|
|
|
|
function IdentifierNeedsQuoting(const iIdentifier: string): boolean; override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
|
|
public
|
|
constructor Create(aDriver: TDAEDriver; aName: string = ''); override;
|
|
end;
|
|
|
|
{ TDAESQLiteQuery }
|
|
TDAESQLiteQuery = class(TDAEDataset,IDAMustSetParams)
|
|
private
|
|
protected
|
|
procedure ClearParams; override;
|
|
function CreateDataset(aConnection: TDAEConnection): TDataset; override;
|
|
procedure DoPrepare(Value: boolean); override; {$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
|
|
function DoExecute: integer; override;
|
|
function DoGetSQL: string; override;
|
|
procedure DoSetSQL(const Value: string); override;
|
|
procedure SetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
|
|
procedure GetParamValues(AParams: TDAParamCollection); override;{$IFNDEF FPC_SAFECALL_BUG}safecall;{$ENDIF}
|
|
end;
|
|
|
|
procedure Register;
|
|
|
|
function GetDriverObject: IDADriver; stdcall;
|
|
|
|
implementation
|
|
|
|
uses SysUtils, uDADriverManager, uDARes, Variants,
|
|
uROBinaryHelpers, uDASQL92Interfaces, SqlitePassApi_v3;
|
|
|
|
var
|
|
_driver: TDAEDriver = nil;
|
|
|
|
procedure Register;
|
|
begin
|
|
RegisterComponents(DAPalettePageName, [TDASQLitePassDriver]);
|
|
end;
|
|
|
|
{$IFDEF DataAbstract_SchemaModelerOnly}
|
|
{$INCLUDE ..\DataAbstract_SchemaModelerOnly.inc}
|
|
{$ENDIF DataAbstract_SchemaModelerOnly}
|
|
|
|
function GetDriverObject: IDADriver;
|
|
begin
|
|
if (_driver = nil) then _driver := TDAESQLiteDriver.Create(nil);
|
|
result := _driver;
|
|
end;
|
|
|
|
{ TSQLiteConnection }
|
|
|
|
constructor TSQLiteConnection.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
fConnection := TDASQLite3PassDB.Create(nil);
|
|
end;
|
|
|
|
destructor TSQLiteConnection.Destroy;
|
|
begin
|
|
inherited;
|
|
fConnection.Free;
|
|
end;
|
|
|
|
function TSQLiteConnection.GetConnected: Boolean;
|
|
begin
|
|
result := fConnection.Connected;
|
|
end;
|
|
|
|
procedure TSQLiteConnection.SetConnected(Value: Boolean);
|
|
begin
|
|
fConnection.Connected := Value;
|
|
end;
|
|
|
|
{ TDAESQLiteConnection }
|
|
|
|
procedure TDAESQLiteConnection.DoApplyConnectionString(
|
|
aConnStrParser: TDAConnectionStringParser; aConnectionObject: TCustomConnection);
|
|
var
|
|
sName, sValue: string;
|
|
i: integer;
|
|
begin
|
|
inherited;
|
|
with aConnStrParser do begin
|
|
TSQLiteConnection(aConnectionObject).Connection.Database := Database;
|
|
for i := 0 to (AuxParamsCount - 1) do begin
|
|
sName := AuxParamNames[i];
|
|
sValue := AuxParams[sName];
|
|
(* TODO: AuxParams[sName];
|
|
if AnsiSameText(sName, 'TransactionType') then begin
|
|
if AnsiSameText(sValue, 'DEFAULT') or
|
|
AnsiSameText(sValue, 'DEFERRED') or
|
|
AnsiSameText(sValue, 'IMMEDIATE') or
|
|
AnsiSameText(sValue, 'EXCLUSIVE') then
|
|
fConnection.fConnection.TransactionType := AnsiUpperCase(sValue);
|
|
end
|
|
else if AnsiSameText(sName, 'DriverDll') then begin
|
|
fConnection.fConnection.DriverDll := sValue
|
|
end
|
|
else if AnsiSameText(sName, 'CharacterEncoding') then begin
|
|
if AnsiSameText(sValue, 'STANDARD') or
|
|
AnsiSameText(sValue, 'UTF8') then
|
|
fConnection.fConnection.CharacterEncoding := AnsiUpperCase(sValue);
|
|
end;
|
|
*)
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function TDAESQLiteConnection.DoBeginTransaction: integer;
|
|
begin
|
|
result := -1;
|
|
fConnection.Connection.Engine.Transaction.Start;
|
|
FtransactionFlag := True;
|
|
end;
|
|
|
|
procedure TDAESQLiteConnection.DoCommitTransaction;
|
|
begin
|
|
fConnection.Connection.Engine.Transaction.Commit;
|
|
FtransactionFlag := False;
|
|
end;
|
|
|
|
function TDAESQLiteConnection.CreateCustomConnection: TCustomConnection;
|
|
begin
|
|
fConnection := TSQLiteConnection.Create(nil);
|
|
result := fConnection;
|
|
end;
|
|
|
|
function TDAESQLiteConnection.GetDatasetClass: TDAEDatasetClass;
|
|
begin
|
|
result := TDAESQLiteQuery;
|
|
end;
|
|
|
|
procedure TDAESQLiteConnection.DoRollbackTransaction;
|
|
begin
|
|
FtransactionFlag := False;
|
|
fConnection.Connection.Engine.Transaction.Rollback;
|
|
end;
|
|
|
|
function TDAESQLiteConnection.DoGetInTransaction: boolean;
|
|
begin
|
|
Result := FtransactionFlag;
|
|
end;
|
|
|
|
procedure TDAESQLiteConnection.DoGetTableFields(const aTableName: string;
|
|
out Fields: TDAFieldCollection);
|
|
var
|
|
i: integer;
|
|
fld: TDAField;
|
|
lSqlitePassTableDef: TSqlitePassTableDef;
|
|
begin
|
|
inherited DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), Fields);
|
|
|
|
lSqlitePassTableDef := fConnection.Connection.TableDefs.TableByName(aTableName);
|
|
|
|
with lSqlitePassTableDef
|
|
do begin
|
|
for i := 0 to Pred(Fields.Count - 1) do
|
|
with FieldDefs.FindFieldDef(Fields[i].Name) do
|
|
begin
|
|
fld := Fields[i];
|
|
fld.Required := NotNull;
|
|
fld.InPrimaryKey := PrimaryKey;
|
|
if fld.InPrimaryKey then fld.Required := True;
|
|
fld.DefaultValue := DefaultValue;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function TDAESQLiteConnection.IdentifierNeedsQuoting(
|
|
const iIdentifier: string): boolean;
|
|
begin
|
|
Result := inherited IdentifierNeedsQuoting(iIdentifier) or
|
|
SQL92_IdentifierNeedsQuoting(iIdentifier);
|
|
end;
|
|
|
|
constructor TDAESQLiteConnection.Create(aDriver: TDAEDriver;
|
|
aName: string);
|
|
begin
|
|
inherited;
|
|
FtransactionFlag := False;
|
|
end;
|
|
|
|
function TDAESQLiteConnection.DoGetLastAutoInc(
|
|
const GeneratorName: string): integer;
|
|
begin
|
|
Result := SqliteDbv3_last_insert_rowid(fConnection.Connection);
|
|
end;
|
|
|
|
procedure TDAESQLiteConnection.DoGetForeignKeys(
|
|
out ForeignKeys: TDADriverForeignKeyCollection);
|
|
begin
|
|
inherited;
|
|
// SQL Features That SQLite Does Not Implement
|
|
end;
|
|
|
|
procedure TDAESQLiteConnection.DoGetQueryFields(const aSQL: string;
|
|
aParamsIfNeeded: TDAParamCollection; out Fields: TDAFieldCollection);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
procedure TDAESQLiteConnection.DoGetTableNames(out List: IROStrings);
|
|
var
|
|
i: integer;
|
|
begin
|
|
inherited;
|
|
{Giovanni: to avoid return of system table names}
|
|
for i := Pred(List.Count) downto 0 do
|
|
if fConnection.fConnection.IsSystemTable(List.Strings[i]) then List.Delete(i);
|
|
end;
|
|
|
|
{ TDAESQLiteDriver }
|
|
|
|
function TDAESQLiteDriver.GetAvailableDriverOptions: TDAAvailableDriverOptions;
|
|
begin
|
|
result := [doDatabaseName, doCustom];
|
|
end;
|
|
|
|
procedure TDAESQLiteDriver.CustomizeConnectionObject(
|
|
aConnection: TDAEConnection);
|
|
begin
|
|
inherited;
|
|
//TODO:
|
|
end;
|
|
|
|
|
|
function TDAESQLiteDriver.GetConnectionClass: TDAEConnectionClass;
|
|
begin
|
|
result := TDAESQLiteConnection;
|
|
end;
|
|
|
|
function TDAESQLiteDriver.GetDescription: string;
|
|
begin
|
|
result := 'SQLitePass Driver';
|
|
end;
|
|
|
|
function TDAESQLiteDriver.GetDriverID: string;
|
|
begin
|
|
result := 'SQLitePass';
|
|
end;
|
|
|
|
procedure TDAESQLiteDriver.GetAuxParams(const AuxDriver: string;
|
|
out List: IROStrings);
|
|
begin
|
|
inherited;
|
|
//TODO: TDAESQLiteDriver.GetAuxParams()
|
|
//List.Add('TransactionType=(DEFAULT,DEFERRED,IMMEDIATE,EXCLUSIVE)');
|
|
List.Add('SqliteLibrary=[sqlitepass3.dll | libsqlitepass3.so]');
|
|
//List.Add('CharacterEncoding=(STANDARD,UTF8)');
|
|
end;
|
|
|
|
function TDAESQLiteDriver.GetProviderDefaultCustomParameters(
|
|
Provider: string): string;
|
|
begin
|
|
Result := '';
|
|
end;
|
|
|
|
{ TDAESQLiteQuery }
|
|
|
|
procedure TDAESQLiteQuery.ClearParams;
|
|
begin
|
|
inherited;
|
|
TSqlitePassDataset(Dataset).Params.Clear;
|
|
end;
|
|
|
|
function TDAESQLiteQuery.CreateDataset(aConnection: TDAEConnection): TDataset;
|
|
begin
|
|
result := TSqlitePassDataset.Create(TDAESQLiteConnection(aConnection).fConnection.Connection);
|
|
//TODO TSqlitePassDataset(Result).DatabaseAutoActivate := True;
|
|
end;
|
|
|
|
function TDAESQLiteQuery.DoExecute: integer;
|
|
begin
|
|
Result := -1;
|
|
TSqlitePassDataset(Dataset).Open;
|
|
end;
|
|
|
|
function TDAESQLiteQuery.DoGetSQL: string;
|
|
begin
|
|
result := TSqlitePassDataset(Dataset).SQL.Text;
|
|
end;
|
|
|
|
procedure TDAESQLiteQuery.DoPrepare(Value: boolean);
|
|
begin
|
|
// nothing
|
|
end;
|
|
|
|
procedure TDAESQLiteQuery.DoSetSQL(const Value: string);
|
|
begin
|
|
TSqlitePassDataset(Dataset).SQL.Text := Value;
|
|
end;
|
|
|
|
procedure TDAESQLiteQuery.GetParamValues(AParams: TDAParamCollection);
|
|
begin
|
|
GetParamValuesStd(AParams, TSqlitePassDataset(Dataset).Params);
|
|
end;
|
|
|
|
procedure TDAESQLiteQuery.SetParamValues(AParams: TDAParamCollection);
|
|
begin
|
|
SetParamValuesStd(AParams, TSqlitePassDataset(Dataset).Params);
|
|
end;
|
|
|
|
exports GetDriverObject name func_GetDriverObject;
|
|
|
|
initialization
|
|
{$IFDEF FPC}
|
|
{$I DataAbstract_SQLitePassDriver_Glyphs.lrs}
|
|
{$ENDIF}
|
|
_driver := nil;
|
|
RegisterDriverProc(GetDriverObject);
|
|
finalization
|
|
UnregisterDriverProc(GetDriverObject);
|
|
FreeAndNIL(_driver);
|
|
end.
|
|
|