BDE Konfiguration bestimmen

[Uwe Sauter]

<p>Meine Application soll nur dann ausführbar sein, wenn die
BDE mit der Eigenschaft <I><B>LOCAL SHARE = TRUE</B></I> gestartet wurde. Bei der
Konfigurierung der BDE möchte ich berücksichtigen, dass ich die Vorgaben von
Fremdanwendungen nicht verändere und umgekehrt Fremdanwendungen meine Konfiguration
unangetastet lassen.</p>

<p>Wie kann ich (einer nicht gestarteten BDE?) meine
Konfiguration vorschlagen?</p>

<p>Uwe Sauter</p>

P.S.<br>Die Eigenschaft <I><B>LOCAL SHARE</B></I> kann über die Funktion
<I>Check(DbiGetSysConfig(SysConfigInfo))</I> bestimmt werden.</p>

[Andreas Kosch]

Hallo,

das folgende Beispiel demonstriert den Zugriff auf MAXFILEHANDLES. Da LOCAL SHARE im gleichen INIT-Zweig liegt, sollte das Austauschen ausreichen:
<pre>
uses BDE, DBTables;

procedure TForm1.Button1Click(Sender: TObject);
var
hCursor : HDBICur;
aConfig : CFGDesc;
begin
ListBox1.Items.Clear;
Session.Open;
Check(DbiOpenCfgInfoList(nil, dbiREADWRITE, cfgPERSISTENT,
'\SYSTEM\INIT', hCursor));
try
while DbiGetNextRecord(hCursor, dbiNOLOCK, @aConfig, nil) = 0 do
ListBox1.Items.Add(Format('%s=%s', [aConfig.szNodeName,
aConfig.szValue]));
finally
DbiCloseCursor(hCursor);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
hCursor : HDBICur;
aConfig : CFGDesc;
begin
Session.Open;
Check(DbiOpenCfgInfoList(nil, dbiREADWRITE, cfgPERSISTENT,
'\SYSTEM\INIT', hCursor));
try
while DbiGetNextRecord(hCursor, dbiNOLOCK, @aConfig, nil) = 0 do
if aConfig.szNodeName = 'MAXFILEHANDLES' then
begin
aConfig.szValue := '50';
Check(DbiModifyRecord(hCursor, @aConfig, True));
end;
finally
DbiCloseCursor(hCursor);
end;
end;
</pre&gt

[Uwe Sauter]

<b> Vielen Dank</b><p>
Ihre prompte Antwort hat mir mich ein großes Stück weiter gebracht.<p>
MFG Uwe Saute

[Uwe Sauter]

<b> Vielen Dank</b><p>
Ihre prompte Antwort hat mich ein großes Stück weiter gebracht.<p>
MFG Uwe Saute