SQLite i hasło do bazy

  a_Database := TADConnection.Create(application);
  a_Database.Params.Add(format('Database=%s',[ p_file]));  
  a_Database.Params.Add('DriverID=SQLite');  
  if p_encrypt then
  begin
    a_Database.Params.Add('Encrypt=aes-128');
    a_Database.Params.Add('password=aaaa');
  end;

SQLiteConnection conn = new SQLiteConnection("Data Source=MyDatabase.sqlite;Version=3;");
conn.SetPassword("password");
conn.Open();

var
  a_Database: TFDConnection; // polaczenie 
  p_encrypt:boolean; // czy szyfrowac sqlite
  p_file: string; // nazwa pliku bazy danych 

  a_Database := TFDConnection.Create(application);
  a_Database.Params.Add(format('Database=%s',[ p_file]));  
  a_Database.Params.Add('DriverID=SQLite');  
  if p_encrypt then
  begin
    a_Database.Params.Add('Encrypt=aes-128');
    a_Database.Params.Add('password=aaaa');
  end;

function nadaj_haslo(): string;
var
  a_Database: TFDConnection; // polaczenie
  p_encrypt:boolean; // czy szyfrowac sqlite
  p_file: string; // nazwa pliku bazy danych
  begin
  p_file := ExtractFilePath(Application.ExeName) + '\baza\simple_password.db';

  if FileExists(p_file) then begin
  a_Database := TFDConnection.Create(application);
  a_Database.Params.Add(format('Database=%s',[ p_file]));
  a_Database.Params.Add('DriverID=SQLite');
  if p_encrypt then
  begin
    a_Database.Params.Add('Encrypt=aes-128');
    a_Database.Params.Add('password=aaaa');
  end;
  end;
end;

object Form19: TForm19
  Left = 0
  Top = 0
  Caption = 'Form19'
  ClientHeight = 299
  ClientWidth = 635
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 136
    Top = 104
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
end

unit Unit19;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm19 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form19: TForm19;

implementation

{$R *.dfm}


{$if CompilerVersion > 22} // D2010
uses FireDAC.Comp.Client, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error,FireDAC.UI.Intf,
  FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys,  FireDAC.Stan.ExprFuncs,
  FireDAC.Phys.SQLite, FireDAC.Stan.Param,FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.VCLUI.Wait,
  FireDAC.Phys.Intf, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.Moni.Base,
  FireDAC.Phys.SQLiteWrapper;

type
  TU32_Query = TFDQuery;
  TU32_CustomQuery= TFDCustomQuery;
  TU32_Connection = TFDConnection;
  TU32_CustomConnection = TFDCustomConnection;
  TU32_ESQLiteNativeException = ESQLiteNativeException;
  TU32_TADTable  = TFDTable;
  TU32_AutoIncField = TFDAutoIncField;
{$else}
uses uADCompClient, uADStanIntf, uADStanOption, uADStanError,uADGUIxIntf,
  uADStanDef, uADStanPool, uADStanAsync, uADPhysManager,  uADStanExprFuncs,
  uADPhysSQLite, uADStanParam,uADDAptManager, uADCompDataSet, uADGUIxFormsWait,
  uADPhysIntf, uADDatSManager, uADDAptIntf, uADMoniBase,
  uADPhysSQLiteWrapper;
type
  TU32_Query = TADQuery;
  TU32_CustomQuery= TADCustomQuery;
  TU32_Connection = TADConnection;
  TU32_CustomConnection = TADCustomConnection;
  TU32_ESQLiteNativeException = ESQLiteNativeException;
  TU32_TADTable  = TADTable;
  TU32_AutoIncField = TADAutoIncField;
{$ifend}

function create_and_open_sqlite(p_file:string; p_enpcrypt: Boolean= false):TU32_Connection;
var
  a_Database: TU32_Connection;
begin
  a_Database := TU32_Connection.Create(application);

  a_Database.Close;
  a_Database.Params.Clear;
  a_Database.Params.Add(format('Database=%s',[ p_file]));

  //a_Database.Params.Add(format('Database=%s',[ ':memory:']));
  a_Database.Params.Add('StringFormat=Unicode'); // http://www.da-soft.com/anydac/docu/frames.html?frmname=topic&frmfile=Using_SQLite_with_AnyDAC.html
                                                 // http://www.da-soft.com/forums/anydac-general-english/sqlite-string-widestring-av.html
  a_Database.Params.Add('DriverID=SQLite');
  if p_enpcrypt then
  begin
    a_Database.Params.Add('Encrypt=aes-128');
    a_Database.Params.Add('password=aaaa');
  end;

  Result := nil;

  try
    a_Database.Open;
  except
    on e:exception do
    begin
      //a_DatabaseOK:= false;
      //exit;
    end;
  end;

  result :=  a_Database;
end;


procedure zrob_cos_on_db(p_db: TU32_Connection);
var
  q: TU32_Query;
begin
  q:= TU32_Query.Create(p_db);
  q.Connection := p_db;
  q.SQL.Text := 'create table test(id integer);';
  q.ExecSQL;

  if Assigned(q) then q.Free;
end;

procedure TForm19.Button1Click(Sender: TObject);
var
  db: TU32_Connection;
  db_encrypt: TU32_Connection;
begin

  try
    db := create_and_open_sqlite('db.db');
    zrob_cos_on_db(db);
  finally
    db.Free;
  end;

  try
    db_encrypt := create_and_open_sqlite('db_encrypt.db',true);
    zrob_cos_on_db(db_encrypt);
  finally
    db_encrypt.Free;
  end;
end;

end.