Programm nur im Kompatibilitätsmodus Win98 ausführbar

[himitsu]

Dann wenigstens in eine Logdatei, aber ganz weg ist nicht unbedingt die ideal.
Siehe http://www.delphipraxis.net/166818-d...-ersetzen.html , also das zugrundeliegende Problem da, in meiner Beschreibung.

Es ging halt mehr darum, daß du uns diese Meldung verrätst.

[roga]

Diese Fehlermeldung hilft mir jetzt auch nicht weiter, denn die sagt ja im Prinzip das gleiche wie die bisherige, dass die Datenbank nicht geöffnet werden konnte:

ESQLiteException:Failed to open database "C:\Users\...\Documents\...\daten.dbs" : unable to open database file

Der Pfad ist auch vorhanden.

[jaenicke]

Kann es sein, dass SQLite etwas im Ordner der Anwendung machen will? Temporäre Dateien oder so?
Arbeitest du in deinen Tests mit einer Standardkonfiguration von Windows 7?

Was da passiert sollte sich mit einem Log des Process Monitors herausfinden lassen. Ein "normaler" Benutzer wird den allerdings kaum bedienen können. Aber vielleicht lässt er dich ja kurz über TeamViewer auf den PC?

[roga]

Danke Sebastian für den Tipp, aber es lag wirklich am verwendeten Wrapper. Jetzt läuft alles wie gewünscht und ich bin happy!

Folgende Änderungen an genannten Dateien führten zum Erfolg:

Delphi-Quellcode:

// SQLite3.pas -----------------------

function SQLite3_Open(filename: PUTF8String; var db: TSqliteDB): integer; cdecl; external SQLiteDLL name 'sqlite3_open';

// SQLiteTable3.pas ------------------

constructor TSQLiteDatabase.Create(const FileName: string);
var
  Msg: PAnsiChar;
  iResult: integer;
//  utf8FileName: UTF8string;
begin
  inherited Create;
  fParams := TList.Create;

  self.fInTrans := False;

  Msg := nil;
  try
//    utf8FileName := UTF8String(FileName);
//    iResult := SQLite3_Open(PAnsiChar(utf8FileName), Fdb);
   
    iResult := SQLite3_Open(PUTF8String(AnsiToUtf8(FileName)), Fdb);

    if iResult <> SQLITE_OK then
      if Assigned(Fdb) then
      begin
        Msg := Sqlite3_ErrMsg(Fdb);
        raise ESqliteException.CreateFmt('Failed to open database "%s" : %s',
          [FileName, Msg]);
      end
      else
        raise ESqliteException.CreateFmt('Failed to open database "%s" : unknown error',
          [FileName]);

  finally
    if Assigned(Msg) then
      SQLite3_Free(Msg);
  end;

end;