Как подключиться к БД SQLite с установленным паролём?

Question

[Александр Вишнев]

Устанавливаю на БД пароль = '1'. Без шифрования. В Windows все подключается нормально.
Но под Android приложение виснет на Splash заставке.
Устанавливаю пароль под Windows:

procedure TForm1.Button1Click(Sender: TObject);  
begin
  FDConnection1.Connected := False;
  FDSQLiteSecurity1.Database := pathEdit3.Text;
  FDSQLiteSecurity1.Password := '1';
  FDSQLiteSecurity1.SetPassword;
end;

Подключение:

procedure TForm1.FDConnection1BeforeConnect(Sender: TObject);
begin
   {$IF DEFINED(iOS) or DEFINED(ANDROID)}
  FDConnection1.Params.Values['Database'] :=
      TPath.Combine(TPath.GetDocumentsPath, 'main_v3.sdb');

   FDConnection1.Params.Values['DriverID'] :='SQLite';
   FDConnection1.Params.Values['Encrypt'] :='enNO';
   FDConnection1.Params.Values['Password'] :='1';
  {$ENDIF}
end;

Comments

[Hemul GM]

А без пароля и прочего подключается к бд?

PS. Не надо добавлять тег Pascal, если добавил тег Delphi

[Александр Вишнев]

Hemul GM, если указываю базу которая без пароля, то да, проблем нет, подключается.

[Hemul GM]

Александр Вишнев, а на винде штатная либа sqlite.dll? Или своя?

[Александр Вишнев]

Hemul GM, скорее всего идущая с RAD Studio.

[Hemul GM]

Александр Вишнев, ну это стандартная. Тогда попробуй установить пароль и настройки шифрования по кнопке после запуска приложения. Чтоб увидеть ошибку, если будет. Возможно на андроид нет такой поддержки в либе

[Александр Вишнев]

Hemul GM, спасибо за совет. Сделал подключение к БД на кнопке и попробовал под Windows, по итогу получил ошибку.
Вопрос решился так:

procedure TForm1.FDConnection1BeforeConnect(Sender: TObject);
begin
  {$IF DEFINED(iOS) or DEFINED(ANDROID)}
   FDConnection1.Params.Values['Database'] :=
   TPath.Combine(TPath.GetDocumentsPath, 'main_v3.sdb');
   FDConnection1.Params.Values['DriverID'] :='SQLite';
  // FDConnection1.Params.Values['Password'] :='алгоритм-шифрования'+':' +'пароль';
   FDConnection1.Params.Values['Password'] :='aes-128'+':' +'1';
  {$ENDIF}
end;

Answer 1

[Александр Вишнев]

procedure TForm1.FDConnection1BeforeConnect(Sender: TObject);
begin
{$IF DEFINED(iOS) or DEFINED(ANDROID)}
FDConnection1.Params.Values['Database'] :=
TPath.Combine(TPath.GetDocumentsPath, 'main_v3.sdb');
FDConnection1.Params.Values['DriverID'] :='SQLite';
// FDConnection1.Params.Values['Password'] :='алгоритм-шифрования'+':' +'пароль';
FDConnection1.Params.Values['Password'] :='aes-128'+':' +'1';
{$ENDIF}
end;