Pointer auf Oberklassen

[theomega]

Hallo Leute
ich möchte ein Teil meiner Anwendung (Datenbank-Zugriff) in eine DLL auslagern um ihn einfacher austauschbar zu machen. Ich brauche in meinem Hauptprogramm ein TQuery (qrmain) um auf die Datenbankfelder zuzugreifen und um Queries auszuführen. Eine DLL-Funktion soll intern ein eigenes Query-Objekt erstellen und auf Befehl einen Pointer auf dieses zurückgeben. Soweit so gut, jetzt scheitert die Sache aber an einer Schutzverletzung. Das hat vermutlich seinen Grund darin, das in der DLL je nach Datenbank in TIBQuery erstellt wird, ich aber in meinem Hauptprogramm nur ein TQuery erwarte.

Jetzt hier mal ein Paar fetzten Code:

erst mal die DLL:

Delphi-Quellcode:

library database;
uses
  IBCustomDataSet,
  IBQuery,
  IBDatabase,
  inifiles,
  dialogs,
  IBServices;

var qrmain: TIBQuery;
    trmain: TIBTransaction;
    dbmain: TIBDatabase;
{$R *.res}


procedure dll_initdatabase;
var ini:TInifile;
begin;
  ini := TInIfile.Create('./config.ini');
try

dbmain := TIBDatabase.Create(nil);
trmain := TIBTransaction.Create(nil);
qrmain := TIBQuery.Create(nil);
dbmain.LoginPrompt := false;
dbmain.DefaultTransaction := trmain;
dbmain.IdleTimer := 0;
dbmain.AllowStreamedConnected := false;

trmain.DefaultDatabase := dbmain;
trmain.Params.Add('concurrency');
trmain.Params.Add('nowait');
trmain.AutoStopAction := saNone;

qrmain.Database := dbmain;
qrmain.Transaction := trmain;
qrmain.CachedUpdates := false;


dbmain.DatabaseName := ini.ReadString('database','databasename','');
dbmain.SQLDialect := ini.ReadInteger('database','sqldialect',3);
dbmain.Params.Text :=
'password='+ini.ReadString('database','password','')+#10#13+
'lc_ctype='+ini.ReadString('database','charset','')+#10#13+
'user_name='+ini.ReadString('database','user_name','');

dbmain.Connected := true;
trmain.Active := true;

finally
  ini.Free;
end;
end;

function dll_getquery:pointer;
begin;
  result:= @qrmain;
end;

procedure dll_commit;
begin;
if trmain.intransaction then trmain.Commit;
Trmain.StartTransaction;
end;

exports dll_initdatabase,dll_getquery,dll_commit;

begin

end.

Und dann mein Hauptprogramm:

Delphi-Quellcode:

var qrmain: TQuery;

procedure dll_initdatabase; external 'database.dll';
function dll_getquery:TQuery; external 'database.dll';
procedure dll_commit; external 'database.dll';

implementation

procedure initdatabase;
begin;
//Creates
dll_initdatabase;
qrmain := TQuery(dll_getquery);
end;

procedure execquery(str:AnsiString;passv:boolean);
begin;
inc(c);

qrmain.Close;
qrmain.SQL.Clear;
qrmain.SQL.Add(str);

if (passv) then qrmain.Open
else qrmain.ExecSQL;
end;

procedure commit;
begin;
dll_commit;
end;

Die Init-Funktion funktioniert Problemlos, nur führt jeder Zugriff auf das qrmain-Objekt zu einer Schutzverletzung.

Warum? Und wie kann ich das ändern?

Grüße
TO

[aogwaba]

sollte das:

Zitat:

function dll_getquery:TQuery;
begin;
result:= @qrmain;
end;

nicht so:

Zitat:

function dll_getquery:TQuery;
begin;
result:= qrmain;
end;

lauten.

cu
waba

[theomega]

Shit, Fehler gemacht, habe mich oben verschrieben, ist jetzt editiert. Ich würde gerne einen Pointer übergeben und auf Hauptanwednungsseite wieder ein Query draus machen.

[aogwaba]

Du erzeugst mit:

Zitat:

qrmain := TIBQuery.Create(nil);

ein Object der Klasse TIBQuery. 'qrmain' ist ein Zeiger, auf diese TIBQuery-Instanz, der @-Operator kann enfallen.

cu
waba

[theomega]

Danke für den Hinweis, bringt allerdings garnicht, der Fehler bleibt erhalten.

Ich habe jetzt diesen code hier:

DLL:

Delphi-Quellcode:

procedure dll_initdatabase;
var ini:TInifile;
begin;
  ini := TInIfile.Create('./config.ini');
try

dbmain := TIBDatabase.Create(nil);
trmain := TIBTransaction.Create(nil);
qrmain := TIBQuery.Create(nil);
dbmain.LoginPrompt := false;
dbmain.DefaultTransaction := trmain;
dbmain.IdleTimer := 0;
dbmain.AllowStreamedConnected := false;

trmain.DefaultDatabase := dbmain;
trmain.Params.Add('concurrency');
trmain.Params.Add('nowait');
trmain.AutoStopAction := saNone;

qrmain.Database := dbmain;
qrmain.Transaction := trmain;
qrmain.CachedUpdates := false;


dbmain.DatabaseName := ini.ReadString('database','databasename','');
dbmain.SQLDialect := ini.ReadInteger('database','sqldialect',3);
dbmain.Params.Text :=
'password='+ini.ReadString('database','password','')+#10#13+
'lc_ctype='+ini.ReadString('database','charset','')+#10#13+
'user_name='+ini.ReadString('database','user_name','');

dbmain.Connected := true;
trmain.Active := true;

finally
  ini.Free;
end;

end;

function dll_getquery:pointer;
begin;
  result:= qrmain;
end;


exports dll_initdatabase,dll_getquery;

begin

end.

Hauptprogramm:

Delphi-Quellcode:

var qrmain: TQuery;

procedure dll_initdatabase; external 'database.dll';
function dll_getquery:pointer; external 'database.dll';

procedure initdatabase;
begin;
//Creates
dll_initdatabase;
qrmain := TQuery(dll_getquery);
end;

Weißt du, oder jemand anderes woran es liegt?

[theomega]

Und es scheint auch egal ob ich schreibe
qrmain := dll_getquery;

oder

qrmain := TQuery(dll_getquery);

[theomega]

Weiß da niemand was?!?! Würde mir echt helfen!

[Phoenix]

Versuch mal, den Pointer zu dereferenzieren:

Code:

qrmain := dll_getquery^;

[theomega]

Get leider nicht, wenn ich mache:
qrmain := dll_getquery^;

dann mault der compiler

Code:

[Fehler] database.pas(34): Inkompatible Typen: 'TQuery' und 'procedure, untyped pointer or untyped parameter'

Wenn ich dagegen mache:
qrmain := TQuery(dll_getquery^);
dann compiled er zwar, aber es kommt wieder ein Schutzverletzung!

[Phoenix]

Äh.. ja:

in der DLL hast Du eine TIBQuery, und Du castest einen Pointer auf ein TIBQuery dereferenzierend auf ein TQuery.

TQuery und TIBQuery sind aber nicht mit einander kompatibel.
Du müsstest Dich schon entscheiden, ob Du nun mit Interbase oder einem 'normalen' Query arbeiten willst.