Noch ein Problem
Wenn eine gewisse Zeit abgelaufen ist, wird folgendes aufgerufen:
Delphi-Quellcode:
begin
// Erst alle anderen (vorherigen) Einträge löschen
DeleteTableContent;
// Minuszählen abfangen, Zeit zurücksetzen, aus Registry lesen
Zeit := ReadDWORDCurrentUser(Key, Value);
// Dann den neuen hizufügen
AddIPToDatabase;
// und dann noch die Zeit hinzufügen
AddTimeToDataBase;
end; // End vom elseZweig der Zeit-If-Abfrage
Table-Inhalt löschen funktioniert
Zeit wieder zurücksetzen funktioniert auch
IP in die
DB schreiben funktioniert auch
aber
Die Zeit DANN nicht. Da steht dann immer 0 in der
DB.
Setze ich AddIP.. hinter AddTime.. dann ist es umgekehrt.