TDatabase war über DatabaseName bereits richtig verknüpft und auch geschlossen.
Die LCK-Dateien kommen mir aber immer noch komisch vor.
(Wenn das Problem überhaupt hier liegt.)
In OnShow des Hautpfensters, das selber keine
BDE-Komponenten hat, setze ich Session.PrivateDir.
PDOXUSRS.LCK wird auch sofort dort angelegt. Soweit OK. Ausserdem wird dort TDatabase instanziiert.
Delphi-Quellcode:
Session.NetFileDir := path+'NET';
Session.PrivateDir := ExtractFilePath(ParamStr(0))+'CLIENT';
globalDatabase := TDatabase.Create(nil);
with globalDatabase do begin
databaseName := 'MyDB';
DriverName := 'STANDARD';
globalDatabase.Params.Add('PATH='+path);
connected := true;
end;
Erst bei Bedarf werden Formulare kreiert.
Delphi-Quellcode:
object MyTab: TTable
DatabaseName = 'MyDB'
TableName = 'DATA.DB'
object DataField1: TStringField
FieldName = 'Field1'
Size = 6
end
end
In OnShow eines anderen Formulars wird dann eine TTable geöffnet. Jetzt erscheint auch eine
PDOXUSRS.LCK im
DB-Verzeichnis.
Soll das so sein??