Teile vom Programm in DLL auslagern

[theomega]

Hallo Leute
jetzt wirds ein bischen komplex

Erstmal die Ausgangslage:
Ich habe ein Programm das auf einer Interbase-Datenbank basiert. Dazu nutze ich die Komponenten TIBQuery,TIBTransaction,TIBdatabase. Jetzt würde ich aber gerne diese Grundlage austauschbar machen. Meine Querys sind so geschrieben, das man problemlos hier das TIBQuery durch ein (BDE) TQuery ersetzen könnte. Das will ich aber nicht im Code machen sondern entsprechende DLLS beilegen also eine für Interbase und eine für BDE

Ich habe den Code umd den es geht mal in eine Unit issoliert:

Delphi-Quellcode:

unit database;

interface
uses IBCustomDataSet, IBQuery, IBDatabase,inifiles,dialogs;
var qrmain: TIBQuery;
    trmain: TIBTransaction;
    dbmain: TIBDatabase;

procedure execquery(str:string;passv:boolean);
procedure commit;
procedure initdatabase(ini:TInifile);

implementation
uses unit1,sysutils;

var c:integer;

procedure initdatabase(ini:TInifile);
begin;
//Creates
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;

end;


procedure execquery(str:string;passv:boolean);
begin;
inc(c);
unit1.form1.StatusBar1.Panels[2].Text := inttostr(c) + ' Queries';

qrmain.Close;
qrmain.SQL.Clear;
qrmain.SQL.Add(str);
unit1.Form1.ListBox1.lines.Add(str);



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

end;

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

Wenn ich das jetzt in eine DLL schreiben will, habe ich ein Problem und zwar: aus meinen anderen Units heraus muß ich auf das qrmain-Objekt zugreifen können um Felder abzufragen, usw. Mir würden jetzt auchmal nur Änsaätze reichen, zum Beispiel die sache mit der INI-Datei Übergabe läßt sich sicher aus anders regeln.

Grüße
TO

[theomega]

*Schieb*
weiß das denn keiner? Zumindest einen Ansatz?