Registriert seit: 28. Jul 2008
Ort: München
1.196 Beiträge
Delphi 10.2 Tokyo Enterprise
|
AW: SQLite iOS encrypt password klappt nicht
25. Jan 2014, 14:16
Erkenntnis vom 02.09.2013:
Frage von mir:
Zitat:
Am 30.08.2013 um 11:39 schrieb x
Hallo Herr Y,
vielen Dank für Ihre Antwort. Das SQLiteSecurity Ding funktioniert unter Windows problemlos. Nur unter iOS wird es nicht ausgeführt….
Über eine Rückmeldung ob ich mich nur anstelle, oder diese Funktion unter iOS nicht funktioniert wäre ich Ihnen sehr dankbar.
Delphi-Quellcode:
procedure TForm1.ADConnection1AfterConnect(Sender: TObject);
begin
adQuery1.SQL.Text := 'CREATE TABLE IF NOT EXISTS whatEver( '+
'dsid varchar(50) NOT NULL,'+
'pid varchar(50) NOT NULL,'+
'kurzfristig varchar(128),'+
'mittelfristig varchar(128),'+
'langfristig varchar(128),'+
'datumLetzte date,'+
'inhaltLetzte text,'+
'vonWemLetzteg varchar(50),'+
'personen_nr integer,'+
'PRIMARY KEY (dsid, pid))';
adQuery1.ExecSQL;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
adConnection1.Connected := true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage(ADSQLiteSecurity1.CheckEncryption);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ADSQLiteSecurity1.SetPassword();
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
adConnection1.Connected := false;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
{$IFDEF iOS}
adConnection1.Params.Values['Database'] := GetHomePath + PathDelim +
'Documents' + PathDelim + 'db1.sqlite';
{$else}
adConnection1.Params.Values['Database'] := ExtractFileDir(ParamStr(0))+'db1.sqlite';
{$ENDIF}
ADSQLiteSecurity1.DriverLink := ADPhysSQLiteDriverLink1;
ADSQLiteSecurity1.Database := adConnection1.Params.Values['Database'];
ADSQLiteSecurity1.Password := 'TEST_12345';
end;
Antwort von Emba:
Zitat:
Hallo Herr x,
in der Tat, wie befürchtet:
SQLite Verschlüsselung nur auf iOS. //Kommentar: Das nur auf iOS bezieht sich wohl darauf, dass es nur unter iOS nicht geht
Also müssten Sie sich nach Alternativen umschauen…. UniDAC, LiteDAC
Best regards,
Mit freundlichen Grüßen
y
Embarcadero Germany GmbH | www.embarcadero.com/de
Philip
Geändert von Darlo (25. Jan 2014 um 14:32 Uhr)
|
|
Zitat
|