Einzelnen Beitrag anzeigen

moelski

Registriert seit: 31. Jul 2004
1.110 Beiträge
 
Delphi 2010 Professional
 
#1

Exception "Duplicate database name" bei zwei Instanzen

  Alt 12. Okt 2010, 13:22
Datenbank: AbsoluteDB • Version: 6.07 • Zugriff über: -
Moin !

Habe diesen Code hier:
Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ABSMain, DB, DBGrids;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;


type
  TDM = class
  private
    { Private-Deklarationen }
    DB : TABSDatabase;
    Session : TABSSession;
  public
    constructor Create;
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  one, two : TDM;

implementation

constructor TDM.Create;
begin
  inherited;
  Session := TABSSession.Create(Nil);
// Session.SessionName := 'LVSession';
  Session.AutoSessionName := True;
  Session.Active := True;

  DB := TABSDatabase.Create(Nil);
  DB.DatabaseName := 'LVDataBase';
  DB.SessionName := Session.SessionName;
end;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  one := tdm.Create;
  two := tdm.Create;
end;

end.
Im Grunde nutzlos, aber es kommt da zu einem komischen Problem.
Ich habe ja zwei Instanzen von meiner TDM Klasse. Und ich würde mal sagen das ich dann im Normalfall auch keine Konflikte zwischen "one" und "two" haben sollte.
Dennoch bekomme ich diesen Fehler:
Code:
Erste Gelegenheit für Exception bei $7C812AFB. Exception-Klasse EDatabaseError mit Meldung 'Duplicate database name 'LVDataBase''. Prozess Project2.exe (3584)
Kann sich jemand einen Reim drauf machen was da schief geht ?!
Dominik Schmidt
Greetz Dominik

I love Delphi 2007/2010
  Mit Zitat antworten Zitat