Hi Delphianer..
beschäftige mich seit neuestem mit Services und verstehe so ziemlich das prinzip habe jedoch jetzt folgendes problem:
in meiner execute procedure frage ich alle 2 minuten einen ordner ab, ob sich dateien in diesem befinden.
ich habe das jetzt mal so versucht:
Delphi-Quellcode:
begin
cache := 0;
while not terminated do begin
sleep(4000);
if cache = 1 then begin
GetLocaleFormatSettings(GetUserDefaultLCID,mysettings);
mysettings.ShortTimeFormat := 'hh:mm:ss';
zeit := TimeToStr(Now,mysettings);
value := StrtoTime(zeit) + StrToTime('00:01:00');
cache := 0;
end;
while CompareTime(StrToTime(zeit), value) = 0 do begin
cache := 1;
sleep(4000);
logfilest.add(1, 'Cheking Queue...');
files := Countfilesinfolder('C:\queue', '*.*');
if files = 0 then begin
logfilest.add(1, 'Nothing to do');
end
else
logfilest.add(1, 'Something found');
end;
end;
end;
jedoch beendet sich mein Service und schreibt folgende Fehlermeldung in die ereignisanzeige....
"Service fehlgeschlagen bei execute: " ist keine gültige Uhrzeit"
hä?
bzw. hat jemand eine idee wie ich das schöner lösen könnte?!
Danke im Voraus!
Zitat
Baum-Darstellung
