[UPDATE] ScriptWerkstatt - Basis_Modul_include

15/11/2008 - 21:48 von Hermann Hippen | Report spam
Moin Moin :-),

Das Basis_Modul_include wurde noch mal um die Funktion BM_DBReminder
erweitert.

BM_DBReminder bietet die Möglichkeit sich, nach einer Anzahl von Tagen, das
Fenster zum Komprimieren der Datenbank öffnen zu lassen, praktisch als Wink
mit dem Zaun ;-) Die Anzahl der Tage kann man im Kopf, bei den
Usereinstellungen, angeben. Voreingestellt ist ein gàngiger Wert von 7.

Um die Funktion zu nutzen, bedarf es keines zusàtzlichen Scripts, lediglich
der Funktionsaufruf: 'If BM_DBReminder Then ADo('CompactDatabase');' muss
in OnStartup eingetragen werden.

Bei gleichzeitiger Nutzung der Basis_Module_include Funktion
BM_Check_Last_PurgeDate muss BM_DBReminder vor BM_Check_Last_PurgeDate
eingetragen werden.

Das sollte dann so aussehen:
|
| program OnStartup;
| uses Forms, Extctrls, TextFile;
| {$I Basis_Modul_Include}
| procedure OnStartup;
| begin
| lockdisplay;
| try
| ADo('CollapseAllThreads');
| finally
| unlockdisplay;
| end; // try - finally


| NEU If BM_DBReminder Then ADo('CompactDatabase');




| ADo('GetNewHeadersInSubscribedGroups');
| ADo('GetNewEmailsForCurrentIdentity');

| If BM_Check_Last_PurgeDate Then ADo('PurgeSubscribedGroups');


| // HamNew&Mail
| timer1.interval:`000*15;
| timer1.enabled:=true;
| end;
| begin
| End.

Im OnStartup wird nun nur noch das Basis_Modul_include eingebunden.

Cu,
Hermann Hippen.
ž' š°º€ø?žžžžž?ø€º°š 'ž
ø€º° '<http://4ds.siteboard.eu>' °º€ø
'ž '40tude-Dialog Scriptwerkstatt' ž'
ø€º°' ž ž ø€º°ššššššš°º€øšž ž '°º€ø
 

Lesen sie die antworten

#1 Matthias Reuter
15/11/2008 - 22:05 | Warnen spam
_*Hermann Hippen*_ schrieb:

Das Basis_Modul_include wurde noch mal um die Funktion BM_DBReminder
erweitert.



Herrman, einfach Klasse! Danke!

Bis bald, _MR_
~~~ http://www.rechner-forum.de ~~~ Hilfe bei Rechnerproblemen!
~~~ http://jabbernews.de ~~~ Unser Blog zu Jabber- und Internetnews,
freie Software und freie Formate naeher gebracht

Ähnliche fragen