[NEW] ServiceScript - OnShutdown

25/11/2008 - 21:05 von Dietmar Vollmeier | Report spam
Servus allerseits!

Habe die Scripte "DBReminder" und "CheckLastPurgeDate" zu einem neuen
Script, dem *ServiceScript* zusammengefaßt.

Die Informationen werden dafür in der Datei *service.dat* gespeichert.
Falls diese nicht vorhanden ist, wird sie neu angelegt.

Alle bisherigen Dateien, "dbremindercount.txt", "dbreminder.tmp",
"dbremindercount.txt", "lastpurge.dat" oder wie sie auch heißen mögen,
können gelöscht werden.

,--.
Š Mich hat die kurze Zeit, in der ich die Scripte "DBReminder" und Š
Š "CheckLastPurgeDate" verwende, die Wartezeit beim Start von 4d ein wenig Š
Š gestört. Š
Š Š
Š Natürlich ist mir dann gleich _nach_ dem Absenden des ursprünglichen Š
Š Beitrags die Idee gekommen, die Prozedur beim _Beenden_ von 4d laufen zu Š
Š lassen. Š
`--Ž

Nach Einbindung des Scripts wird beim ersten mal Beenden von 4d die
Datenbank komprimiert, beim weitern Beenden dann die Gruppen aufgeràumt.

Die Zeit zum komprimieren der Datenbank ist einstellbar und per default
auf 7 Tage gesetzt.

Die Gruppen werden beim erstmaligen Beenden von 4d pro Tag aufgeràumt.

Zum Download geht es hier entlang:
http://4d.vollmeier.at/downloads/_include_ServiceScript.zip

Einbindung in *OnStartup* wie folgt

8<--[ OnShutdown ]>8
{*******************************************************************************
* OnShutdown *
********************************************************************************

Dieses Ereignisscript wird beim Start von 40tude Dialog ausgeführt.

*******************************************************************************}
Program OnShutdown;

{}
{ Anwenderspezifische Einstellungen }
{}
// keine
{}
{ Ende der Einstellungen }
{}

{$I _include_ServiceScript}

//--[ Procedure OnStartup ]\\
Procedure OnShutdown;
Begin
// Steht Wartung (Datenbank komprimieren, Gruppen aufràumen) an?
ServiceCheck
End;
//-\\
Begin
End.
8<->8

Viel Spaß damit :-)

und tschüss,
Didi
Es genügt nicht, keine Meinung zu haben, man muß auch unfàhig sein, sie
auszudrücken...
 

Lesen sie die antworten

#1 Dietmar Vollmeier
25/11/2008 - 21:16 | Warnen spam
*Dietmar "INGRID" Vollmeier* schrieb am 25.11.2008 um 21:05 Uhr...
Einbindung in *OnStartup* wie folgt


^^^^^^^^^
8<--[ OnShutdown ]>8
{*******************************************************************************
* OnShutdown *
********************************************************************************

Dieses Ereignisscript wird beim Start von 40tude Dialog ausgeführt.


^^^^^

Derjenige, der mitgedacht hat, dem ist jetzt sicher was aufgefallen ;-)

Sollte natürlich *OnShutdown* heißen und *Beenden* heißen.


und tschüss,
Didi
Besser heimlich schlau als unheimlich blöd.

Ähnliche fragen