OnStartup goes Include

11/04/2008 - 19:07 von Joachim Reiter | Report spam
Hallo NG,

wie im Thread 'OnStartup' vom 04.04. von mir gestartet und angekuendigt ein
Folge-Posting...

Meine Frage richtet sich ausschliesslich/ueberwiegend an @Thomas 'Tommy'
Barghahn...

Waere es moeglich, unten gelistetes OnStartup-Script als 'Include-Script'
umzuschreiben, um es zusammen mit dem Script zu nutzen, dass es als Include
schon gibt, 'Database-Reminder'?

Grund: Wie im o.g. Thread schon angemerkt moechte ich _in jedem Fall_ das
'PurgeSubscribedGroups' benutzen, dass mir @Kai Juerges als 'OnStartup'
(unten gelistet) extra geschrieben hatte :-), aber mir schon das Script
ebenso wichtig waere, dass an eine Komprimierung der Datenbank erinnert.

Waere schoen, wenn dies moeglich waere :-))))

Hier nun das erwaehnte Script:

-put your Schere here ;-)-
program OnStartup;

// Routinen fuer Textfile werden benoetigt
uses
Textfile;

// Dateiname zum Speichern, Pfad selbst anpassen!
const
fileName = 'C:\lastpurge.tmp';

// Aktuelles Datum in Datei speichern
Procedure SaveLastPurgeDate;

var
f : Textfile;

begin
AssignFile(f, fileName);
Rewrite(f);
TextWriteln(f, DateToStr(Date));
CloseFile(f);
end;

// Pruefe, ob heute schon ein Purge durchgefuehrt wurde
// Wenn ja: true
// Wenn nein: false
// Wenn Datei nicht existiert: false
function CheckLastPurgeDate: Boolean;

var
f : TextFile;
tmp : String;

begin
if fileexists(fileName) then begin
AssignFile(f, fileName);
Reset(f);
TextReadln(f, tmp)
CloseFile(f);
if DateToStr(Date) = tmp then begin
result := true;
end
Else
result := false;
end
else
result := false;
end;

procedure OnStartup;
begin
ADo('FirstMessage');
// Heute schon Purge durchgefuehrt?
if Not CheckLastPurgeDate then begin
// PURGE durchfuehren
ADo('PurgeSubscribedGroups');
// Datum speichern
SaveLastPurgeDate;
end;
end;
begin
End.
-and here nochmal ;-)--

TIA und Gruss... Joachim
,--.
| Antworten an mich, solange nicht gewünscht oder ausdrücklich |
| gewollt nur in der jeweiligen NG, nicht per Mail!!! Danke! |
'--'
 

Lesen sie die antworten

#1 Thomas Barghahn
11/04/2008 - 20:09 | Warnen spam
*Joachim Reiter* meinte:

[...]

Meine Frage richtet sich ausschliesslich/ueberwiegend an @Thomas 'Tommy'
Barghahn...



Haben wir denn schon wieder Wochenende? ;-)

Waere es moeglich, unten gelistetes OnStartup-Script als 'Include-Script'
umzuschreiben, um es zusammen mit dem Script zu nutzen, dass es als Include
schon gibt, 'Database-Reminder'?

Grund: Wie im o.g. Thread schon angemerkt moechte ich _in jedem Fall_ das
'PurgeSubscribedGroups' benutzen, dass mir @Kai Juerges als 'OnStartup'
(unten gelistet) extra geschrieben hatte :-), aber mir schon das Script
ebenso wichtig waere, dass an eine Komprimierung der Datenbank erinnert.



Grundsàtzlich ist dieses natürlich kein Problem! :-) Ich möchte aber,
dass Kai mit solch einer Lösung dann auch einverstanden ist.
Vielleicht hat er ja schon etwas "gebastelt". ;-)

Ich schreibe Letzteres mit Absicht, weil ich mit meiner Methode seine
programmspezifischen Konstanten auf Variablen "verbiegen" würde.

Waere schoen, wenn dies moeglich waere :-))))



Der Autor hat das Wort. :-)

Freundliche Grüße
Thomas Barghahn
Zu CP/M- und DOS-Zeiten waren die Anwendungen
noch recht klein und überschaubar; die Hardware
dagegen war relativ groß und unhandlich.
Heute ist alles irgendwie anders.

Ähnliche fragen