Klasse die mit DB verbindet erstellen?

[AlexII]

Hallo,

ich möchte mich mehr mit Klassen bzw. Objekten beschäftigen und schreibe gerade eine Klasse, die meine Anwendung mit der SQLite DB verbinden soll. Aber irgendwie habe ich noch eine Wissenslücke. Die Variablen "SQLite3Connection", "SQLTransaction", "SQLQuery" wollen nicht createt werden. Der Fehler lautet:

Zitat:

myobj.pas(29,54) Error: Incompatible type for arg no. 1: Got "TSQLiteDB", expected "TComponent"

Kann mir da jemand auf die Sprünge helfen? Danke!

Delphi-Quellcode:

unit myobj;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, sqlite3conn, sqldb;

type

  { TSQLiteDB }
  TSQLiteDB = class
    procedure Connect;
  end;

var
  SQLiteDB: TSQLiteDB;

  SQLite3Connection: TSQLite3Connection;
  SQLTransaction: TSQLTransaction;
  SQLQuery: TSQLQuery;

implementation

{ TSQLiteDB }

procedure TSQLiteDB.Connect;
begin
  SQLite3Connection := TSQLite3Connection.Create(Self);
  SQLTransaction := TSQLTransaction.Create(Self);
  SQLQuery := TSQLQuery.Create(Self);

  try
    SQLite3Connection.DatabaseName := ExtractFilePath(Application.ExeName) + 'db.db';
    SQLite3Connection.Params.Add('foreign_keys=on;');
    SQLTransaction.DataBase := SQLite3Connection;
    SQLQuery.Transaction := SQLTransaction;
  except
  end;
end;

end.

[SProske]

TSQLite3Connection.Create erwartet als Übergabeparameter ein TComponent oder eine von TComponent abgeleitete Klasse.

Du kannst das Create auch mit nil aufrufen, musst dich aber dann selbst um die Freigabe kümmern.

[AlexII]

Ok... ist es eigentlich ok, wenn ich das wie folgt mache? Muss ich dann "TSQLiteDB.Create;" und "TSQLiteDB.Destroy;" manuell aufrufen, oder geht das automatisch?

Bekomme noch diese Warnung, was heißt sich eigentlich?

Zitat:

Warning: An inherited method is hidden by "destructor TSQLiteDB.Destroy;"

Delphi-Quellcode:

  { TSQLiteDB }
  TSQLiteDB = class
    constructor Create;
    destructor Destroy;
    procedure Connect;
  end;

var
  SQLiteDB: TSQLiteDB;
  SQLite3Connection: TSQLite3Connection;
  SQLTransaction: TSQLTransaction;
  SQLQuery: TSQLQuery;

implementation

{ TSQLiteDB }

constructor TSQLiteDB.Create;
begin
  SQLite3Connection := TSQLite3Connection.Create(nil);
  SQLTransaction := TSQLTransaction.Create(nil);
  SQLQuery := TSQLQuery.Create(nil);
end;

destructor TSQLiteDB.Destroy;
begin
  SQLite3Connection.Free;
  SQLTransaction.Free;
  SQLQuery.Free;
end;

[mkinzler]

Delphi-Quellcode:

constructor TSQLiteDB.Create;
begin
  inherited;

  SQLite3Connection := TSQLite3Connection.Create(nil);
  SQLTransaction := TSQLTransaction.Create(nil);
  SQLQuery := TSQLQuery.Create(nil);
end;

destructor TSQLiteDB.Destroy;
begin
  SQLite3Connection.Free;
  SQLTransaction.Free;
  SQLQuery.Free;

  inherited;
end;

[AlexII]

Aber muss ich irgendwo

Zitat:

"TSQLiteDB.Create;"

und

Zitat:

"TSQLiteDB.Destroy;"

manuell in der Anwendung aufrufen?

[mkinzler]

Ja oder in der Unit (initialization bzw. finalization)

[AlexII]

Zitat von mkinzler:

Ja oder in der Unit (initialization bzw. finalization)

Hm... in der Unit von der Form1, oder in meiner unit myobj?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SQLiteDB.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  SQLiteDB.Destroy;
end;

Hier stürzt das Programm beim Schließen ab.

[mkinzler]

In der Unit, in welcher Du die Klasse deklarierst.

Btw. warum kein Datenmodul?

[AlexII]

Zitat von mkinzler:

In der Unit, in welcher Du die Klasse deklarierst.

Btw. warum kein Datenmodul?

Aber wie rufe ich es da auf bzw. wo? Da gibt's doch keine Methode dafür, und wenn ich dafür eine Procedure schreibe, was ruft wiederum diese Procedure auf? Was ist ein Datenmodul?

[mkinzler]

Der initialization Abschnitt einer Unit wird beim Laden der Unit ( Einbinden in uses einer anderen Unit) automatisch aufgerufen und der finalization Abschnitt beim Entladen (Programmende).

Ein Datenmodul ist ein spezielels Formular für nicht sichtbare Komponenten.