Search options

unction TSqlitePassDatabase.CreateDatabase(DbName: String; DbType: TSqlitePassDatabaseType;
                                            Encoding: TSqlitePassEncoding = UTF_8; PageSize: TSqlitePassPageSize = 4096;
                                            AutoVacuum: TSqlitePassAutoVacuumType = 0): Boolean;
...
        ExecSQL('PRAGMA encoding = ' + EncodingStr+';');             
        ExecSQL('PRAGMA page_size = ' + IntToStr(PageSize)+';');
        ExecSQL('PRAGMA Auto_Vacuum = ' + IntToStr(AutoVacuum)+';');

        { Creates system tables for Kexi }
        if DbType = dbtKexi then
           begin
           ExecSQL(KexiDb_CreateSQLStmt);
           ExecSQL(KexiParts_CreateSQLStmt);
           ExecSQL(KexiObjects_CreateSQLStmt);
           ExecSQL(KexiObjectData_CreateSQLStmt);
           ExecSQL(KexiFields_CreateSQLStmt);
           ExecSQL(KexiBlobs_CreateSQLStmt);
           ExecSQL('INSERT INTO "kexi__db" (db_property, db_value) VALUES ("kexidb_major_ver", "1");');
           ExecSQL('INSERT INTO "kexi__db" (db_property, db_value) VALUES ("kexidb_minor_ver", "8");');
           ExecSQL('INSERT INTO "kexi__db" (db_property, db_value) VALUES ("kexiproject_major_ver", "1");');
           ExecSQL('INSERT INTO "kexi__db" (db_property, db_value) VALUES ("kexiproject_minor_ver", "0");');
           ExecSQL('INSERT INTO "kexi__db" (db_property, db_value) VALUES ("project_caption", "");');
           ExecSQL('INSERT INTO "kexi__db" (db_property, db_value) VALUES ("project_desc", "");');
           end else
            // for other format
            ExecSQL('CREATE TABLE "sqlitepass__dummy" (dummy TEXT(1));');           
...

procedure TSqlitePassRecordset.GetRecords(Sql: String);
...
ColumnStr : string;
ColumnSize : integer;
begin
...
         { No fields are defined, so we store all the values as string }
         else begin
              ColumnSize := SqliteDbv3_column_Bytes(PSqliteData,ColumnIndex);
              SetLength(ColumnStr,ColumnSize);
              system.Move(pansichar(SqliteDbv3_column_Blob(PSqliteData,ColumnIndex))^,ColumnStr[1],ColumnSize);
              AddString(Buffer, ColumnStr);
              SetFieldNullValue(RecordIndex, ColumnIndex, False);
              Inc(Buffer, SizeOf(Integer));
              end;
      end; { for }
...

SqliteDbv3_open: function(dbname: PChar; var db:pointer):integer; cdecl;
...
procedure TSqlitePassEngine.OpenDatabase(FullName, LibraryFile: String);
begin
FLibraryLoaded := LoadSqliteLibrary(LibraryFile);
CheckResult(SqliteDbv3_Open(Pchar(FullName), FConnectionHandle));
end;
...

function TSqlitePassDatabaseOptions.GetFPageSize: TSqlitePassPageSize;
begin
  Result := FDatabase.GetIntPragma('page_size');
  // Range Check Error
  if Result>High(TSqlitePassPageSize) then
    Result := High(TSqlitePassPageSize);
  if Result<Low(TSqlitePassPageSize) then
    Result := Low(TSqlitePassPageSize);
end;

{ Translates a SQLite value to its internal storage value in memory
  Returns the size of the value }
function TSqlitePassRecordset.SqliteValueToBuffer(Const PSqliteData: Pointer; Const ColumnIndex: Integer; Const BufferFieldPos: Integer; Const DataType: TFieldType; Buffer: PChar): Integer;
...
  ftDateTime:
    begin
    Result := SizeOf(Double);
    if SqliteDbv3_column_type(PSqliteData, ColumnIndex) = SQLITE_NULL then Exit;
    Case FDatabase.DatatypeOptions.DateTimeStorage of
         dtsDateTime : DoubleValue := SqliteDbv3_column_double(PSqliteData,ColumnIndex);  // miss variable
...

{ Add a String and Returns the Index of the new string in Fstrings Array }
function TSqlitePassRecordset.AddString(Buffer: PChar; StrValue: String): Integer;
begin
 if FRecycledStrings.Count > 0
    then begin
    Result := Integer(FRecycledStrings[Pred(FRecycledStrings.Count)]); // << changed PInteger()^ to Integer
    FRecycledStrings.Delete(Pred(FRecycledStrings.Count));
...

procedure TSqlitePassTranslator.IntegerToTimeText
         (Const Value: Integer;
          Const TimePattern: String;
          Const HourStart, HourLength, MinStart, MinLength, SecStart, SecLength, MSecStart, MSecLength: Word;
          out StrValue: String);
var
Hour, Min, Sec, MSec: Word;
TimePartStr: String;
PStrValue: PChar;
TimeStamp : TTimeStamp;
begin
 Timestamp.Time := Value;
 Timestamp.Date := 1;
 DecodeTime(TimeStampToDateTime(TimeStamp), Hour, Min, Sec, MSec);
 { Necessary conversion oterwise we would be pointing on FDatabase.DatatypeOptions.FTimeFormat }

procedure TSqlitePassTranslator.IntegerToTimeText
         (Const Value: Integer;
          Const TimePattern: String;
          Const HourStart, HourLength, MinStart, MinLength, SecStart, SecLength, MSecStart, MSecLength: Word;
          out StrValue: String);
var
Hour, Min, Sec, MSec: Word;
TimePartStr: String;
PStrValue: PChar;
TimeValue : TTime;
begin
 TimeValue := Value / 1000 / 60 / 60 / 24;
 DecodeTime(TimeValue, Hour, Min, Sec, MSec);
 { Necessary conversion oterwise we would be pointing on FDatabase.DatatypeOptions.FTimeFormat }
 StrValue := StrPas(PChar(TimePattern));
 ...