SQLite iOS <> SQLite Android!

[Mavarik]

Zitat von Daniel:

Bessere Idee? Ja.
Nach unserem Skype-Gespräch habe ich Dein Demo mit FireDAC nachgebaut und dort stimmen Theorie und Praxis auf Anhieb überein.

Und ich hab den Fehler gefunden:

Data.DbxSqlite.pas

Delphi-Quellcode:

var
  DatabaseName: string;
  ErrorCode: Integer;
begin
  if ConnectionProperties.Values['ColumnMetaDataSupported'] = '' then
{$IFDEF MSWINDOWS}
    ConnectionProperties.Values['ColumnMetaDataSupported'] := 'True';
{$ENDIF}
{$IFDEF MACOS}
    ConnectionProperties.Values['ColumnMetaDataSupported'] := 'False';
{$ENDIF}
  DatabaseName := FConnectionProperties.Values[TDBXPropertyNames.Database];
  try
    if string.Compare(FConnectionProperties.Values['FailIfMissing'], 'True', True) = 0 then
      ErrorCode := sqlite3_open_v2(MarshaledAString(Utf8Encode(DatabaseName)), FConnectionHandle, SQLITE_OPEN_READWRITE, nil)
    else
      ErrorCode := sqlite3_open16(PChar(DatabaseName), FConnectionHandle);
  except
    raise Exception.Create(SLibraryNotFound);
  end;

Wer findet den Fehler, warum es auf Android nicht funktioniert?

Für Andoid steht da:

Delphi-Quellcode:

var
  DatabaseName: string;
  ErrorCode: Integer;
begin
  if ConnectionProperties.Values['ColumnMetaDataSupported'] = '' then
    DatabaseName := FConnectionProperties.Values[TDBXPropertyNames.Database];
  try
    if string.Compare(FConnectionProperties.Values['FailIfMissing'], 'True', True) = 0 then
      ErrorCode := sqlite3_open_v2(MarshaledAString(Utf8Encode(DatabaseName)), FConnectionHandle, SQLITE_OPEN_READWRITE, nil)
    else
      ErrorCode := sqlite3_open16(PChar(DatabaseName), FConnectionHandle);
  except
    raise Exception.Create(SLibraryNotFound);
  end;

Was mir sagt NIEMAND, in Worten NIEMAND hat es bisher versucht eine SQLite Datenbank onthefly auf einem Android Device zu erzeugen... Erschreckend!

Bzw. Hatte zum Glück immer 'ColumnMetaDataSupported'] = '' gesetzt!

Mavarik

[Sir Rufo]

Weil bei Android der Code so compiliert wird

Delphi-Quellcode:

  if ConnectionProperties.Values['ColumnMetaDataSupported'] = '' then
    DatabaseName := FConnectionProperties.Values[TDBXPropertyNames.Database];

statt so (ob das besser ist?)

Delphi-Quellcode:

  if ConnectionProperties.Values['ColumnMetaDataSupported'] = '' then
  begin

  end;
  DatabaseName := FConnectionProperties.Values[TDBXPropertyNames.Database];

[Mavarik]

Zitat von Sir Rufo:

statt so (ob das besser ist?)

Delphi-Quellcode:

  if ConnectionProperties.Values['ColumnMetaDataSupported'] = '' then
  begin

  end;
  DatabaseName := FConnectionProperties.Values[TDBXPropertyNames.Database];

Der Kandidat hat 100 Punkte...

Tja wie ist es denn bei Android, wahrscheinlich wie bei iOS oder?

Keinen Plan...


Mavarik

[arnof]

man kann nie genug begins haben, aber dran denken alles braucht ein end (nur die Wurst hat zwei: end to end)

[Bernhard Geyer]

Zitat von Mavarik:

Und ich hab den Fehler gefunden:

Data.DbxSqlite.pas

Erstellst du auch noch einen QC-Eintrag dazu?

[Mavarik]

Zitat von Bernhard Geyer:

Zitat von Mavarik:

Und ich hab den Fehler gefunden:

Data.DbxSqlite.pas

Erstellst du auch noch einen QC-Eintrag dazu?

Logisch... 121404

[arnof]

[QUOTE=Mavarik;1241187]

Zitat von Daniel:

Bessere Idee? Ja.

Was mir sagt NIEMAND, in Worten NIEMAND hat es bisher versucht eine SQLite Datenbank onthefly auf einem Android Device zu erzeugen... Erschreckend!

Mavarik

Da stimmt doch meine Schätzung (anderes Thema).

Weist Du auch, wenn man die Download zahlen bei den neuen nativen Androidcomponenten siehst (die wurden auch geblogt, auch hier mal war der Link zu sehen), da waren heute nachmittag nur 140 downloads. Ich war da schon mindesten 2 mal dabei.

Ich würde behaupten JEDER der ernsthaft hier was für Android macht mit XE5, hat die sich sicherlich schon mal angeschaut, ob man die vielleicht benutzen, oder was abschauen kann!

Das ist Weltweit, ja da weiste bescheid!

[GS1200]

Hallo zusammen,

ich bin neu im Thema Mobile-Devices unter XE5 und habe statt iOS erst einmal mit meinem Galaxy S4 unter Android 4.2.2 angefangen meine ersten Erfahrungen zu sammeln.
Genau dieses o.a. Problem hatte ich auch und das Fixing der Data.DBXSqlite war die Lösung. Ich habe ewig die Ursache gesucht und den Fehler nur bei mir Code vermutet.

Ich wollte einfach mal danke sagen, an all diejenigen,die hier im Forum zu Lösungen beitragen.

Gruß

Axel

[Mavarik]

Zitat von GS1200:

Hallo zusammen,

ich bin neu im Thema Mobile-Devices unter XE5 und habe statt iOS erst einmal mit meinem Galaxy S4 unter Android 4.2.2 angefangen meine ersten Erfahrungen zu sammeln.
Genau dieses o.a. Problem hatte ich auch und das Fixing der Data.DBXSqlite war die Lösung. Ich habe ewig die Ursache gesucht und den Fehler nur bei mir Code vermutet.

Ich wollte einfach mal danke sagen, an all diejenigen,die hier im Forum zu Lösungen beitragen.

Gruß

Axel

Jo ich habe fast 2 Monate in meinem Code den Fehler gesucht... Bis ich dann den Fehler mit dem Debugger gefunden habe...

[schand99]

Hallo,

habe hier ein ähnliches Problem wie weiter oben beschrieben.
Mit dem Code erstelle ich eine SQLite Datenbank:

Delphi-Quellcode:

DataPfad:= TPath.Combine(TPath.GetDocumentsPath, 'Test.db');
if not TFile.Exists(DataPfad) then
  Begin
    Try // Datenbank erstellen
      SQLConnection.connected:=False;
      SQLConnection.Params.Values['Database'] := DataPfad;
      Startup.SQLConnection.Params.Values['FailIfMissing'] := 'False';
      Startup.SQLConnection.Connected:=True;
    except
      on E: EDatabaseError Do ShowMessage(E.Message);
    End;
    Try
      SQLBefehl:='CREATE TABLE Kontakte(EintragID INTEGER PRIMARY KEY AUTOINCREMENT, TelNummer VARCHAR(50) NOT NULL, KontaktName VARCHAR(100));';
      DtaZeilen := SQLConnection.ExecuteDirect(SQLBefehl);
    except
      on E: Exception Do Showmessage(E.ClassName + ' / ' + E.Message);
    End;
    SQLConnection.Connected:=False;
    if not FileExists(DataPfad) then
       ShowMessage('Datenbank nicht erstellt');
  end;

Wie Ihr sehen könnt, frage ich am Ende des Blockes ab, ob die Datei erstellt wurde. Sie wird erstellt, zumindest wird mir das mit FileExists angezeigt. Warum aber sehe ich die Datei nicht mit einem Dateiexplorer wie z.B. Astro-File Manager oder gar mit aSQLiteManager?

Wäre toll wenn mir jemand einen Hinweis geben könnte was ich da falsch mache