Hallo und Guten Abend,
um meinem Kunden den Service zu bieten, wie viele Rechner noch online sind, habe ich über einen Timer eine Abfrage der Datenbank gestartet :
<PRE>
if dt.IBDSystem.Connected then
with IBDatabaseInfo1 do
begin
try
u := 'Es sind ' + inttostr(Usernames.count) + ' Rechner angemeldet';
FormHAupt.Statusbar1.Panels[0].text := 'Client :' + version;
FormHAupt.StatusBar1.Panels[4].Text := 'Loglist : ' + u;
FormHaupt.Statusbar1.panels[1].text := 'Server : ' + DBFileName;
FormHaupt.Statusbar1.Panels[2].Text := 'Fetches :' + inttostr(fetches);
FormHaupt.Statusbar1.panels[3].text := 'Speicher : ' + IntToStr(CurrentMemory);
except
showmessage('Datenverbindung prüfen oder Kontrolle beenden.')
end;
end;
</PRE>
Das Ergebnis ist, das alles 1 - 2 Stunden läuft, dann der wird der Serverprozess 'abnormal Termination' beendet und über den Guardian neu gestartet. Als Ergebnis muss ich dann auf allen Rechnern das Programm mit strg-alt-entf terminieren, obwohl ich alle Datenbankrelevanten Programmzeilen in try und error eingeschlossen habe.
Es wäre schön, wenn jemand eine Lösung hat, Viele Grüße
Günter
um meinem Kunden den Service zu bieten, wie viele Rechner noch online sind, habe ich über einen Timer eine Abfrage der Datenbank gestartet :
<PRE>
if dt.IBDSystem.Connected then
with IBDatabaseInfo1 do
begin
try
u := 'Es sind ' + inttostr(Usernames.count) + ' Rechner angemeldet';
FormHAupt.Statusbar1.Panels[0].text := 'Client :' + version;
FormHAupt.StatusBar1.Panels[4].Text := 'Loglist : ' + u;
FormHaupt.Statusbar1.panels[1].text := 'Server : ' + DBFileName;
FormHaupt.Statusbar1.Panels[2].Text := 'Fetches :' + inttostr(fetches);
FormHaupt.Statusbar1.panels[3].text := 'Speicher : ' + IntToStr(CurrentMemory);
except
showmessage('Datenverbindung prüfen oder Kontrolle beenden.')
end;
end;
</PRE>
Das Ergebnis ist, das alles 1 - 2 Stunden läuft, dann der wird der Serverprozess 'abnormal Termination' beendet und über den Guardian neu gestartet. Als Ergebnis muss ich dann auf allen Rechnern das Programm mit strg-alt-entf terminieren, obwohl ich alle Datenbankrelevanten Programmzeilen in try und error eingeschlossen habe.
Es wäre schön, wenn jemand eine Lösung hat, Viele Grüße
Günter
Comment