[UPDATE] @Karl-Heinz - DBReminder_include

16/11/2008 - 01:12 von Hermann Hippen | Report spam
Moin Moin :-),

S U P E R S E D E : Habe es in eine Procedure geàndert, in der der ADo auch
0 1:1 1 mit enthalten ist. So passt es besser zum
Check_Last_PurgeDate. Ergibt so ein einheitlicheres
Bild.

Nach dem Einbau in's Basis_Modul_include hier nun auch die zu deinem
Konzept passende DBReminder_include:
| (Sorry, ist etwas gross geworden)

8<--[ Code ]-->8
Procedure DBReminder;
Var PDat : TStringList;
Co : Integer;
DS : String;
DBReminderFile : String;
DBReminderDays : Integer;
Begin
// Nach wie vielen Tage möchtest du die Datenbank komprimieren lassen?
// 0 Deaktiviert die Funktion.
DBReminderDays := 3;
// Pfad bitte anpassen
DBReminderFile := 'N:\Programme\40tude_Dialog\dbreminder.txt';
//-
If DBReminderDays = 0 Then Exit;
PDat := TStringList.Create;
DS := DateToStr(Date);
With PDat do
Begin
If FileExists(DBReminderFile) Then LoadFromFile(DBReminderFile)
Else Begin
Add('0');
Add(DS);
SaveToFile(DBReminderFile);
End;
Co := StrToInt(Strings[0]);
If (DS <> Strings[1]) Then If Co < DBReminderDays-1 Then
Begin
Co := Co + 1;
Clear;
Add(IntToStr(Co));
Add(DS);
SaveToFile(DBReminderFile);
End Else Begin
DeleteFile(DBReminderFile);
ADo('CompactDatabase');
End;
End;
PDat.Free;
End;
8<>8

Eingebunden wird das Script in OnStartup:

| program OnStartup;
| uses Forms, Extctrls, TextFile;

| {$I DBReminder_include}


| procedure OnStartup;
| begin
| lockdisplay;
| try
| ADo('CollapseAllThreads');
| finally
| unlockdisplay;
| end; // try - finally

| DBReminder;


| ADo('GetNewHeadersInSubscribedGroups');
| ADo('GetNewEmailsForCurrentIdentity');
| // HamNew&Mail
| timer1.interval:`000*5;
| timer1.enabled:=true;
| end;
| begin
| End.

Ein eventuell zusàtzlich im OnStartup aufgerufenes Check_Last_PurgeDate
muss /nach/ dem DBReminder Aufruf erfolgen.

Im Gegensatz zur Vorgàngerversion wurde hier darauf verzichtet noch ein
zusàtzliches Erinnerungsfenster aufzumachen. Nach der eingestellten Zeit
öffnet sich ja ohnehin das Komprimierungsfenster, das auch abgebrochen
werden kann. War also doppelt gemoppelt, also raus damit, wie einiges
andere auch :)

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

Lesen sie die antworten

#1 Karl-Heinz Rademacher
16/11/2008 - 11:55 | Warnen spam
Hallo Hermann,

Hermann Hippen schrieb:
Nach dem Einbau in's Basis_Modul_include hier nun auch die zu deinem
Konzept passende DBReminder_include:
| (Sorry, ist etwas gross geworden)



So meinst Du? Aber ich denke doch, daß wir damit gut "leben" können.

http://kh-rademacher.de/4d/DBReminder_include.html

Update auch hier done und herzlichen Dank! :-)

PS: hatte noch keine Zeit für deine neuen Updates gefunden...- wird aber
nachgeholt.

Gruß,
Karl-Heinz
,--[ Die 40tude Dialog - Seiten! ]
Š http://kh-rademacher.de/4d
Š http://kh-rademacher.de/face
`-

Ähnliche fragen